Note: If you need to send out a massive amount of emails this code is not for you, instead we recommend FMS’s Total Access Emailer.

Note 2: You must add a reference to Outlook in your Access project in order for this code to work, if you need an alternate version that does not require it then look at the next section of this post below:

Dim objOutlook As Outlook.Application

Dim objOutLookMsg As Outlook.MailItem

Dim strBody as String

strBody = «Insert you body message here.»

Set objOutlook = New Outlook.Application

Set objOutLookMsg = objOutlook.CreateItem(0)

With objOutLookMsg

.To = «w@what_Ever.com»

.CC = «any@what_ever.com»

.Subject = «Enter Your Subject Here»

.Body = strBody

.Send

End With

Code without a reference to Outlook:

Dim objOutlook As Object

Dim objOutLookMsg As Object

Dim strBody as String

strBody = «Insert you body message here.»

Set objOutlook = CreateObject(«Outlook.Application»)

Set objOutLookMsg = objOutlook.CreateItem(0)

With objOutLookMsg

.To = «w@what_Ever.com»

.CC = «any@what_ever.com»

.Subject = «Enter Your Subject Here»

.Body = strBody

.Send

End With