Dim Msg As New System.Web.Mail.MailMessage
Msg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.seudominio"
Msg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
Msg.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
Msg.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
Msg.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername") = "suaconta@seudominio"
Msg.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "senha"
Msg.To = "contadodestinataria@dominio"
Msg.From = "suaconta@seudominio"
Msg.Subject = "Assunto"
Msg.Body = "Mensagem"
System.Web.Mail.SmtpMail.SmtpServer = "mail.seudominio"
System.Web.Mail.SmtpMail.Send(Msg)