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)