Vba 前瞻性电子邮件

我运行这些行以在Outlook中创建新电子邮件。他们工作得很好

现在我想让它们在我转发电子邮件时工作，而不是创建新的电子邮件，并且在转发电子邮件时也包括原始电子邮件

我该怎么做？似乎只有Application.CreateItem方法Outlook而没有ForwardItem？多谢各位

Sub CreateMsg0()
Dim objMsg As MailItem

Set objMsg = Application.CreateItem(olMailItem)

 With objMsg
  .To = "Alias@domain.com; Alias111@domain.com; Alias222@domain.com"
  .CC = "Alias2@domain.com"
  .Subject = "This is the subject"

  .HTMLBody = "<p style='color:rgb(0,51,102);font-family:calibri;font-size:18'>" & ep _
              & "Hello," & "<br>" & "<br>" & "<br>" & ep _
              & "Email body writing line number 1." & "<br>" & ep _
              & "Email body writing line number 2." & "<br>" & ep _
              & "</p>" & ep _
              & "<br>" & "<br>" & "<br>" & ep _
              & "<p style='color:rgb(0,51,102);font-family:calibri;font-size:15'>" & ep _
              & "Signature line 1." & "<br>" & ep _
              & "Tel./fax." & "<br>" & ep _
              & "</p>"


  .Display

End With

Set objMsg = Nothing
End Sub

什么是ep?？无论如何，这应该是一个例子

---

您不想创建新的邮件项。您希望获取现有邮件项目的句柄，并将其转发@谢谢你的指导，非常好！但它似乎没有添加发件人：…发送：…收件人：…主题：。。。原始电子邮件的部分内容？@MarkK抱歉，我搞糊涂了：-，你是指物品。回复此邮件？谢谢你的跟进。我是说前4行叫做header？当人们转发电子邮件时。这4行通常从：…发送：…到：…主题：。。。。是因为行…oMail.HTMLBody。。应为…&vbCrLf&oMail.HTMLBody。。。等

Option Explicit
Sub CreateMsg0()
    Dim objMsg As mailitem
    Dim Item As Outlook.mailitem

    Set Item = Application.ActiveExplorer.Selection.Item(1)

    Set objMsg = Item.Forward

    With objMsg
        .To = "Alias@domain.com; Alias111@domain.com; Alias222@domain.com"
        .CC = "Alias2@domain.com"
        .Subject = Item.Subject

        .HTMLBody = "<p style='color:rgb(0,51,102);font-family:calibri;font-size:18'>" _
                & "Hello," & "<br>" & "<br>" & "<br>" _
                & "Email body writing line number 1." & "<br>" _
                & "Email body writing line number 2." & "<br>" _
                & "</p>" _
                & "<br>" & "<br>" & "<br>" _
                & "<p style='color:rgb(0,51,102);font-family:calibri;font-size:15'>" _
                & "Signature line 1." & "<br>" _
                & "Tel./fax." & "<br>" _
                & "</p>" & "<BR>" & Item.HTMLBody

        .Display
    End With

    Set objMsg = Nothing
End Sub

With objMsg
    .To = Item.To
    .CC = Item.CC
    .Subject = Item.Subject