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, "[email protected]", "xxxxxxx", "SMTP")
SMTPClient.HtmlBody = True
SMTPClient.Sender = "[email protected]"
SMTPClient.To.Add(mail)
SMTPClient.Subject = "Jeunesse Global Italia - Ivano Angelo Monti"
SMTPClient.Body = page
SMTPClient.Send