Trying to Email the files in a folder

Hi all,

I am trying to send the mails containing every unique file as attachments through a VBA program. When I try like following :

for each i in myFolder.files
olMailItem.Attachments.Add i, olByValue, "Attachment" ' insert attachment
next

it gives me error..here is the complete code:

Please Login or Register  to view this content.

Please suggest.

Thanks,
Vikas

Resolved!

Thanks!!!

i found your code very interesting, do you mind posting the fixed one??
thx

MSP