Total Access Emailer Professional Edition for Microsoft Access offers the TotalAccessEmailer_SetPasswords function, which can programmatically change the passwords for your Mail Server and Firewall, encrypting them before saving them to the Options table.
If you change the passwords by editing the Options table directly, the passwords are not encrypted. For optimal security, use the TotalAccessEmailer_SetPasswords function to change passwords.
Public Function TotalAccessEmailer_SetPasswords( _ ByVal strLogonPassword As String, _
Optional strOptionsTbl As String = "usysTEmailerOptions") _
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”.
The following sample code sets the two passwords:
Private Sub SetPasswords()
' Comments: Sets the mail server and firewall passwords
Dim strError As String
strError = TotalAccessEmailer_SetPasswords("MyLogonPwd", "FirewallPwd")
Remember that for this sample to work, Total Access Emailer must be loaded as a library in the Access Tools, References menu.
For more information on using the Programmatic Interface of Total Access Emailer, please see the Total Access Emailer PDF Help File. Chapter 7 covers the instructions and examples for calling and using the Programmatic Interface functions.