VBA宏完成后发送带背景图邮件内容为空问题排查

看起来你的邮件内容空白是几个细节处理不到位导致的，咱们一步步拆解问题：

1. 不完整的HTML结构 & 错误的背景图写法 #

你的MyHTML里的<body>标签既没有闭合，且background属性的写法不符合HTML标准。直接在<body>标签里写background=""cid:Doge.jpg""; center top no-repeat;是无效的，应该把背景样式放到style属性里，同时要正确闭合<body>标签——否则Outlook的HTML渲染引擎会因为结构错误直接忽略所有内容。

2. 未将背景图添加为嵌入附件 #

你用cid:Doge.jpg引用背景图，但Outlook根本不知道这个cid对应的图片在哪里：必须把图片作为嵌入附件添加到邮件中，cid才能关联到资源。缺少这一步，图片加载失败，再加上HTML结构问题，就会导致邮件内容完全空白。

3. 文本换行符不兼容HTML #

你用vbNewLine来换行，但HTML不识别这个VBA专属的换行符，需要换成<br>标签，否则文本会挤成一团，也可能影响整体渲染效果。

修正后的完整代码 #

Private Sub mailer2()
    Dim oApp As Object, oMail As Object, MyHTML As String
    Dim username As String, imgPath As String
    Dim MyText As String
    
    Application.ScreenUpdating = False
    
    ' 获取图片的完整路径（确保和宏文件同目录）
    imgPath = ThisWorkbook.Path & "\Doge.jpg"
    
    Set oApp = CreateObject("Outlook.Application")
    Set oMail = oApp.CreateItem(0)
    
    username = InputBox("Please write your E-mail")
    
    ' 用HTML的<br>替换VBA的vbNewLine
    MyText = "Greetings<br><br>" & _
             "Your Macro has concluded.<br><br>" & _
             "Please attend to terminal AFAP"
    
    ' 修正HTML结构，正确设置背景样式
    MyHTML = "<body style='background: url(cid:Doge.jpg) center top no-repeat;'>" & _
             "<p style='font-size:30px;font-weight:Bold;color:white;'>" & MyText & "</p>" & _
             "</body>"
    
    With oMail
        .To = username
        .Subject = "Automated message, please do not answer"
        ' 添加图片为嵌入附件，cid与HTML中的引用匹配
        .Attachments.Add imgPath, 1, 0, "Doge.jpg" ' 后期绑定用数字1代替olByValue
        .HTMLBody = MyHTML
        .Display ' 先预览测试，确认没问题再启用.Send
        '.Send
    End With
    
    Application.ScreenUpdating = True
    
    Set oMail = Nothing
    Set oApp = Nothing
End Sub

额外注意点 #

• 确保Doge.jpg确实在宏文件的同一目录下，用ThisWorkbook.Path获取路径比相对路径更可靠；
• 我把.Send注释掉了，建议先通过.Display预览邮件效果，确认样式和内容都正常再发送；
• 颜色值用white比rgb(100%,100%,100%)更简洁，渲染效果完全一致；
• 因为你用的是后期绑定（CreateObject），所以用数字1代替了olByValue常量，避免出现常量未定义的报错。

内容的提问来源于stack exchange，提问作者DGMS89