Individual Outlook mails with attachments (select from folder)

so you want to loop through the subdirs, pick out the right PDFs, and send them as attachments in individual emails?

Dear Maniacb,

only one mail is able to send and gives and not able to send mails from second line. Error highlighted in below line.
.To = Sheet1.Cells(i, "AN").Value

Error discreption
Run time error '91:
Object Variable or with block variable not set.


Also there is no need to fill the dates for AP Column. Nothing has to be done in AP column.

alright, try it now

Please Login or Register  to view this content.

Dear maniacb,
Now it is working.
but when the file is missing then it is showing an error and not moved to next line.
Can it be possible that if mail are sent then in AQ column it comes as "mail successfully sent". and moved to next line
if not able to sent then "file name - missing mail not sent" and moved to next line.

Dear maniacb,
It is always showing in AQ "File has NOT been sent" and no mails are able to sent (even when the files are correct in the folder)

Try now. I was trapping the wrong error and had to recreate your environment to find the right error code.

Please Login or Register  to view this content.

Dear Maniacb,
you are really very helpful and awesome.
The code is working fine now .

If that takes care of your original question, please select*Thread Tools*from the menu link above and mark this thread as SOLVED.

Also, as a relatively new member of the forum, you may not be aware that you can thank those who have helped you by clicking the small star icon located in the lower left corner of the post in which the help was given. By doing so you can add to the reputation(s) of those who helped.