Enviar Mail

[Fernando_net]

Buenas.

He probado esto pero no tengo respuesta sobre si me lo ha enviado o no y en la bandeja de entrada no lo veo.

Es otra forma de hacerlo, como la veis?

Código Visual Basic .NET:

Imports System.Net.Mail
 
Module correo
    Public Sub correo()
        Dim correo As SmtpClient = New SmtpClient()
 
        correo.Host = "SMTP de la empresa"
 
        Dim desde As MailAddress = New MailAddress("[email protected]")
 
        Dim para As MailAddress = New MailAddress("[email protected]")
 
        Dim mensaje As MailMessage = New MailMessage(desde, para)
 
        mensaje.Body = "Esto es una prueba"
        mensaje.BodyEncoding = System.Text.Encoding.UTF8
        mensaje.Subject = "Correo enviado"
        mensaje.SubjectEncoding = System.Text.Encoding.UTF8
 
        correo.SendAsync("[email protected]", "[email protected]", mensaje.Subject = "Prueba de correo", mensaje.Body = "Esto es una prueba")
    End Sub
End Module
 

Saludos