VBA+Outlook. Разные гиперссылки для 2000 и 2003?

Узнай цену своей работы

Формулировка задачи:

Добрый день
очень надеюсь на Вашу помощь, т.к. ничего похожего на мою проблему найти не могу :( ...
с помощью VBA создается письмо (office 2000)
в тело письма добавляются ссылки с символами "<" и ">" в начале и конце, т.к. с помощью них гиперссылка будет целостной, даже если есть пробелы в строке.

в 2003 версии офиса так не выходит :(


ниже пример кода
проблема в том, что в 2003 получаются ссылки типа \\text1\new text1.doc
'отправка сообщения
Dim sAdr As String
Dim olkApp As Outlook.Application
Dim olNameSpace As Outlook.NameSpace
Dim objMailItem As Outlook.MailItem
Set olkApp = CreateObject("Outlook.Application")
Set olNameSpace = olkApp.GetNamespace("MAPI")
Set objMailItem = olkApp.CreateItem(olMailItem)
With objMailItem
.Subject = "Тема"
.Body = "Путь к файлу: <\\test\путь к файлу\файл.doc>"
.Display
End With
Set objMailItem = Nothing
Set olNameSpace = Nothing
Set olkApp = Nothing

Решение задачи: «VBA+Outlook. Разные гиперссылки для 2000 и 2003?»

textual
Листинг программы
.Body = <font color="teal">"Путь к файлу: "</font> & vbCrLf & _
          vbCrLf & <font color="teal">"<file: c:\new="" folder\doc1.doc="">"</file:></font>

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы