根據生成的電子郵件的主題添加附件

我有一個應用程序生成電子郵件附加發票作爲pdf。生成的電子郵件顯示在Outlook中，因此您可以在發送前手動編輯它們。根據生成的電子郵件的主題添加附件

在所有發票上，我想添加一種額外的附件，並附上一種免責聲明。我創建了一個宏和一個按鈕來做到這一點。工作正常，但我希望在創建電子郵件時自動完成此操作。

我的問題：

有誰知道是否有可能儘快電子郵件在編輯器中打開運行VBA馬可？
我注意到有一個ItemLoad事件，但是當這被執行時，尚未分配任何值，因此我無法檢查該主題以查看它是否附帶發票的電子郵件。

來源

2016-02-19 Daan

是不是有像Mail_new？那麼你可以檢查主題，然後添加附件或保留它.... – Kathara

歡迎來到Stackoverflow！我在一開始就發現它很粗魯，但其中一個預計不會寫'嗨'或'謝謝'。格式大大幫助讀者消化你的問題（或答案）。相反，只要有意義，慷慨提升其他人的貢獻！ – bogl

您是從自己編寫的代碼生成電子郵件嗎？當用戶打開一個項目進行編輯時，會出現一個名爲Read的事件。 – StevenWalker

在ThisOutlookSession

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

不知道郵件是如何生成我保存未發送的郵件草稿，然後關閉重新打開。

來源

2016-02-19 18:04:42 niton

根據生成的電子郵件的主題添加附件

回答

相關問題