Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Гиперссылка в письме Outlook - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Гиперссылка в письме Outlook (Макросы/Sub)
Гиперссылка в письме Outlook
andrey-p Дата: Четверг, 31.07.2014, 12:39 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 40% ±

Добрый день.

Возникла следующая проблема.
При формировании письма из файла Excel VBA формируется переменная с полным путем и именем файла.
Далее эта переменная выводится в тексте письма с помощью тегов html.
Необходимо, чтобы в письме по этому пути была создана гиперссылка.
Гиперссылка прерывается на первом же пробеле.
То есть текст в письме выглядит так "\\enterprise\omega\Папки отделов\Департамент логистики\Отдел транспортной логистики\транспорт\Отчеты\Ежедневный\Международка\Письма\1.msg", а гиперссылка получается такая "\\enterprise\omega\Папки".

Часть кода:

Else

Fname1 = ThisWorkbook.Path & "\Письма\" & Sheets("ЛогистПро").Cells(i, 17).Value
sBody1 = sBody1 & "<font size=1>"
sBody1 = sBody1 & "<b>Файл вложение: </b>"
sBody1 = sBody1 & "<br />"
sBody1 = sBody1 & "<a href=" & Fname1 & ">" & Fname1 & "</a>"

End If

Прошу помочь.
 
Ответить
СообщениеДобрый день.

Возникла следующая проблема.
При формировании письма из файла Excel VBA формируется переменная с полным путем и именем файла.
Далее эта переменная выводится в тексте письма с помощью тегов html.
Необходимо, чтобы в письме по этому пути была создана гиперссылка.
Гиперссылка прерывается на первом же пробеле.
То есть текст в письме выглядит так "\\enterprise\omega\Папки отделов\Департамент логистики\Отдел транспортной логистики\транспорт\Отчеты\Ежедневный\Международка\Письма\1.msg", а гиперссылка получается такая "\\enterprise\omega\Папки".

Часть кода:

Else

Fname1 = ThisWorkbook.Path & "\Письма\" & Sheets("ЛогистПро").Cells(i, 17).Value
sBody1 = sBody1 & "<font size=1>"
sBody1 = sBody1 & "<b>Файл вложение: </b>"
sBody1 = sBody1 & "<br />"
sBody1 = sBody1 & "<a href=" & Fname1 & ">" & Fname1 & "</a>"

End If

Прошу помочь.

Автор - andrey-p
Дата добавления - 31.07.2014 в 12:39
doober Дата: Четверг, 31.07.2014, 12:58 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 947
Репутация: 323 ±
Замечаний: 0% ±

Excel 2010
это вас должно спасти
[vba]
Код
Fname2=replace(Fname1,chr(32),"%20")
sBody1 = sBody1 & "<a href=" & Fname2 & ">" & Fname1 & "</a>"

[/vba]




Сообщение отредактировал doober - Четверг, 31.07.2014, 13:00
 
Ответить
Сообщениеэто вас должно спасти
[vba]
Код
Fname2=replace(Fname1,chr(32),"%20")
sBody1 = sBody1 & "<a href=" & Fname2 & ">" & Fname1 & "</a>"

[/vba]

Автор - doober
Дата добавления - 31.07.2014 в 12:58
andrey-p Дата: Четверг, 31.07.2014, 13:46 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 8
Репутация: 0 ±
Замечаний: 40% ±

Заработало. Благодарю
 
Ответить
СообщениеЗаработало. Благодарю

Автор - andrey-p
Дата добавления - 31.07.2014 в 13:46
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Гиперссылка в письме Outlook (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!