Email Merge with Outlook 2000 and MS Access

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

Guest

I have created a contacts table in MS Access. I need to send the same
reminder email to all people in this list using their email addresses, (only
this field) on the first of every month. Any ideas on the best way to
automate this process using Outlook 2000?
 
Vikas:

One alternative would be to use the code in the following KB article inside
a recordset loop that contains the email addresses.

http://support.microsoft.com/default.aspx?scid=kb;en-us;209948

--
David Lloyd
MCSD .NET
http://LemingtonConsulting.com

This response is supplied "as is" without any representations or warranties.


I have created a contacts table in MS Access. I need to send the same
reminder email to all people in this list using their email addresses, (only
this field) on the first of every month. Any ideas on the best way to
automate this process using Outlook 2000?
 
Hi,

Just dd the command "Do while until EOF"

You will need this reference "Microsoft Outlook xx.x Object Library" (xx.x
means version number of your application)

===============================================================================================
Sub SendWithAtt()
Dim Olapp As Outlook.Application
Dim OlMail As MailItem
Set Olapp = New Outlook.Application
Set OlMail = Olapp.CreateItem(olMailItem)

With OlMail
.To = "(e-mail address removed)" 'use the field of your table instead of
the email address
.CC = "(e-mail address removed)"
.BCC = (e-mail address removed)
.Subject = "Test"
'.Attachments.Add ("D:\Form.txt")
'.Display 'permit to see the message before sending it.
.Send
Set OlMail = Nothing
End With

Set Olapp = Nothing

End Sub
===============================================================================================
 
Back
Top