Email Merge with Outlook 2000 and MS Access

V

Vikas Arya

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?
 
D

David Lloyd

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?
 
L

Line R.

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 = "[email protected]" 'use the field of your table instead of
the email address
.CC = "[email protected]"
.BCC = [email protected]
.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
===============================================================================================
 
Top