以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请问如何在outlook调用发送邮件增加签名图片  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=162992)
--  作者：z769036165
--  发布时间：2021/4/20 9:17:00
--  请问如何在outlook调用发送邮件增加签名图片
如题？
Dim o As New Microsoft.Office.Interop.Outlook.Application
Dim msg As Microsoft.Office.Interop.Outlook.MailItem
msg = o.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
msg.Recipients.Add("spring.me@qq.com")  \'收件人郵件地址
msg.Subject = "采购单"  \'郵件主旨
Dim body As String = "<html><body>内容</body></html>"
Dim content As String =<img style = "height:50px" src=****"images\\1.jpg" & ">   
msg.HTMLBody = body.Replace("内容", "这儿可点击进入: "& content)
msg.Attachments.Add("d:\\test.txt")  \'添加採購訂單pdf件為附件
msg.Send()

想在发送的htmlbody内容增加一个本地LOGO图片作为邮件正文里面的签名图片，不知道这个怎么加？
--  作者：有点蓝
--  发布时间：2021/4/20 9:55:00
--  
试试

Dim o As New Microsoft.Office.Interop.Outlook.Application
Dim msg As Microsoft.Office.Interop.Outlook.MailItem
msg = o.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olMailItem)
msg.BodyFormat = Microsoft.Office.Interop.Outlook.OlBodyFormat.olFormatHTML
msg.Recipients.Add("spring.me@qq.com")  \'收件人郵件地址
msg.Subject = "采购单"  \'郵件主旨
Dim body As String = "<html><body>内容</body></html>"

Dim bmp As new Bitmap("D:\\1.jpg") \'图片路径
Dim ms As new System.Io.MemoryStream()
bmp.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
Dim arr(ms.Length) As Byte
ms.Position = 0
ms.Read(arr, 0, ms.Length)
ms.Close()
Dim strbase64 As String = Convert.ToBase64String(arr)
bmp.dispose


Dim content As String ="<img style = ""height:50px"" src=""data:image/jpeg;base64," & strbase64 & """ > "  
msg.HTMLBody = body.Replace("内容", "这儿可点击进入: "& content)
msg.Attachments.Add("d:\\test.txt")  \'添加採購訂單pdf件為附件
msg.Send()
--  作者：z769036165
--  发布时间：2021/4/20 10:11:00
--  
测试没问题，谢谢！