通过 Excel VBA 编辑 Outlook 中的书签

Question

我有以下问题： 在 Excel 宏中，我想打开 outlook 模板并更改此模板的各个部分。

我的计划是在模板中插入某些书签以进行编辑。

这是我写的代码：

 Sub EmailDirektSenden()

 Dim objOutlook As Object 
 Dim objRange As Range


 Set objOutlook = CreateObject("Outlook.Application") 
 Dim objMail As Outlook.MailItem 
 Set objMail = objOutlook.CreateItemFromTemplate("Path to the File")

 Set objRange = objMail.Bookmarks("Bookmark1").Range
 objRange.InsertAfter ActiveWorkbook.Sheets("ReleaseCheck").Range("A5")

 End Sub

不幸的是，我收到了消息：

错误 438。

我将非常感谢您的帮助。

提前致谢和问候

Answer 1

MailItem不公开Bookmarks属性 - 调用MailItem.GetInspector.WordEditor - 它返回Word.Document object 的实例，它确实公开了Bookmarks属性。