Sub Button1_Click
Log("started")
Dim smtp As SMTP
smtp.Initialize(smtpServer, smtpPort,smtpUserEmail, smtpUserPassword, "smtp")
smtp.StartTLSMode = True
smtp.UseSSL = True
smtp.Subject = "This is Subject"
smtp.Body = "Hello world"
smtp.To.Add(receipientEmail)
smtp.Send
Wait For smtp_MessageSent(Success As Boolean)
Log(Success)
Log(LastException)
End Sub