Buenas aquí te dejo una función que te permite enviar email usando hotmail o Office365.
te dejo todo el código muy fácil y sencillo
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 |
Dim oMail As New SmtpMail("Email") ' tu direccion email oMail.From = "miemaild@hotmail.com" ' Destinatario oMail.To = "adondeva@loquesea.com" oMail.Subject = "Este es el asunto" oMail.TextBody = "Este es el mensaje" ' Servidor smtp de hotmail Dim oServer As New SmtpServer("smtp.live.com") ' Para office465 ' Dim oServer As New SmtpServer("smtp.office365.com") 'el inicio de sesion en hotmail oServer.User = "miemaild@hotmail.com" oServer.Password = "tucontraseña" ' los puertos que utiliza son el 25 y el 587 oServer.Port = 587 'detectar si usa tsl o ssl de forma automatica oServer.ConnectType = SmtpConnectType.ConnectSSLAuto msgbox("Ahora inicia el envio") Dim oSmtp As New SmtpClient() oSmtp.SendMail(oServer, oMail) Msgbox("Envio completado") |
Y Hasta aqui el ejemplo de enviar un email usando hotmail.