Sending Microsoft Access Email Blasts Programmatically (VBA)

Total Access Emailer add-in includes a Code Generator that lets you interactively choose to run or preview the email blast, specify other options, and see the corresponding VBA code for the currently selected email blast. Then paste the code into your module to run your email blast.

Code Generator to Send or Preview Email Blasts from Total Access Emailer

By adding Total Access Emailer's royalty-free runtime distribution file as a library reference to your project, you can invoke its procedure. Any email blast created by the add-in can be added to your application with a simple function call. Each email blast is given a number. In this example, email blast #25 is sent:

strError = TotalAccessEmailer(25, False, "", "", True, True)

That's all you need to add the sophisticated email features of Total Access Emailer into your applications. The user interface can be completely hidden so your users don't even realize Total Access Emailer is running in the background. You control your user's experience.

Procedure Definition

Public Function TotalAccessEmailer( _
  lngEmailID As Long, fRestartBlast As Boolean, _
  strDisplayType As String, strDisplayTitle As String, _
  fShowResults As Boolean, fShowErrors As Boolean, _
  Optional strEmailTbl As String, Optional strOptionsTbl As String, _
  Optional strEmbedTbl As String, Optional strOptionsDataTbl As String) _
As String

Return Value

The function returns a blank string if it's successful or an error string if there's a problem. You can choose to display that to the user or hide it and process it yourself.

Running the Function from a Macro

Public functions in a standard module (not in a class or behind a form or report) can be run from a macro using the RunCode command. That means you can create a macro that can run an email blast or a series of email blasts. For more details, visit Running VBA Code from a Microsoft Access Macro.

Similar to the TotalAccessEmailer function, you can preview an email blast by sending the email to an email address you specify rather than the recipient in your data source. This lets you or your users verify the emails are correct before actually sending them. This is similar to the Preview feature in the add-in.

Email Preview Function

A function called TotalAccessEmailer_Preview is similar to the TotalAccessEmailer function described above with the addition of two parameters:

The TotalAccessEmailer_PreviewSaveFiles function supports previewing email blasts with the File Save option. The extra parameter specifies the folder to save copies of the file attachments.

Total Access Emailer offers a function to let you send a single email without creating a pre-defined email blast. It lets you send an email directly from your VBA code while using the SMTP server settings you've already specified in Total Access Emailer. It doesn't have all the features of an email blast such as attaching filtered reports, but it does support the basics of sending a text or HTML email.

Procedure Definition

Public Function TotalAccessEmailer_SendOne( _
  strFrom As String, strTO As String, strCC As String, strBCC As String, _
  strSubject As String, strMessageText As String, strMessageHTML As String, strHTMLFile As String, _
  Optional strAttachments As String, Optional intPriority As Integer, _
  Optional intSensitivity As Integer, Optional fReadReceipt As Boolean, _
  Optional strOptionsTbl As String, Optional strOptionsDataTbl As String) _
As String

Parameters

The parameters let you create standard text and HTML emails with attachments, and message status

• Email addresses for From, To, Cc, Bcc
• Subject
• Text message
• HTML message or HTML message from a saved HTML file. If the HTML file references graphics in its own folder, those graphic files will be automatically included in the message.
• Files on disk to attach
• Message priority, sensitivity, read receipt (see the manual or help file for details)

With the TotalAccessEmailer_SendOne function, you can send emails with more options and control than the built in DoCmd.SendObject method.