altre alternative
codice:
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "tecnico@miodominio.it"
objEmail.To = "destinatario@altrodominio.it"
objEmail.Subject = oggetto
objEmail.Textbody = "Mail di prova"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "smarthost" 
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
codice:
Dim mail As New Mail.MailMessage()
mail.From = "tecnico@miodominio.it"
mail.To = "destinatario@altrodominio.it"
mail.Subject = oggetto
mail.Body = "Mail di prova"
mail.BodyFormat = Mail.MailFormat.Html
SmtpMail.Send(mail)