VBA+Outlook. Разные гиперссылки для 2000 и 2003?
Формулировка задачи:
Добрый день
очень надеюсь на Вашу помощь, т.к. ничего похожего на мою проблему найти не могу :( ...
с помощью VBA создается письмо (office 2000)
в тело письма добавляются ссылки с символами "<" и ">" в начале и конце, т.к. с помощью них гиперссылка будет целостной, даже если есть пробелы в строке.
ниже пример кода
проблема в том, что в 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 создается письмо (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>
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д