Foros del Web » Programación para mayores de 30 ;) » .NET »

Envío de correo utilizando Exchange

Estas en el tema de Envío de correo utilizando Exchange en el foro de .NET en Foros del Web. Tengo que desarrollar un vbscript que envie un email utilizando Exchange pero con autenticación integrada, sin que solicite usuario y password; lo hago de la ...
  #1 (permalink)  
Antiguo 24/11/2006, 02:40
 
Fecha de Ingreso: mayo-2005
Mensajes: 95
Antigüedad: 19 años, 6 meses
Puntos: 0
Envío de correo utilizando Exchange

Tengo que desarrollar un vbscript que envie un email utilizando Exchange pero con autenticación integrada, sin que solicite usuario y password; lo hago de la sgte forma, pero me sigue pidiendo usuario y password:

Set oMail = CreateObject("CDO.Message")
Set oConf = CreateObject("CDO.Configuration")
Set Flds = oConf.Fields
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/mailboxurl") = "http://.../Exchange/" & perfil
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = ".../Exchange"
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 3

oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = perfil

oConf.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 2 'Autenticacion integrada

oConf.Fields.Update
Set oMail.Configuration = oConf

oMail.To = toAddress
MsgBox toAddress
oMail.From = perfil & "@(...).es"
MsgBox oMail.From
oMail.Subject = subject
oMail.TextBody = text
Atención: Estás leyendo un tema que no tiene actividad desde hace más de 6 MESES, te recomendamos abrir un Nuevo tema en lugar de responder al actual.
Respuesta




La zona horaria es GMT -6. Ahora son las 22:30.