VBScript en SQL Server Trabajos y DTs

Amigos he tratado de enviar correo desde un Trabajo (Job) , agregando
código
activex. He probado el código por separado y funciona perfecto, pero
cuando
lo hago ejecutar desde "trabajos" me arroja el siguiente error:

"El trabajó falló. El trabajo fue invocado por Usuario NRIP4JS\Nelson. El
último paso ejecutado fue 1 (mando_mail).".

Donde NRIP4JS es en nombre de mi PC y Nelson es el usuario de ingreso a mi
Win XP Pro.

Dónde puede estar el error?

Código VBs:

Function main()
Set mapi_session = CreateObject("MSMAPI.MAPISESSION.1")
set mapi_message = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")
mapi_session.signon()
mapi_message.MsgIndex=-1
mapi_message.RecipDisplayName = ""
mapi_message.MsgSubject = "prueba de titulo de VBS"
mapi_message.MsgNoteText= "prueba de mensaje"
mapi_message.SessionID= mapi_session.sessionid

mapi_message.send(0)
mapi_session.signoff()
Set mapi_message = Nothing
set mapi_session = Nothing

end function

Hola, en el servidor, tenes MAPI instalado?


Maxi - Buenos Aires - Argentina
Desarrollador 3 Estrellas

Msn_messager:
mail: Maxi.da[arroba]gmail.com

"Nelson Rodriguez" escribió en el mensaje
news:%
> Amigos he tratado de enviar correo desde un Trabajo (Job) , agregando
> código
> activex. He probado el código por separado y funciona perfecto, pero
> cuando
> lo hago ejecutar desde "trabajos" me arroja el siguiente error:
>
> "El trabajó falló. El trabajo fue invocado por Usuario NRIP4JS\Nelson.

> último paso ejecutado fue 1 (mando_mail).".
>
> Donde NRIP4JS es en nombre de mi PC y Nelson es el usuario de ingreso a

> Win XP Pro.
>
> Dónde puede estar el error?
>
> Código VBs:
>
> Function main()
> Set mapi_session = CreateObject("MSMAPI.MAPISESSION.1")
> set mapi_message = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")
> mapi_session.signon()
> mapi_message.MsgIndex=-1
> mapi_message.RecipDisplayName = ""
> mapi_message.MsgSubject = "prueba de titulo de VBS"
> mapi_message.MsgNoteText= "prueba de mensaje"
> mapi_message.SessionID= mapi_session.sessionid
>
> mapi_message.send(0)
> mapi_session.signoff()
> Set mapi_message = Nothing
> set mapi_session = Nothing
>
> end function
>
>

Si, perfecto.
Tengo un MSDE. Además ejecuto ese código en un DTS ACtivex y funciona OK.

Acabo de probar con este otro código usando Outlook y tampoco anda:

set oOutlook = CreateObject("Outlook.Application")
set oMailItem = oOutlook.CreateItem(0)
oMailItem.Subject = "Este es un ejemplo"
oMailItem.Body = "Mira este ejemplo de envio de eMail con Outlook desde
Visual FoxPro!"
oMailItem.Recipients.Add("")
oMailItem.Save()
oMailItem.Send()

set oOutlook = Nothing
set oMailItem = Nothing

Saludos

"Maxi" escribió en el mensaje
news:

Hola, en el servidor, tenes MAPI instalado?


Maxi - Buenos Aires - Argentina
Desarrollador 3 Estrellas

Msn_messager:
mail: Maxi.da[arroba]gmail.com

"Nelson Rodriguez" escribió en el mensaje
news:%
> Amigos he tratado de enviar correo desde un Trabajo (Job) , agregando
> código
> activex. He probado el código por separado y funciona perfecto, pero
> cuando
> lo hago ejecutar desde "trabajos" me arroja el siguiente error:
>
> "El trabajó falló. El trabajo fue invocado por Usuario NRIP4JS\Nelson.

El

> último paso ejecutado fue 1 (mando_mail).".
>
> Donde NRIP4JS es en nombre de mi PC y Nelson es el usuario de ingreso a

mi

> Win XP Pro.
>
> Dónde puede estar el error?
>
> Código VBs:
>
> Function main()
> Set mapi_session = CreateObject("MSMAPI.MAPISESSION.1")
> set mapi_message = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")
> mapi_session.signon()
> mapi_message.MsgIndex=-1
> mapi_message.RecipDisplayName = ""
> mapi_message.MsgSubject = "prueba de titulo de VBS"
> mapi_message.MsgNoteText= "prueba de mensaje"
> mapi_message.SessionID= mapi_session.sessionid
>
> mapi_message.send(0)
> mapi_session.signoff()
> Set mapi_message = Nothing
> set mapi_session = Nothing
>
> end function
>
>

Una pregunta: porque quieres enviar un correo asi y no usar por ej el
Xp_sendmail?


Salu2
Maxi


"Nelson Rodriguez" escribió en el mensaje
news:
> Si, perfecto.
> Tengo un MSDE. Además ejecuto ese código en un DTS ACtivex y funciona

>
> Acabo de probar con este otro código usando Outlook y tampoco anda:
>
> set oOutlook = CreateObject("Outlook.Application")
> set oMailItem = oOutlook.CreateItem(0)
> oMailItem.Subject = "Este es un ejemplo"
> oMailItem.Body = "Mira este ejemplo de envio de eMail con Outlook desde
> Visual FoxPro!"
> oMailItem.Recipients.Add("")
> oMailItem.Save()
> oMailItem.Send()
>
> set oOutlook = Nothing
> set oMailItem = Nothing
>
> Saludos
>
> "Maxi" escribió en el mensaje
> news:
>> Hola, en el servidor, tenes MAPI instalado?
>>
>>
>> Maxi - Buenos Aires - Argentina
>> Desarrollador 3 Estrellas
>>
>> Msn_messager:
>> mail: Maxi.da[arroba]gmail.com
>>
>> "Nelson Rodriguez" escribió en el mensaje
>> news:%
>> > Amigos he tratado de enviar correo desde un Trabajo (Job) , agregando
>> > código
>> > activex. He probado el código por separado y funciona perfecto, pero
>> > cuando
>> > lo hago ejecutar desde "trabajos" me arroja el siguiente error:
>> >
>> > "El trabajó falló. El trabajo fue invocado por Usuario

> El
>> > último paso ejecutado fue 1 (mando_mail).".
>> >
>> > Donde NRIP4JS es en nombre de mi PC y Nelson es el usuario de ingreso

> mi
>> > Win XP Pro.
>> >
>> > Dónde puede estar el error?
>> >
>> > Código VBs:
>> >
>> > Function main()
>> > Set mapi_session = CreateObject("MSMAPI.MAPISESSION.1")
>> > set mapi_message = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")
>> > mapi_session.signon()
>> > mapi_message.MsgIndex=-1
>> > mapi_message.RecipDisplayName = ""
>> > mapi_message.MsgSubject = "prueba de titulo de VBS"
>> > mapi_message.MsgNoteText= "prueba de mensaje"
>> > mapi_message.SessionID= mapi_session.sessionid
>> >
>> > mapi_message.send(0)
>> > mapi_session.signoff()
>> > Set mapi_message = Nothing
>> > set mapi_session = Nothing
>> >
>> > end function
>> >
>> >
>>
>>
>
>

Me arroja el sgte. error:

ODBC: mensaje 0, nivel 16, estado 1
No se puede cargar la DLL sqlmap70.dll, o una de las DLL a las que hace
referencia. Motivo: 126(No se puede encontrar el módulo especificado.).

Será que lo estoy probando en MSDE? hoy pruebo en un SQL Server 2000 con
Win
2003 Server y te cuento.

Saludos

Nelson

"Maxi" escribió en el mensaje
news:

Una pregunta: porque quieres enviar un correo asi y no usar por ej el
Xp_sendmail?


Salu2
Maxi


"Nelson Rodriguez" escribió en el mensaje
news:
> Si, perfecto.
> Tengo un MSDE. Además ejecuto ese código en un DTS ACtivex y funciona

OK.

>
> Acabo de probar con este otro código usando Outlook y tampoco anda:
>
> set oOutlook = CreateObject("Outlook.Application")
> set oMailItem = oOutlook.CreateItem(0)
> oMailItem.Subject = "Este es un ejemplo"
> oMailItem.Body = "Mira este ejemplo de envio de eMail con Outlook desde
> Visual FoxPro!"
> oMailItem.Recipients.Add("")
> oMailItem.Save()
> oMailItem.Send()
>
> set oOutlook = Nothing
> set oMailItem = Nothing
>
> Saludos
>
> "Maxi" escribió en el mensaje
> news:
>> Hola, en el servidor, tenes MAPI instalado?
>>
>>
>> Maxi - Buenos Aires - Argentina
>> Desarrollador 3 Estrellas
>>
>> Msn_messager:
>> mail: Maxi.da[arroba]gmail.com
>>
>> "Nelson Rodriguez" escribió en el mensaje
>> news:%
>> > Amigos he tratado de enviar correo desde un Trabajo (Job) ,
>> > agregando
>> > código
>> > activex. He probado el código por separado y funciona perfecto, pero
>> > cuando
>> > lo hago ejecutar desde "trabajos" me arroja el siguiente error:
>> >
>> > "El trabajó falló. El trabajo fue invocado por Usuario

NRIP4JS\Nelson.

> El
>> > último paso ejecutado fue 1 (mando_mail).".
>> >
>> > Donde NRIP4JS es en nombre de mi PC y Nelson es el usuario de
>> > ingreso

a

> mi
>> > Win XP Pro.
>> >
>> > Dónde puede estar el error?
>> >
>> > Código VBs:
>> >
>> > Function main()
>> > Set mapi_session = CreateObject("MSMAPI.MAPISESSION.1")
>> > set mapi_message = CREATEOBJECT("MSMAPI.MAPIMESSAGES.1")
>> > mapi_session.signon()
>> > mapi_message.MsgIndex=-1
>> > mapi_message.RecipDisplayName = ""
>> > mapi_message.MsgSubject = "prueba de titulo de VBS"
>> > mapi_message.MsgNoteText= "prueba de mensaje"
>> > mapi_message.SessionID= mapi_session.sessionid
>> >
>> > mapi_message.send(0)
>> > mapi_session.signoff()
>> > Set mapi_message = Nothing
>> > set mapi_session = Nothing
>> >
>> > end function
>> >
>> >
>>
>>
>
>