Запускать несколько макросов Outlook

Question

Я нашел макрос для автоматической загрузки вложений из определенных писем. Теперь я хочу запустить командный файл после его загрузки. Мне было интересно, как заставить оба модуля работать? Они должны быть на том же модуле?

Вот мой код:

Имя модуля - Скачать

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:\Users\username\Documents\"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub

Имя модуля - RunBat

Sub CallOtherProgram()
Shell "C:\Users\username\Desktop\BatchFile.bat", vbNormalFocus
End Sub

Есть ли в любом случае, я могу заставить их работать один за другим? Я очень плохо знаком со сценариями.

Спасибо!

Answer 1

Просто добавьте вызов в CallOtherProgram в вашей оригинальной процедуре:

Public Sub SaveAttachmentsToDisk(MItem As Outlook.MailItem)
    Dim oAttachment As Outlook.Attachment
    Dim sSaveFolder As String
    sSaveFolder = "C:\Users\username\Documents\"
    For Each oAttachment In MItem.Attachments
        oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
    Next

    CallOtherProgram

End Sub