Yo tengo un Codigo: espero que te sirva:
Private Sub EnviaMail()
Dim _Message As New System.Net.Mail.MailMessage()
Dim _SMTP As New System.Net.Mail.SmtpClient
'CONFIGURACIÓN DEL SERVER
_SMTP.Credentials = New System.Net.NetworkCredential("MAIL_DESDE_EL_QUE_SE _MANDA", "PASS") ' Se Necesita una cuenta de correo Para MANDAR el Mensaje
_SMTP.Host = "smtp.gmail.com" 'GMAIL es de los pocos que funciona.. los demas estan CAPAOS!
_SMTP.Port = "587" 'PUERTO
_SMTP.EnableSsl = True
' CONFIGURACION DEL MENSAJE
Try
_Message.Bcc.Add("
[email protected]") 'Cuenta de Correo al que se le envia el mail (Puedes añadir mas destinatarios, solo COPIA LA LINEA o Metela en un Blucle...
_Message.From = New System.Net.Mail.MailAddress("NOMBRE DE ORIGEN", System.Text.Encoding.UTF8) 'Quien lo envía (no es necesario e-mail!
_Message.Subject = "ASUNTO X" 'Asunto del e-mail
_Message.SubjectEncoding = System.Text.Encoding.UTF8 'Codificacion
_Message.Body = "CONTENIDO" 'contenido del mail
_Message.BodyEncoding = System.Text.Encoding.UTF8
_Message.Priority = System.Net.Mail.MailPriority.Normal
_Message.IsBodyHtml = False 'Esto te sirve por si quieres que lea Html (Es decir que procese etiquetas <br /> por ejemplo o stylos.
Catch ex As FormatException
LabelError.ForeColor = Drawing.Color.Red
LabelError.Text = "Error: " & ex.ToString 'Un label que le metí para mostrar en caso de error
End Try
'ENVIO
Try
_SMTP.Send(_Message)
LabelError.ForeColor = Drawing.Color.DarkGreen
LabelError.Text = "El Mensaje se ha Enviado Correctamente" ' MENSAJE OK
Catch ex As System.Net.Mail.SmtpException
LabelError.ForeColor = Drawing.Color.Red
LabelError.Text = "Error: " & ex.ToString 'POR SI HAY ERROR
Catch ex As System.InvalidOperationException
LabelError.ForeColor = Drawing.Color.Red
LabelError.Text = "Error: " & ex.ToString 'POR SI HAY ERROR
End Try
End Sub
Mete un Boton "SEND" que abra ese proceso...
Espero que te Sirva, ya nos comentas!