Dim headlers As Map
headlers.Initialize
headlers.Put( "X-Mailer","Junesse Global Marketing")
headlers.Put( "X-Confirm-reading-to",mail)
headlers.Put( "Disposition-Notification-To",mail)
headlers.Put( "Return-Receipt-to",mail)
headlers.Put( "Reply-to",mail)
headlers.Put( "Fwd",mail)
Dim SMTPClient As SMTP
SMTPClient.Initialize("email3-wh.vhosting-it.com", 25, "jeunesseglobal@ivanomonti.eu", "xxxxxxx", "SMTP")
SMTPClient.HtmlBody = True
SMTPClient.Sender = "jeunesseglobal@ivanomonti.eu"
SMTPClient.To.Add(mail)
SMTPClient.Subject = "Jeunesse Global Italia - Ivano Angelo Monti"
SMTPClient.Body = page
SMTPClient.Send