Attachments in Outlook :-)

[Mungovan]

Hi!
Basically this is my boggle;

I have a bunch of e-mails in an Outlook folder that all have attachment that are of the same type. The e-mails are sent into this Outlook folder using rules wizards, grand.

What I want to do is to be able to have Outlook to automatically extract the attachments from each message, and send the attachments to a folder on my C: Drive.

Can this be done?? I'm competent with Visual Basic.

Anywho, hope someone can help,
Thanks a million,
D

 

[ratman]

Stick this in your email sending loop and it will save a copy of each attachment with a revised filename (which is just todays date appended to the attachment filename) to your C:
myattachment = "C:\AttachmentFile.xls" 'make this a variable
.Attachments.Add myattachment, olByValue, 2
ChDir "C:\"
fordate = Format(Date, "mmddyy&quot
dailyfile = myattachment & "_" & fordate & ".xls"
FileCopy myattachment, dailyfile Thank you,
Dave Rattigan

 

[Mungovan]

Hi, thanks,
Where do I put this code?? And I want to keep the same attachment file as the one I receive.

Thanks,
D