Dim Mail As SMTP
Mail.Initialize(strSMTPServerAddress_, "25", strUserName_, strPassword_, "Email")
Mail.UseSSL = False
Mail.AuthMethod = Mail.AUTH_LOGIN
Mail.To.Add(strMailToAddress)
Mail.Subject = "test subject"
Mail.Body = "test message"
Mail.Sender = strSenderEmailAddress_
Mail.Send