CDOSYS con attachment...

07/04/2008 - 18:31 por Vicente López | Informe spam
Que tal a todos, tengo un problema que al parecer solo a mi me ha pasado ya
que he buscado por todos lados solo sale un link con un problema similar,
les pego el error.

Error de Microsoft VBScript en tiempo de ejecución error '800a01b6'
El objeto no acepta esta propiedad o método: 'AddAttachment'

Bien, ahora le pego el código del asp

dim oCdoMail, oCdoConf, sConfURL

Set oCdoMail = Server.CreateObject("CDO.Message")
Set oCdoConf = Server.CreateObject("CDO.Configuration")

sConfURL = "http://schemas.microsoft.com/cdo/co...ion/"

with oCdoConf
.Fields.Item(sConfURL & "sendusing") = 2
.Fields.Item(sConfURL & "smtpserver") = "localhost"
.Fields.Item(sConfURL & "smtpserverport") = 25
.Fields.Update
end with

with oCdoMail
.From = "info@masa.com.mx"
.To = "rh@masa.com.mx"
.Subject = "Bolsa de trabajo..."
.TextBody = 'Bolsa...'
.HTMLBody = 'Bolsa...'
.AddAttachment = "E:\Ausa\biblioteca\directorio\path.txt"
.Configuration = oCdoConf
.Send
end with

Set oCdoConf = Nothing
Set oCdoMail = Nothing

si yo comento la línea de ".AddAttachment = "E:\biblioteca\path.txt" el
mensaje llega sin ningún problema, pero si le quito el comentario es cuando
me arroja el error.

El servidor es un W2K con sp2 y usa IIS

Ojala y alguien me pueda echar una mano, gracias y saludos.


Vicente López.
 

Leer las respuestas

#1 Vicente López
30/04/2008 - 00:16 | Informe spam
Esta es la solución:

.AddAttachment "E:\biblioteca\directorio\path.txt"


Solamente quite el signo de igual y ya se pudo.



Saludos.

Vicente López.

"Vicente López" escribió en el mensaje de noticias
news:
Que tal a todos, tengo un problema que al parecer solo a mi me ha pasado
ya que he buscado por todos lados solo sale un link con un problema
similar, les pego el error.

Error de Microsoft VBScript en tiempo de ejecución error '800a01b6'
El objeto no acepta esta propiedad o método: 'AddAttachment'

Bien, ahora le pego el código del asp

dim oCdoMail, oCdoConf, sConfURL

Set oCdoMail = Server.CreateObject("CDO.Message")
Set oCdoConf = Server.CreateObject("CDO.Configuration")

sConfURL = "http://schemas.microsoft.com/cdo/co...ion/"

with oCdoConf
.Fields.Item(sConfURL & "sendusing") = 2
.Fields.Item(sConfURL & "smtpserver") = "localhost"
.Fields.Item(sConfURL & "smtpserverport") = 25
.Fields.Update
end with

with oCdoMail
.From = ""
.To = ""
.Subject = "Bolsa de trabajo..."
.TextBody = 'Bolsa...'
.HTMLBody = 'Bolsa...'
.AddAttachment = "E:\biblioteca\directorio\path.txt"
.Configuration = oCdoConf
.Send
end with

Set oCdoConf = Nothing
Set oCdoMail = Nothing

si yo comento la línea de ".AddAttachment = "E:\biblioteca\path.txt" el
mensaje llega sin ningún problema, pero si le quito el comentario es
cuando me arroja el error.

El servidor es un W2K con sp2 y usa IIS

Ojala y alguien me pueda echar una mano, gracias y saludos.


Vicente López.

Preguntas similares