Download attachment and rename with subject line

Dear Mrice

Thanks for quick reply :-) it worked perfectly.

Thanks a lot.

Originally Posted by mrice

Try

Please Login or Register  to view this content.

Hello,
So where does this fit in the code above?

Originally Posted by nika81

Hello,
So where does this fit in the code above?

Please Login or Register  to view this content.

No to revive this old thread, but I'm having issues running this with "MyMail As MailItem" between the brackets: Sub Download_contracts(MyMail As MailItem)

I'm unable to step through the macro or see it in the "Alt F8" window. If I remove it from the brackets and declare the variable separately I get an error here after stepping through it: strID = MyMail.EntryID

"Object variable or With block variable not set".

Am I missing something? I do have my outlook references setup.

Hi,

I have used the following script to achieve what you are doing BUT it only deals with 1 attachment per mail - either it doesnt save the second (and subsequent) attachments or else it saves them and overwrites them. Any ideas?
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\chrisf\Desktop\Image Test\"
MSN = Trim(itm.Subject)

For Each objAtt In itm.Attachments
If objAtt.FileName <> "image001.gif" Then
objAtt.SaveAsFile saveFolder & "\" & itm.Subject & ".JPG"
End If

Set objAtt = Nothing
Next
End Sub

Hi,

I would like to ask for help. I am using Office 365 and tried to use this code to save attachments from Outlook and rename them as subject of email.
However I encountered the problem.

This VBA code is working:

Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\ppp\Desktop\Image Test"

For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "" & objAtt.DisplayName


Set objAtt = Nothing
Next
End Sub

However when I want to amend it so that it saves the pdf attachments with the subject of the email it is not working. File is being saved down as type: file (not PDF) and size is 0 KB. Additionaly it doesn't save down the file with the subject name but with the name of the attachment.

VBA code which I am using
Public Sub saveAttachtoDisk(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\ppp\Desktop\Image Test"
MSN = Trim(itm.Subject)

For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "" & itm.Subject & ".PDF"

Set objAtt = Nothing
Next
End Sub


Can somebody advise me please? I spent few days on solving this and have no further idea how to solve it