Outlook 2010規則是否對從Excel VBA發送的郵件運行？

Question

我在Excel VBA中有以下基本電子郵件代碼：

Dim OutAppUser      As Object  
Dim OutMailUser     As Object  
Set OutAppUser = CreateObject("Outlook.Application")  
Set OutMailUser = OutAppUser.CreateItem(0)  
With OutMailUser  
            .To = Range("Ctl_Req_Email").Value  
            .CC = ""  
            .BCC = ""  
            .Subject = TempFNUser  
            .ReadReceiptRequested = False  
            .Body = userEmailText  
            .Attachments.Add FullTempNameUser  
            .Send    'Use .Send or .Display  
End With  

具有此宏的工作簿廣泛分發，但電子郵件宏的實際驅動僅由少數人完成，現在電子郵件地址已經發生變化。 我為“發送郵件后”創建了一個Outlook規則，為新電子郵件地址添加了“CC”，作為從外部重定向電子郵件的方法。 該規則適用於手動測試電子郵件，但似乎不會對從Excel VBA代碼發送的電子郵件執行操作。 是否需要在VBA代碼上編寫其他內容以發送電子郵件以允許規則運行？

Answer 1

http://www.slipstick.com/outlook/email/choosing-the-folder-to-save-a-sent-message-in/

“VBA不適用於使用其他應用程序中的文件，發送命令或Windows資源管理器中的發送到命令創建的消息。發送到命令使用簡單MAPI，它繞過Outlook功能 。”

實際上並沒有說規則，但你已經看到規則被繞過。

如果您確實想使用規則，請讓Outlook打開Excel。

Answer 2

為什么不使用新宏創建新的電子表格：

Dim OutAppUser      As Object  
Dim OutMailUser     As Object  
Set OutAppUser = CreateObject("Outlook.Application")  
Set OutMailUser = OutAppUser.CreateItem(0)  
With OutMailUser  
            .To = Range("Ctl_Req_Email").Value  
            .CC = "New_email@address"  ' Only change to your code
            .BCC = ""  
            .Subject = TempFNUser  
            .ReadReceiptRequested = False  
            .Body = userEmailText  
            .Attachments.Add FullTempNameUser  
            .Send    'Use .Send or .Display  
End With  

人們會使用舊表填寫他們的數據，宏驅動程序將使用此代碼來啟動電子郵件。