HTML Body中的图片，需要将.Range(0, 0)改为邮件底部

Question

我正在使用 Excel 文件创建一封 Outlook 电子邮件，其中包含 Excel 文件中通讯组列表中的所有联系人。工作表中还有一个单独的图像。电子邮件创建很好，HTML body 也很好，但可能需要一些调整，但可以在之后完成。唯一的不便之处是，位于 Worksheet1 中的图像 (objshape) 粘贴在 Range (0, 0) 处，它最终出现在我电子邮件的开头，但我希望它位于最底部，在主要 HTML 之后body。为了实现这一点需要改变什么？

谢谢！

这是我目前的简单 VBA 编码：

Sub CopyImagesToMail()
Dim objWorksheet As Excel.Worksheet
Dim objOutlookApp As Object
Dim objMail As Object
Dim objMailDocument As Object
Dim objShape As Excel.Shape
            
Set objWorksheet = ThisWorkbook.Worksheets(1)

Set objOutlookApp = CreateObject("Outlook.application")
Set objMail = objOutlookApp.CreateItem(objOutlookAppobjMailItem)
Set objMailDocument = objMail.GetInspector.WordEditor

For Each objShape In objWorksheet.Shapes
objShape.Copy
Next
With objMail
    .To = ""
    .CC = ""
    .BCC = Sheets("Principal").Range("DistributionList")
    .Subject = "Enter subject here"
    .HTMLBody = "<html>" & _
            "<br/>" & _
            "<p style=""text-align:left"">Enter greetings here</p>" & _
            "<p style=""text-align:left"">Enter text here </p>" & _
            "<p style=""text-align:left"">Enter text here </p>" & _
            "<p style=""text-align:left"">Enter text here </p>" & _
            "<p style=""text-align:left"">Enter text here </b>" & _
            "<br/>" & _
            "<br/>" & _
            "<p style=""text-align:left"">Thank you</p>" & _
            "<br/>" & _
            "<p style=""text-align:left"">Announce Website here (CTRL + Click) </p>" & _
            "<p style=""text-align:left""><a href=""https://Website.com/""> Hypertext description here</a></p>" & _
            "</html>"
    objMailDocument.Range(0, 0).Paste

End With

objMail.Display

End Sub

Answer 1

首先，我建议使用一种或另一种方式来设置邮件正文。如果您决定使用 HTMLBody 属性然后根据 Excel 数据构建您的字符串。如果你想处理 Word，你可以使用它的对象模型。尝试使用以下代码将内容粘贴到文档末尾：

objMailDocument.Content.Select ' selects the main text story
objMailDocument.Selection.Collapse wdCollapseEnd
objMailDocument.Selection.Paste

HTML Body中的图片，需要将.Range(0, 0)改为邮件底部

Image in HTML Body, need to change the .Range(0, 0) to the bottom of the email

excel

vba

outlook

html-email

office-automation