Я нашел макрос для автоматической загрузки вложений из определенных писем. Теперь я хочу запустить командный файл после его загрузки. Мне было интересно, как заставить оба модуля работать? Они должны быть на том же модуле?
Вот мой код:
Имя модуля - Скачать
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
Есть ли в любом случае, я могу заставить их работать один за другим? Я очень плохо знаком со сценариями.
Спасибо!