VBA - To save attachment from email to folder

**narindran** · 11-27-2016, 10:43 PM

hi,

I want to find the way to save emails from outlook to specific location in drive which varies by month.

My intension is to save the file directly to folders (that existed) by months (if the email received on Dec, it will saved directly to Dec folder) rather than one specific folder.

Current code

Public Sub Save1(itm As Outlook.MailItem)
Dim objAtt As Outlook.Attachment
Dim saveFolder As String
saveFolder = "C:\Users\narindran\Documents\"
For Each objAtt In itm.Attachments
objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub

Appreciate for your help.

**NickyC** · 11-27-2016, 11:35 PM

Hi
if your directories follow a logical sequence based on month names, e.g. C:\Users\narindran\Documents\Jan\, you could try something like this:

Sub Save1()
Dim itm As Outlook.MailItem
Dim objAtt As Outlook.Attachment
Dim saveFolder As String, SaveFolderRoot
Set itm = GetCurrentItem
SaveFolderRoot = "C:\Users\narindran\Documents\"
For Each objAtt In itm.Attachments
    saveFolder = SaveFolderRoot & Format(itm.ReceivedTime, "MMM") 
    objAtt.SaveAsFile saveFolder & "\" & objAtt.DisplayName
Set objAtt = Nothing
Next
End Sub

VBA - To save attachment from email to folder

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

VBA - To save attachment from email to folder

Re: VBA - To save attachment from email to folder

Thread Information

Users Browsing this Thread

Similar Threads

[SOLVED] How to get outlook email attachment using excel vba and save it in a specified folder

Find PDF in Folder based on cell value and add as attachment to email and send

Save an Outlook attachment and move the email to a folder based and sender

Dowload outlook email attachment to my pc folder using Excel VBA

Dowload outlook email attachment to my pc folder

auto save e-mail attachment to folder after sending

Improve Macro to Save Attachment to Folder

Bookmarks

Bookmarks

Posting Permissions