sub CompleteOrder
If FirstSmtp Then
SMTP.Initialize("smtp.gmail.com", 587, "xxxxxx", "yyyyyy", "SMTP")
SMTP.StartTLSMode = True
FirstSmtp = False
End If
SMTP.To.Add("xxxxxx")
SMTP.Subject = "This is the subject"
SMTP.Body = "This is the message body."
SMTP.Send
End Sub
Sub SMTP_MessageSent(Success As Boolean)
Log(Success)
If Success Then
ToastMessageShow("Message sent successfully", True)
Else
ToastMessageShow("Error sending message", True)
Log(LastException.Message)
End If
End Sub