使用模板回复所选消息

Question

我想使用功能区按钮选择特定消息内容的模板回复。

我创建了几个宏，位于 VBA 编辑器中的单独模块中。

宏在编辑器中有效，但在 Outlook 中无效。

Sub 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
    
End Sub

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

Answer 1

行

Application.ActiveWindow.Selection

假定活动窗口是

Explorer

。如果当前窗口是

Inspector

，它将中断。

使用

TypeName(Application.ActiveWindow)

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

Inspector

，请使用

Application.ActiveWindow.CurrentItem

。