Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/11/2006, 02:40
mellidecai
 
Fecha de Ingreso: mayo-2005
Mensajes: 95
Antigüedad: 19 años, 10 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