关于自动发邮件的问题

sampsonpon

如图，为什么下面代码里.body与.HTMLBody内容不能共存？



Sub send_mail()

    Dim ObjOL As Object
    Set ObjOL = CreateObject("Outlook.Application")
    Set itmNewMail = ObjOL.CreateItem(olMailItem)
   
    With itmNewMail
            .Subject = "这是一封自动发出的邮件：没有上架，无法建TO"
            .body = "Dear All：" & vbNewLine & vbNewLine & "没有上架，无法建TO,请加急上架！, Thanks!"
            .HTMLBody = "<img src='" & ThisWorkbook.Path & "\LT23.jpg'>"
            .To = "1245422893@qq.com" '收件者
            .Attachments.Add ThisWorkbook.Path & "\Not putaway.xlsx" '附件
            .Attachments.Add ThisWorkbook.Path & "\LT23.jpg" '附件

            .Importance = 2
            .Display
'            .send
    End With
    Set ObjOL = Nothing
    Set itmNewMail = Nothing

End Sub

蓝桥玄霜

.body = "Dear All：" & vbNewLine & vbNewLine & "没有上架，无法建TO,请加急上架！, Thanks!"
            .HTMLBody = "<img src='" & ThisWorkbook.Path & "\LT23.jpg'>"改为：
ss = "Dear All：" & vbNewLine & vbNewLine & "没有上架，无法建TO,请加急上架！, Thanks!"
            .HTMLBody =ss &  "<img src='" & ThisWorkbook.Path & "\LT23.jpg'>"

yylucke

加.BodyFormat = olFormatHTML 试试

sampsonpon

yylucke 发表于 2023-6-16 14:20
加.BodyFormat = olFormatHTML 试试

加在哪儿？

sdytsxd991122

这里只能选一个

sdytsxd991122

sampsonpon

sdytsxd991122 发表于 2023-6-16 14:33

可以！但是，如何才能达到如图这种层次分明效果？

wanghan519

那就是html代码的问题了
邮件查看源可以看到，body里有个span内容是asdf，后面跟着table，说白了都是html

sdytsxd991122