Enviar Mail

[Fernando_net]

Saludos a todos.

He logrado que envie correos, al fin :D

Pego el código fuente para alguien que tenga el mismo problema:

Código Visual Basic .NET:

Imports System.Net.Mail
 
Module correo
    Public Sub correo()
        Dim correo_enviar As SmtpClient = New SmtpClient()
 
        correo_enviar.Host = "SMTP de la empresa"
        correo_enviar.Credentials = New System.Net.NetworkCredential("[email protected]", "contraseña")
 
        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.Send(desde.ToString, para.ToString, mensaje.Subject, mensaje.Body)
    End Sub
End Module
 

El único problema es que me sale en el buzón de "Correo no deseado" :(

Saludos