Код VBA для редактирования цвета шрифта гиперссылки в электронной почте - PullRequest
Новая
       25

Код VBA для редактирования цвета шрифта гиперссылки в электронной почте

0 голосов
/ 21 апреля 2020

Я использую шаблон электронной почты Outlook, в котором я нахожу указанный текст c, а затем заменяю его на встроенную гиперссылку, после чего электронное письмо отправляется. Однако при отправке электронного письма цвет шрифта для гиперссылки становится синим по умолчанию.

Может ли кто-нибудь помочь отредактировать приведенный ниже код, чтобы я мог установить определенный цвет шрифта (черный или белый), который не меняется при отправке электронного письма.

Код VBA ниже 

Sub Mail_Merge()
Tme1 = Now()


Application.ScreenUpdating = False
On Error GoTo C:
Dim oApp As Object, oMail As Object

Set oApp = CreateObject("Outlook.Application")
a = Sheet1.Range("B1048576").End(xlUp).Row

For i = 2 To a

Set oMail = oApp.CreateItemFromTemplate(Cells(i, 10))
With oMail

.To = Cells(i, 2)
.Subject = Cells(i, 8)

strfind = "X1X1X1"
strLink = Cells(i, 3)
strLinkText = Cells(i, 9)
strNewText = "<a href=" & Chr(34) & strLink & Chr(34) & ">" & strLinkText & "</a>"
.HTMLBody = Replace(.HTMLBody, strfind, strNewText, 1, 1, vbTextCompare)

.Display

.send
End With
Cells(i, 1) = "Mail sent successfully"
Next i
C:
Application.ScreenUpdating = True

tme2 = Now() - Tme1
Application.StatusBar = Format(tme2, "h:mm:SS")
End Sub

Заранее спасибо

1 Ответ

0 голосов
/ 21 апреля 2020

Вы можете использовать inline CSS: 

strNewText = "<a style='color:#F00;' href='" & strLink & "'>" & strLinkText & "</a>"
...