Outlook vba не может отправить письмо как сценарий, назначенный правилу

Question

Мне нужно запустить скрипт vba, как правило, в Outlook, который 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 

когда я бегу как макрос (F5) в VBA Project все прошло нормально, появляется почта , но ничего не произошло, когда я запустил правило. Есть идеи? привет,

Answer 1

Первая строка запуска кода сценария должна выглядеть так.

Sub name(itm as mailItem) 

или

Sub name(itm as meetingItem) 

"ITM" является почта или встреча, которая принимается.

В вашем случае у вас уже есть еще одна подпапка, где вы получаете itm, и делаете P1 и P2. Теперь вы вызываете код отправки через P2.

Sub P1_P2_sendemail(itm As mailItem) 

' P1 
' P2 

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

End Sub