aca esta xD
Dim correo As New System.Net.Mail.MailMessage
correo.From = New System.Net.Mail.MailAddress("micorreo@correo.com")
Dim mailx2 As New System.Net.Mail.MailAddress("correo destino")
correo.To.Add(mailx2)
correo.Subject = "subjet"
correo.Body = "cuerpo bla bla "
correo.IsBodyHtml = true (si es html =true)
correo.Priority = System.Net.Mail.MailPriority.High
Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = "host del que envia" smpt
smtp.Credentials = New System.Net.NetworkCredential("usuariossmpt","clave")
Try
smtp.Send(correo)
Return "enviado"
Catch ex As Exception
Return "ERROR: " & ex.Message
End Try
End Function
No hay comentarios:
Publicar un comentario