Background
Total Access Emailer is the world's most popular Microsoft Access email add-in product and VBA code library. Simplify the way you communicate with your contacts, and easily share the data and reports from your Microsoft Access databases with personalized emails for each recipient.
Question
Is there a way to send a single email message from Total Access Emailer?
Answer
Yes there is. With the Professional Edition of Total Access Emailer, there is a function that you can call from your code entitled "TotalAccessEmailer_SendOne". Using this function, you provide the FROM address, TO address, subject, message, etc., and the email is sent using your SMTP settings.
For complete documentation, including the supported parameters, please see the PDF manual documentation. The manual can be downloaded at the following URL:
https://www.fmsinc.com/MicrosoftAccess/Email/manual/index.htm
Below is a sample of the code that can be used.
===< Begin Code >===
Dim strError As String
DoCmd.Hourglass True
strError = TotalAccessEmailer_SendOne(Nz(Me.txtFrom), Nz(Me.txtTo), Nz(Me.txtCc), Nz(Me.txtBcc), Nz(Me.txtSubj), Nz(Me.txtText), Nz(Me.txtHTML), Nz(Me.txtHTMLFile), Nz(Me.txtAttach), Nz(Me.cboPriority, 3), Nz(Me.cboSensitivity))
DoCmd.Hourglass False
If strError = "" Then
MsgBox "Message sent."
Else
MsgBox strError
End If
===< End Code >====
Comments
0 comments
Please sign in to leave a comment.