|
|
|
VBA+Outlook. Разные гиперссылки для 2000 и 2003?
|
|||
|---|---|---|---|
|
#18+
Добрый день очень надеюсь на Вашу помощь, т.к. ничего похожего на мою проблему найти не могу :( ... с помощью 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 ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.12.2008, 14:52 |
|
||
|
VBA+Outlook. Разные гиперссылки для 2000 и 2003?
|
|||
|---|---|---|---|
|
#18+
Код: plaintext 1. или так Код: plaintext 1. Хота, по идее, правильнее вот так. Код: plaintext 1. У меня работает во всех вариантах. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.12.2008, 15:55 |
|
||
|
VBA+Outlook. Разные гиперссылки для 2000 и 2003?
|
|||
|---|---|---|---|
|
#18+
Ashton, к сожалению не выходит а виной всему как оказалось символ "№" в названии файла :( может подскажете как быть? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.12.2008, 16:32 |
|
||
|
VBA+Outlook. Разные гиперссылки для 2000 и 2003?
|
|||
|---|---|---|---|
|
#18+
... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.12.2008, 16:33 |
|
||
|
VBA+Outlook. Разные гиперссылки для 2000 и 2003?
|
|||
|---|---|---|---|
|
#18+
Konst_One, т.о. у меня должно получиться из строки C:\New Folder\Doc№.doc новая строчка <file:///C:\New%20Folder\Doc%B9.doc> так? "№" преобразуется в "%B9" с помощью result = "%" & Hex$(Asc("№")) так? НО! если в адресе ссылки "%20" отображается как пробел, то "%B9" как надстрочный знак "1" ... т.о. ссылка получается некорректная :( далее открываю "изменить гиперссылку" (вижу опять же единицу), ничего не меняю, жму ОК... адрес меняется на корректный что я делаю не так? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.12.2008, 17:26 |
|
||
|
VBA+Outlook. Разные гиперссылки для 2000 и 2003?
|
|||
|---|---|---|---|
|
#18+
это почему вы так решили? result = "%" & Hex$(Asc("№")) ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 25.12.2008, 17:28 |
|
||
|
|

start [/forum/topic.php?fid=60&fpage=171&tid=2161480]: |
0ms |
get settings: |
9ms |
get forum list: |
16ms |
check forum access: |
4ms |
check topic access: |
4ms |
track hit: |
35ms |
get topic data: |
10ms |
get forum data: |
2ms |
get page messages: |
48ms |
get tp. blocked users: |
1ms |
| others: | 225ms |
| total: | 354ms |

| 0 / 0 |
