Добавить гиперссылку на текст макроса - PullRequest
Новая
       22

Добавить гиперссылку на текст макроса

0 голосов
/ 22 января 2020

У меня есть следующий код для отправки электронного письма при внесении изменений в рабочую книгу.

Код работает нормально, но я хотел бы изменить расположение файла в теле текста, чтобы оно было гиперссылка.

Я попытался добавить click<a href=""

Я знаю, что есть также подпрограмма для этого "Followhyperlinkforfolderondrive", но я не уверен относительно того, где я запустил бы новую подпрограмму.

Я удалил адреса электронной почты для защиты данных. 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Outlook As Object, EMail As Object

Set Outlook = CreateObject("Outlook.Application")

Set EMail = Outlook.CreateItem(0)

With EMail
    .To = " "
    .CC = ""
    .BCC = ""
    .Subject = "Billing Block Sheet"
    .Body = "Hi." & vbCrLf & vbCrLf & "A change has been made to the billing block spreadsheet." & vbCrLf & vbCrLf & "P:\Admin\Wilson Pre pack (billing block).xlsm"
    .Display   'or use .Send to skip preview
End With


Set EMail = Nothing

Set Outlook = Nothing
End Sub

Private Sub Workbook_Open()

End Sub

1 Ответ

1 голос
/ 22 января 2020

Вам нужно использовать .HTMLBody вместо .Body и <br> вместо vbCrLf, и вам нужно удвоить кавычки, поскольку вы строите строку и хотите, чтобы кавычки были включены в строку.

Вот так: 

.HTMLBody = "Hi.<br><br>A change has been made to the billing block spreadsheet.<br><br><a href=""P:\Admin\Wilson Pre pack (billing block).xlsm"">click here</a>"
...