Sub sendMail
Dim smpt As SMTP
smpt.Initialize("xxx",465,"xxx","xxx","smpt")
smpt.To.Add("xxx")
smpt.HtmlBody = True
smpt.UseSSL = true
smpt.Subject = "html test"
smpt.Body = $"<h1 style="background-color:blue; color: white; text-align: center;">This Is a Test</h1><br><a href="https://www.b4x.com">Visit b4x.com</a>"$
smpt.Send
Wait For smpt_MessageSent(Success As Boolean)
If Success Then
Log("mail sent!")
Else
Log("error")
End If
End Sub