SMTP.Initialize(strServerAdr, iPort, strUser, strPassword, "SMTP")
Select Case iMode
Case 1
SMTP.StartTLSMode = True
Case 2
SMTP.UseSSL = True
End Select
Select Case AuthMode
Case "Plain"
SMTP.AuthMethod = SMTP.AUTH_PLAIN
Case "Login"
SMTP.AuthMethod = SMTP.AUTH_LOGIN
Case "Cram Md5"
SMTP.AuthMethod = SMTP.AUTH_CRAM_MD5
End Select
SMTP.HtmlBody = chkUseHtml
SMTP.Sender = strMailFrom
SMTP.To = strTo
SMTP.Subject = "Test message"
SMTP.Body = " This message is sent to indicate the email setting for software configuration are correct"
SMTP.Send