我想回复一封电子邮件，但不包括原始电子邮件，但包括发件人作为收件人、主题和我的签名。
目前我有Set objDoc = ActiveInspector.WordEditor.我尝试在此处查找电子邮件的正文，以便可以用其他文本替换它。
我想保留我正在回复的电子邮件的主题、发件人和收件人。
这是我当前回复的代码：
With oReply
.BCC = bccField
.CC = ccField
.HTMLBody = "<HTML><Body><span>my reply here</span><Body></HTML>" & .HTMLBody & "<span>" & "Additional stuff" & "</span>"
End With
我尝试取出 .HTMLBody 在<span>s 之间，它确实会取出原始用户的消息，但也会取出我的签名。
无需使用reply功能，只需创建一个新的 mailItem 并传输详细信息即可。
下面的示例使用原始电子邮件。因此，无论您在哪里Set oReply = (something).Reply，您都将用Set originalMailItem = (Something)替换或更新它。 此(something)应该是您尝试回复的原始邮件。
为了有效地插入签名，我们必须.Display邮件项目。否则，Outlook 将注意生成签名。确保 Outlook 客户端上的签名设置正确，默认为新邮件项目的所需签名。
Set newMail = outApp.CreateItem(olMailItem) 'Create a new mail instead of replying to existing
With newMail
.Display
.HTMLBody = "<HTML><Body><span>my reply here</span><Body></HTML>" _
& "<span>" & "Additional stuff" & "</span>" _
& .HTMLBody 'HTMLBody already contains the signature once the email was displayed so we just tack it onto the end.
.To = originalMailItem.SenderEmailAddress
.CC = originalMailItem.CC
.BCC = originalMailItem.BCC
.Subject = originalMailItem.Subject
'.Send 'To send the reply
End With