Enviar Correos con autenticacion en exchange

[ErickValken]

hola chicos aqui les dejo un aporte de como enviar correos traves de un servidor exchange. saludos

Imports System.Net.Mail
Imports System.Web
Imports System.Net


Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim correo As New System.Net.Mail.MailMessage()
correo.From = New System.Net.Mail.MailAddress("")
correo.To.Add("")
correo.Subject = ""
correo.Body = ""
'Estabvlece en TRUE si vas a enviar codigo HTML
correo.IsBodyHtml = False
'Prioridad del Correo Alta, Baja, Normal
correo.Priority = System.Net.Mail.MailPriority.Normal

Dim smtp As New System.Net.Mail.SmtpClient
smtp.Host = ""
smtp.Credentials = _
New System.Net.NetworkCredential("", "")
'Establece en True Cuando el Servidor Requiere una conexion segura
smtp.EnableSsl = True
'---------------------------------------------
' Estos datos debes rellanarlos correctamente
'---------------------------------------------
smtp.Host = ""
smtp.Credentials = New System.Net.NetworkCredential("", "")
smtp.EnableSsl = False

Try
smtp.Send(correo)
MsgBox("Mensaje enviado satisfactoriamente")
Catch ex As Exception
MsgBox("ERROR: " & ex.Message)
End Try
End Sub
End Class