Outlook vba 无法将电子邮件作为分配给规则的脚本发送答案

【问题标题】：Outlook vba cannot sent email as script assigned to ruleOutlook vba 无法将电子邮件作为分配给规则的脚本发送
【发布时间】：2017-01-21 05:19:28
【问题描述】：

我必须在 Outlook 中运行一个 vba 脚本作为规则 1.“捕获”带有附件的特定邮件（Excel） 2.将此附件另存为文件并在此文件中进行一些更改 3. 通过电子邮件发送这个“更改”的文件。

P.1 和 P.2 我已经完成了，但我无法发送和发送电子邮件。当我收到主题中包含特定单词的消息时，我通常会尝试使用此简单代码运行此脚本：

 Sub sendemail()
 Dim OutlApp As Object
 On Error Resume Next
  Set OutlApp = GetObject(, "Outlook.Application")<---use this instance of outlook            
 If Err Then
 Set OutlApp = CreateObject("Outlook.Application")
 IsCreated = True
 End If
 OutlApp.Visible = True
 On Error GoTo 0
 With OutlApp.CreateItem(0)
.To = "aaaaa@bbbb.com"
.Subject = "test"
.Display    
 End With
 Set OutlApp = Nothing
 End Sub

当我在 VBA 项目中作为宏 (F5) 运行时，一切正常，出现邮件，但运行规则时没有任何反应。有任何想法吗？问候，

【问题讨论】：

标签： vba outlook

【解决方案1】：

运行脚本代码的第一行必须如下所示。

Sub name(itm as mailItem)

或

Sub name(itm as meetingItem)

“itm”是正在接收的邮件或会议。

在您的情况下，您必须已经有另一个子接收它并执行 P1 和 P2。现在您将在 P2 之后调用 sendemail 代码。

Sub P1_P2_sendemail(itm As mailItem)

' P1
' P2

With CreateItem(0)
    .To = "aaaaa@bbbb.com"
    .Subject = "test"
    .Display
End With

End Sub

【讨论】：