Dim s As SMTP
s.Initialize("smtp.domain.com", 587, "mail@domain.com", "xxxxxxxx", "smtp")
s.StartTLSMode = True
s.Sender = "mail@domain.com" 'support2 vs support.
s.Subject = "Welcome aboard capitain !"
s.HtmlBody = True ' setting html support
s.Body = $"
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<meta name="viewport" content="width=device-width, initial-scale=1.0"/>
</head>
<body style="margin: 0; padding: 0;">
Welcome aboard capitain .</br></br>
Your login details : </br></br>
Email : ${usermail}</br>
Password : ${userpass}</br>
</body>
</html>
"$
s.To.Add(usermail)
s.Send
Wait For smtp_MessageSent(Success As Boolean)
Log(Success)