根据生成的电子邮件的主题添加附件答案

【问题标题】：Add attachment based on subject of generated e-mail根据生成的电子邮件的主题添加附件
【发布时间】：2016-05-31 19:59:00
【问题描述】：

我有一个应用程序可以生成带有 pdf 附件发票的电子邮件。生成的电子邮件会显示在 Outlook 中，因此您可以在发送前手动编辑它们。

我想在所有发票上添加一个带有免责声明的额外附件。我创建了一个宏和一个按钮来执行此操作。工作正常，但我希望在创建电子邮件时自动完成。

我的问题：

有谁知道是否可以在编辑器中打开电子邮件后立即运行 VBA Marco？
我注意到有一个 ItemLoad 事件，但是当它被执行时，尚未分配任何值，因此我无法检查主题是否是附有发票的电子邮件。

【问题讨论】：

没有类似 Mail_new 的东西吗？然后您可以检查主题，然后添加附件或保留它....
欢迎使用 Stackoverflow！我自己一开始觉得这很粗鲁，但不应该写“嗨”或“谢谢”。格式化极大地帮助读者消化你的问题（或答案）。相反，只要有道理，就慷慨地支持其他人的贡献！
您是否使用自己编写的代码生成电子邮件？当用户打开一个项目进行编辑时，会发生一个名为 Read 的事件。

标签： vba email outlook

【解决方案1】：

在这个 Outlook 会话中

Private WithEvents InspGenSubj As Outlook.Inspectors

Private Sub Application_Startup()
    Set InspGenSubj = Inspectors
End Sub

Private Sub InspGenSubj_NewInspector(ByVal Inspector As Inspector)

    Dim curritem As Object

    Set curritem = Inspector.currentItem

    If curritem.Class = olMail Then
        If curritem.Sent = False Then
            If curritem.Subject = "Generated Mail subject" Then
                MsgBox "Code to add attachment to " & curritem.Subject
            End If
        End If
    End If
End Sub

在不知道邮件是如何生成的情况下，我将未发送的邮件保存到草稿，关闭然后重新打开。

【讨论】：