Question

我必须在Outlook中运行一个vba脚本 1.＆＃34; Catch＆＃34;带附件的特定邮件（Excel） 2.将此附件另存为文件，并在此文件中进行一些更改 3.通过电子邮件发送此消息＆＃34;已更改＆＃34;文件。

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）运行时，一切正常，邮件出现，但是当我运行规则时没有任何反应。有任何想法吗？问候，

Answer 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

Outlook vba无法将电子邮件作为分配给规则

1 个答案: