Outlook: save all attached files in a specified directory

[Nelson78]

Hello everybody.

Speaking about Microsoft Office Outlook 2007, in ThisOutlookSession I already have a set of rules to dispatch mails and attachments.

Now, I'd like to add a rule which, for a specified sender, saves all attachments in a directory.

Could something like this be correct?

If Msg.SenderEmailAddress = "j.smith@abc.com" Then

        If Msg.Attachments.count > 0 Then

            For Each Attachment In Msg.Attachments

                        FileName = "Z:\Desktop\Folder1\" & Msg.Attachments.FileName
                        Msg.Attachments.SaveAsFile FileName

            Next

        End If
       
End If

 

[Dan_W]

Except for a few syntax errors, it looks ok. I suspect you will encounter some more bugs in due course, though. The following should correct the syntax errors:

If Msg.SenderEmailAddress = "j.smith@abc.com" Then
        If Msg.Attachments.count > 0 Then
            For Each objAttachment In Msg.Attachments
                        strFileName = "Z:\Desktop\Folder1\" & objAttachment.FileName
                        objAttachment.SaveAs strFilename
            Next
        End If       
End If

There are some other things that you may need to add to the code, but I would need to see the rest of the code before I could comment. Hope that helps.