Welcome to ShenZhenJia Knowledge Sharing Community for programmer and developer-Open, Learning and Share
menu search
person
Welcome To Ask or Share your Answers For Others

Categories

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 

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
thumb_up_alt 0 like thumb_down_alt 0 dislike
3.9k views
Welcome To Ask or Share your Answers For Others

1 Answer

等待大神解答

与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…
thumb_up_alt 0 like thumb_down_alt 0 dislike
Welcome to ShenZhenJia Knowledge Sharing Community for programmer and developer-Open, Learning and Share
...