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

How to Encrypt and Set Passwords for the Mail Server in the Professional Version of Total Access Emailer?

Answer

The Professional Version of Total Access Emailer has a VBA function called TotalAccessEmailer_SetPasswords that programmatically changes the passwords for your Mail Server, encrypting them before saving them to the Options table.

Procedure Definition

Public Function TotalAccessEmailer_SetPasswords( _
 ByVal strLogonPassword As String, _
 ByVal strFirewallPassword As String, _
 Optional strOptionsTbl As String = "usysTEmailerOptions") _
As String

Return Value

The function returns an empty string if the passwords were set without errors, or the error string.

Parameters

The TotalAccessEmailer_SetPasswords function has these parameters:

1. strLogonPassword (string) - The password to log onto the Mail Server.
2. strFirewallPassword (string) -  The firewall password.
3. strOptionsTbl (string) - Optionally specify the table in the database containing the Send and SMTP options. the default value is "usysTEmailerOptions".

Sample Code

Below is an example of the TotalAccessEmailer_SetPasswords Function:

Private Sub SetPasswords()
 ' Comments: Sets the mail server and firewall passwords
 Dim strError As String
 strError = TotalAccessEmailer_SetPasswords( _
 "MyLogonPwd", "FirewallPwd")
End Sub

Remember that for this example to work, Total Access Emailer must be loaded as a library in the Access Tools, References menu.

Additional Support Resources

• Support Options
• Product Information
• FAQs
• Updates
• User Manual
• PDF Fact Sheet