Outlook 代码可以在 VBA 编辑器窗口中正常运行，但不能在 Outlook 中运行

Question

我对应用程序编码以及 VBA 编码都是新手。我想创建宏，用于使用功能区选择按钮选择对特定消息内容的快速模板回复。因此，我需要创建几个单独的宏。因此，它们必须位于 VBA 编辑器中的单独模块中。但是，我有一个问题。该宏仅在编辑器中有效，但在 Outlook 中无效。请查看代码并告诉我要添加什么才能使代码也从程序中运行？

子 Odpowiedź_jako_szablon()

Dim origEmail As MailItem
Dim replyEmail As MailItem
Dim oLookMail As MailItem
Dim oLookItem As Object
Dim oLookFldr As Folder
Dim oLookName As NameSpace

Set oLookMail = Application.ActiveWindow.Selection.Item(1)
Set replyEmail = Application.CreateItemFromTemplate("C:\Users\jacek.michalski\AppData\Roaming\Microsoft\Templates\Odpowiedź na reklamację parkingową uszkodzony parkometr.oft")

replyEmail.To = oLookMail.Sender
replyEmail.CC = oLookMail.CC
replyEmail.Subject = oLookMail.Subject

replyEmail.HTMLBody = replyEmail.HTMLBody & oLookMail.Reply.HTMLBody
replyEmail.Display

结束子

我尝试添加证书、更改宏安全设置以及更改编辑器设置以显示运行期间的所有错误。这些都没有帮助。

Answer 1

行

Application.ActiveWindow.Selection

假定活动窗口是

Explorer

。如果当前窗口是

Inspector

，它将中断。

使用

TypeName(Application.ActiveWindow)

找出活动窗口是什么。如果是

Inspector

，请使用

Application.ActiveWindow.CurrentItem

。