Macro to Save Attachments to Specific Folder

[boss1982]

Hi All,

Please I need a Macro to save attachments in every selected email messages to specific folder.

I am using Outlook 2010

Thanks.

[imliterature]

Sub Download_contracts(MyMail As MailItem)
Dim strID As String
Dim objNS As Outlook.NameSpace
Dim objMail As Outlook.MailItem
Dim objAtt As Outlook.Attachment
Dim c As Integer
Dim save_name As String
'Place path to sav to on next line. Note that you must include the
'final backslash
Const save_path As String = "D:\My Documents\Muhammad contracting\Contracts\"

strID = MyMail.entryID
Set objNS = Application.GetNamespace("MAPI")
Set objMail = objNS.GetItemFromID(strID)

If objMail.Attachments.Count > 0 Then
For c = 1 To objMail.Attachments.Count
Set objAtt = objMail.Attachments(c)
save_name = Left(objAtt.FileName, Len(objAtt.FileName) - 4)
'save_name = save_name & Format(objMail.ReceivedTime, "_mm-dd-yyyy_hhmm")
save_name = save_name & Right(objAtt.FileName, 4)
objAtt.SaveAsFile save_path & save_name

Next
End If

Set objAtt = Nothing
Set objMail = Nothing
Set objNS = Nothing
End Sub

[boss1982]

thanks, but if i put the code with SAVE_SI(MyMail As MailItem); the outlook will not see it as a macro.

and if i put it like SAVE_SI(), the macro will itself will not work

[arlu1201]

imliterature,

Welcome to the forum.

I have added code tags to your post. As per forum rule 3, you need to use them whenever you put any code in your post. Please add them in future. In order to put code tags, either type [CODE] before your code and [/CODE] at the end of it, OR you can highlight your code and click the # icon at the top of your post window.

[boss1982]

any help please?

[boss1982]

any help please ??