從帶有 Excel 的文本單元格發送具有指定粗體/大小/顏色/下划線文本格式的 Email VBA

Question

我正在嘗試發送一封 Outlook 電子郵件，更改 Excel 中特定單元格中特定文本的文本格式。

例如，在我的工作表中有一個包含文本“Jorge Bailey”的單元格，我想將其從“Jorge Bailey”編輯為Jorge Bailey 。

Sub enviar_email_gestor_maquina()

Set objeto_outlook = CreateObject("Outlook.Application")

Set Email = objeto_outlook.createitem(0)

Email.display

Email.to = "jorge.bailey@syngenta.com"

Email.Subject = "Seu Notebook esta Elegível a Troca - Renovação Tecnológica"
       
Link = "<span style=""font-family:Arial; font-size: 12pt; ""<a href=""https://app.smartsheet.com/b/form/3976fc184fc84380a68d0da69b8ddc6d"" >Link Formulário</a>"
   
txt1 = "<span style=""font-family:Arial; font-weight:bold; color: #808000; font-size:20pt;"">Renovação Tecnológica - Troca de notebook</span>" & "<br><br>"
 
txt2 = "<span style=""font-family:Arial; font-size: 15pt;""> & Range(B5) & </span>"

Email.htmlbody = txt1 & htmltxt2 & Link & Email.htmlbody
Email.Recipients.ResolveAll

End Sub

“txt2”有什么問題？**

超鏈接呢？

我想用 HYPERLINKS 來實現，因為當您在電子郵件正文中放置一個單元格中的鏈接時，VBA 獲取的是文本而不是超鏈接。

Answer 1

你引用不正確：

Set objeto_outlook = CreateObject("Outlook.Application")

Set Email = objeto_outlook.createitem(0)

Email.display

Email.to = "jorge.bailey@syngenta.com"

Email.Subject = "Seu Notebook esta Elegível a Troca - Renovação Tecnológica"
       
txt1 = "<span style='font-family:Arial; font-weight:bold; color: #808000; font-size:20pt;'>" & _
         "Renovação Tecnológica - Troca de notebook</span><br><br>"
 
txt2 = "<span style='font-family:Arial; font-size: 15pt;'><b>" & Range("B5").Value & "</b></span>"
 
Link = "<span style='font-family:Arial; font-size: 12pt;'>" & _
   "<a href='https://app.smartsheet.com/b/form/3976fc184fc84380a68d0da69b8ddc6d'>Link Formulário</a></span>"

Email.htmlbody = txt1 & txt2 & Link & Email.htmlbody
Email.Recipients.ResolveAll