将Word文档的内容插入电子邮件中，并使用VBA包含默认签名

Question

我使用了Patrick Wynne在如何使用VBA将Word文档作为电子邮件正文中提供的代码，但它覆盖了签名。有没有办法在粘贴word文档的内容时更改代码以保留默认签名？

这是代码：

Sub emailFromDoc()
Dim wd As Object, editor As Object
Dim doc As Object
Dim oMail As MailItem
Set wd = CreateObject("Word.Application")
Set doc = wd.documents.Open(...path to your doc...)
doc.Content.Copy
doc.Close
set wd = Nothing
Set oMail = Application.CreateItem(olMailItem)
With oMail
.BodyFormat = olFormatRichText
Set editor = .GetInspector.WordEditor
editor.Content.Paste
.Display
End With
End Sub

Answer 1

您可以使用：

Sub emailFromDoc()
Dim wd As Object, editor As Object
Dim doc As Object
Dim Rng As Object
Dim oMail As MailItem
Set wd = CreateObject("Word.Application")
Set doc = wd.documents.Open(...path to your doc...)
doc.Content.Copy
doc.Close
Set wd = Nothing
Set oMail = Application.CreateItem(olMailItem)
With oMail
.BodyFormat = olFormatRichText
Set editor = .GetInspector.WordEditor
Set Rng = editor.Content
Rng.Collapse 1
Rng.Paste
.Display
End With
End Sub