save excel attachments sent by email

[bonovox1]

Hi, im trying to write a macro that will save files from a specific email address into a specific folder. I will be recieving files from 5 differnt mail addresses on a daily basis and i want to be avle to save them to a date stamped folder.

 

[Andrew Poulsom]

You should be able to use Item.Sender.

 

[bonovox1]

Andrew, i'm not too sure where to add in the item.sender. The below appears not to work.


For Each Item In SubFolder.Items
For Each Atmt In Item.Attachments
' Check filename of each attachment and save if it has "xls" extension
If Right(Atmt.FileName, 3) = "xls" Or Right(Atmt.FileName, 4) = "xlsx" Or Right(Atmt.FileName, 5) = "xlsx" Then
' This path must exist! Change folder name as necessary.
FileName = "C:\Email Attachments\" & _
Format(Item.CreationTime, "yyyymmdd_hhnnss_") & Atmt.FileName.Item.sender
Atmt.SaveAsFile FileName
i = i + 1
End If
Next Atmt
Next Item

 

[Andrew Poulsom]

Try:

FileName = "C:\Email Attachments\" & _
Format(Item.CreationTime, "yyyymmdd_hhmmss_") & Item.Sender & Atmt.FileName

 

[bonovox1]

Andrew i get an "error 438"......error description....."object doesn't support this object or method"

 

[Andrew Poulsom]

Bad guess. Try SenderName.

 

[bonovox1]

Andrew the macro runs and exports the email attachments but does add on the email address to the file name.

 

[Andrew Poulsom]

I don't think the EMail address is exposed in the Outlook object model. Maybe this will help you:

http://www.outlookcode.com/d/code/getsenderaddy.htm

 

[bonovox1]

thks Andrew...i had a look at your link.....appears quite complicated for my level. Your certain that this can't be done in my macro and that the EMail address is not exposed in the Outlook object model?

 

[Andrew Poulsom]

Well, we tried Sender and it doesn't exist and SenderName didn't seem to return anything. And in the link I posted Sue Mosher, an Outlook MVP, says "no obvious way to get the sender's e-mail address".

 

[bonovox1]

ok thanks Andrew for all the help. Is there any other way that i can distinguish the attachments?