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]

Aren't they aleady distinguished by date and time?

 

[bonovox1]

yes but it's not much use...as they come in at differnt times each day and contain the exact same type of data. so i have no real way of distinguishing between the data i save down in the folder.

 

[bonovox1]

is there any way of renaming each download as filex where x is 1,2,3,.....?

 

[Andrew Poulsom]

Yes, just change what you assign to the filename variable.

 

[bonovox1]

hi again. Is it possible to save an attachment as the email address it was sent from?

 

[Andrew Poulsom]

Can't you use the function in post #17 to get the sender?

 

[bonovox1]

thks andrew for the quick reply. Im not sure how i should tie this function in with my working code?

 

[Andrew Poulsom]

Copy the function GetFromAddress into the module that contains your code. Then try:

FileName = "C:\Email Attachments\" & _
GetFromAddress(Item) & Item.Sender & Atmt.FileName

 

[bonovox1]

i get error 429.

error description; activex component can't create object.

 

[Andrew Poulsom]

It seems you need to install CDO:

http://support.microsoft.com/kb/171440/EN-US/%C2%A0