У мене є макрос, ідея якого - створитиOutlook електронною поштою з текстового поля, яке у мене є в excel. Проблема полягає в тому, коли я пишу слово і кладу на нього гіперпосилання, коли відображається повідомлення електронної пошти, гіперпосилання немає.
Sub Envio()
Dim endereco, arquivo, destino, assunto, mensagem, nome, copia, anexo As String
Dim row, report As Integer
Dim i As Integer
Dim OutApp As Outlook.Application
Dim outMail As Outlook.MailItem
anexo = ThisWorkbook.Sheets("Mensagem").Cells(39, 2).Value
assunto = ThisWorkbook.Sheets("Mensagem").Cells(5, 2).Value
mensagem = ThisWorkbook.Sheets("Mensagem").[TextBox].Text & vbCrLf
copyblind = ThisWorkbook.Sheets("Mensagem").Cells(8, 2).Value
i = 2
destino = ThisWorkbook.Sheets("Emails").Cells(i, 1).Value
Do Until destino = ""
nome = ThisWorkbook.Sheets("Emails").Cells(i, 2).Value
copia = ThisWorkbook.Sheets("Emails").Cells(i, 3).Value
Application.DisplayAlerts = False
Set OutApp = CreateObject("Outlook.Application")
Set outMail = OutApp.CreateItem(olMailItem)
With outMail
.To = destino
If copia <> "" Then
.CC = copia
Else
.CC = ""
End If
.BCC = copyblind
.Subject = nome & ", " & assunto
.Body = mensagem
If anexo <> "" Then
.Attachments.Add (anexo)
End If
.BodyFormat = olFormatHTML
.HTMLBody = "<BODY style=font-size:11pt;font-family:Calibri>" & mensagem & "<BR><BR>" & _
"</BODY>"
.Display
End With
i = i + 1
destino = ThisWorkbook.Sheets("Emails").Cells(i, 1).Value
Set outMail = Nothing
Set OutApp = Nothing
Loop
Application.DisplayAlerts = True
End Sub
Чи може хто-небудь допомогти мені?
Відповіді:
0 для відповіді № 1Спробуйте розмістити теги HTML для посилання в тілі електронної пошти так:
<a href="https://yourhyperlink.com">Your Hyperlink</a>