Executar várias macros do Outlook

Question

Eu encontrei uma macro para baixar anexos automaticamente de certos e-mails. Agora quero executar um arquivo em lotes após o download do arquivo. Eu queria saber como fazer funcionar os dois módulos? Eles precisam estar no mesmo módulo?

Aqui está o meu código:

Nome do módulo - Download

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

Nome do módulo - RunBat

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

Existe alguma maneira de fazer isso acontecer um após o outro? Eu sou muito novo no script.

Obrigado!

    

Answer 1

Basta adicionar uma chamada a CallOtherProgram em seu procedimento original:

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