Automate email send to multiple people with different attachments

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi,
I would like to send the same email message to 500 employees. I would like
to attach their personal and unique word doc, excel file or PDF file to the
email and I would to do this automatically. Does anyone know if this can be
done? And, how to do it?
Thank you
 
It almost certainly can be done with third-party merge tools; see http://www.slipstick.com/addins/mail.htm#massmail

How it might be done practically as an Outlook programming project depends in part on your version of Outlook and how any such program would discover the "personal and unique" attachment for each recipient.
--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
 
Yes, all this can be done. The code below gives you a starting point on how
to send multiple e-mails and attach files. You just need to figure out how
to relate certain files to certain recipient addresses. When working with
the file system, use the Microsoft Scripting Runtime library. This object
model will allow you to iterate through File objects in a Folder object given
a known folder path.

Sub SendMultipleEmails()
Dim objMail As Outlook.MailItem
Dim intX As Integer


For intX = 1 To 10 'Or get the value of intX from a file count
Set objMail = Application.CreateItem(olMailItem)
objMail.Subject = "My subject line"
objMail.Body = "My message body"
objMail.To = "(e-mail address removed)"
objMail.Attachments.Add "C:\temp\myfile.doc"
objMail.Send
Set objMail = Nothing
Next
End Sub
 
Back
Top