Sub 發送郵件()
Dim newMlItem As Outlook.MailItem
ms = "C:\Users\Desktop\捕獲.PNG"
FileName = "捕獲.PNG"
Set newMlItem = Outlook.CreateItem(olMailItem)
With newMlItem
.Subject = "FW:"
.Attachments.add ms
.HTMLBody = "<p class=MsoNormal><span lang=EN-US style='font-size:10.0pt;font-family:""Arial"",sans-serif'><img id=""_捕獲.PNG"" src=""cid:捕獲.PNG""></span>"
.To = "[email protected]"
.Send
End With
End Sub
這樣發送出去的郵件，接收方無法顯示圖片
后來發現圖片的實際地址是 "捕獲.png@xxxxxxxx", 現在問題是該如何獲得@以后的這部分地址資訊。
轉載請註明出處，本文鏈接：https://www.uj5u.com/qita/48346.html