是否可以通过VBA将包含图像的邮件作为邮件正文而不是附件发送_Vba_Outlook

是否可以通过VBA将包含图像的邮件作为邮件正文而不是附件发送

vba outlook

是否可以通过VBA将包含图像的邮件作为邮件正文而不是附件发送,vba,outlook,Vba,Outlook,使用ExcelVBA，我试图将图像添加到邮件正文中，而不是邮件的附件。我尝试了下面的代码，通过将图像作为附件添加到邮件中，将图像显示为正文，它也会对邮件隐藏附件，但问题是邮件在收件箱中显示附件符号。其中，图像附件对邮件隐藏有没有更好的方法将图像添加为正文内容而不是附件 On Error Resume Next With OutMail .To = ABC .CC = "" .BCC =

使用ExcelVBA，我试图将图像添加到邮件正文中，而不是邮件的附件。我尝试了下面的代码，通过将图像作为附件添加到邮件中，将图像显示为正文，它也会对邮件隐藏附件，但问题是邮件在收件箱中显示附件符号。其中，图像附件对邮件隐藏

有没有更好的方法将图像添加为正文内容而不是附件

On Error Resume Next
        With OutMail
            .To = ABC
            .CC = ""
            .BCC = ""
            .Subject = "Happy Diwali"
            .Attachments.Add "C:\Users\User~1.test\AppData\Local\Temp\NamePicture.jpg", 1, 0
            'Note: Change the width and height as needed
            .HTMLBody = "<html><body><center><p><b><font size=""6"" color=""purple"">" & "Dear," & "</p><p>" & strEmpFrstNm & " and Family" & "</font></b></p><img src=""cid:NamePicture.jpg"" width=1000 height=950> </image></center></body></html>"
            .Send
        End With
        Mail_JPG_Range_Outlook = True
    On Error GoTo 0

出错时继续下一步
发邮件
.To=ABC
.CC=“”
.BCC=“”
.Subject=“快乐排灯节”
.Attachments.Add“C:\Users\User~1.test\AppData\Local\Temp\NamePicture.jpg”，1，0
'注意：根据需要更改宽度和高度
.HTMLBody=“”和“亲爱的”，“和”
“&strEmpFrstNm&“和家庭”&“”
.发送
以
Mail\u JPG\u Range\u Outlook=True
错误转到0

可能存在的副本