Private SMTP As SMTP
SMTP.Initialize("mail.smtp2go.com",587,"username","password","SMTP")
SMTP.Subject = "Subject"
SMTP.Body = "Body"
SMTP.To.add("[email protected]")
SMTP.MailFrom="[email protected]" 'DO NOT FORGET TO ADD YOUR DOMAIN SENDER MAIL
SMTP.Sender="[email protected]" 'DO NOT FORGET TO ADD YOUR DOMAIN SENDER MAIL
SMTP.StartTLSMode = True
SMTP.Send
Wait For SMTP_MessageSent(Success As Boolean)
Log(Success)
If Success Then
Log("Success")
Else
Log("Error sending email")
Log(LastException.Message)
End If