Envio de correo por Microsoft Exchange desde .Net

0
1317

Descargar solución EnvioCorreoWindows_Exchange.zip

Algo muy importante es identificar la direccion del Servidor Exchange y poseer permisos para enviar correos, osea tener un usuario registrado para la debida autenticación.

Para autenticar con el servidor debemos indicarle el protocolo

Fields.Add(» http://schemas.microsoft.com/cdo/configuration/smtpauthenticate», «2») ‘; ‘basic authentication

Más explicitamente el mensaje sería:

Dim email As New MailMessage

With email
.From = Me.txtDe.Text
.To = Me.txtPara.Text
.Subject = Me.txtAsunto.Text
.Body = Me.txtMensaje.Text
.BodyFormat = MailFormat.Text
.Priority = MailPriority.High

If Me.rbExchange.Checked Then
.Fields.Add("http://schemas.microsoft.com/cdo/" & _
"configuration/smtpauthenticate", "2") 'authentication
Else

.Fields.Add("http://schemas.microsoft.com/cdo/" & _
"configuration/smtpauthenticate", "1") 'authentication
.Fields.Add("http://schemas.microsoft.com/cdo/" & _
"configuration/sendusername", Me.txtPOP3User.Text) 'usuario
.Fields.Add("http://schemas.microsoft.com/cdo/" & _
"configuration/sendpassword", Me.txtPOP3Pass.Text) 'password
End If
End With

SmtpMail.SmtpServer = Me.txtExchangeServer.Text

SmtpMail.Send(email)

Descargar solución EnvioCorreoWindows_Exchange.zip

Dejar respuesta

Please enter your comment!
Please enter your name here

Protected with IP Blacklist CloudIP Blacklist Cloud