Скопируйте и вставьте свод с гиперссылками VBA

#vba #copy #pivot

Вопрос:

Я использую VBA для копирования и вставки сводной таблицы из Excel в Outlook. Одна из колонок — «Ссылки» со ссылками на определенные страницы. Я хотел бы настроить его с помощью «Нажмите здесь» и гиперссылки (вместо того, чтобы делиться длинной ссылкой. Как я могу это сделать?

Большое спасибо!

Ответ №1:

Alber!

Если вы используете HTMLBody в своем строительном Outlook, вам просто нужно добавить тег «A».

Дополнительная отправка_почтой()

 Dim OutApp As Object Dim OutMail As Object  Set OutApp = CreateObject("Outlook.Application") Set OutMail = OutApp.CreateItem(olMailItem)  strHTML = "lt;a href='http://www.google.com.br'gt;Click Herelt;/agt;"  With OutMail  .To = "destinatario@gmail.com"  .CC = "copiado@gmail.com"  .BCC = "somentesenecessario@gmail.com"  .HTMLBody = strHTML  .Subject = "Test e-mail"  .Display End With  Set OutApp = Nothing Set OutMail = Nothing  

Конец Суб