Enviar email con dirección SMTP

Publicar un comentario

2 Comentarios

  1. Buenas tardes intento hacer este procedimiento, pero mi puerto de salida es la 465 y no me envia el correo?? alguna sugerencia. Gracias

    ResponderBorrar
  2. El puerto 465 utiliza conexión de seguridad SSL, intenta con este código:

    Imports EASendMail 'Add EASendMail namespace
    Module Module1
    Sub Main()
    Dim oMail As New SmtpMail("TryIt")
    Dim oSmtp As New SmtpClient()

    oMail.From = "de@email.com"
    oMail.To = "para@email.com"
    oMail.Subject = "Titulo"
    oMail.TextBody = "Contenido"

    ' tu smtp
    Dim oServer As New SmtpServer("smtp.email.com")

    'puerto
    oServer.Port = 465

    ' conexión SSL
    oServer.ConnectType = SmtpConnectType.ConnectDirectSSL

    'usuario y contraseña para validar
    oServer.User = "usuario@email.com"
    oServer.Password = "contraseña"

    Try
    me.label1.text="Envió correcto"
    Catch ep As Exception
    me.label1.text="Error"
    End Try
    End Sub
    End Module

    ResponderBorrar