I could use a little help.
The script below was written for use in Outlook 2016 with the following goal: Inbound emails meeting specific criteria (i.e. has an attachment) are identified, and the attachments are saved to local folder. The script is tied to an outlook Rule, which should run when the email arrives.
Problem The script only appears to run with the VBA console open (Alt F11) and occasionally needs to be manually triggered. I am open to the idea that my issue may reside within Outlook or elsewhere, and I am open to general feedback on how to improve this process.
New Goal: The script runs automatically, daily at 12:00 and 17:00 local time, successfully extracting specific attachments from my inbox and saving them locally.
Public Sub SaveOutlookAttachments(MItem As Outlook.MailItem)
Dim oAttachment As Outlook.Attachment
Dim sSaveFolder As String
sSaveFolder = "C:UsersDocumentsFolder"
For Each oAttachment In MItem.Attachments
oAttachment.SaveAsFile sSaveFolder & oAttachment.DisplayName
Next
End Sub
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…