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.
How to Encrypt and Set Passwords for the Mail Server in the Professional Version of Total Access Emailer?
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.
Public Function TotalAccessEmailer_SetPasswords( _ ByVal strLogonPassword As String, _ ByVal strFirewallPassword As String, _ Optional strOptionsTbl As String = "usysTEmailerOptions") _ As String
The function returns an empty string if the passwords were set without errors, or the error string.
The TotalAccessEmailer_SetPasswords function has these parameters:
- strLogonPassword (string) - The password to log onto the Mail Server.
- strFirewallPassword (string) - The firewall password.
- strOptionsTbl (string) - Optionally specify the table in the database containing the Send and SMTP options. the default value is "usysTEmailerOptions".
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.