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

Вход

Регистрация

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

 

= Мир MS Excel/Замена гиперссылок в теле исходящего письма outlook - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена гиперссылок в теле исходящего письма outlook (Макросы/Sub)
Замена гиперссылок в теле исходящего письма outlook
TD_MElec Дата: Пятница, 19.11.2021, 20:39 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 73
Репутация: 1 ±
Замечаний: 0% ±

Excel 2019
Всем, доброго деня!

Откуда то из интернета копируется некий текст в новое письмо outlook, при этом есть строки типа:
[vba]
Код
d:\folder\Output\
некий текст
c:\other folder\
некий текст
\\exchange\third folder
[/vba]
Каждая строка с адресом имеет гиперссылку, но не потому адресу, что она содержит, а куда-то в интернет.
Так вот, необходимо переделать эти гиперссылки в нужные (чтоб она вела по тому адресу, что прописан в строке)
Как это делать в outlook, я не представляю вообще.
Думается мне что это должно выглядеть как-то так:
[vba]
Код
Dim olMail As Outlook.MailItem
strBody = olMail.Body
For Each hl In strBody.Hyperlinks
    hl.Address = hl.Anchor
Next
[/vba]
но это конечно же не верно.


Сообщение отредактировал TD_MElec - Пятница, 19.11.2021, 20:44
 
Ответить
СообщениеВсем, доброго деня!

Откуда то из интернета копируется некий текст в новое письмо outlook, при этом есть строки типа:
[vba]
Код
d:\folder\Output\
некий текст
c:\other folder\
некий текст
\\exchange\third folder
[/vba]
Каждая строка с адресом имеет гиперссылку, но не потому адресу, что она содержит, а куда-то в интернет.
Так вот, необходимо переделать эти гиперссылки в нужные (чтоб она вела по тому адресу, что прописан в строке)
Как это делать в outlook, я не представляю вообще.
Думается мне что это должно выглядеть как-то так:
[vba]
Код
Dim olMail As Outlook.MailItem
strBody = olMail.Body
For Each hl In strBody.Hyperlinks
    hl.Address = hl.Anchor
Next
[/vba]
но это конечно же не верно.

Автор - TD_MElec
Дата добавления - 19.11.2021 в 20:39
doober Дата: Суббота, 20.11.2021, 20:15 | Сообщение № 2
Группа: Друзья
Ранг: Ветеран
Сообщений: 886
Репутация: 310 ±
Замечаний: 0% ±

Excel 2010
но это конечно же не верно.
Если сказать деликатно, то да
.
Текст надо обрабатывать регулярками




Сообщение отредактировал doober - Суббота, 20.11.2021, 20:15
 
Ответить
Сообщение
но это конечно же не верно.
Если сказать деликатно, то да
.
Текст надо обрабатывать регулярками

Автор - doober
Дата добавления - 20.11.2021 в 20:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Замена гиперссылок в теле исходящего письма outlook (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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