Estoy probando enviar correos con CDO, que por cierto me ha llamado la atenci贸n que no he encontrado referencias en los foros de [x]Harbour sin embargo en los foros de VFP aparecen y mucho.
El punto es que estoy teniendo un problema al usarlo en la oficina (Vista Enterprise) pero en casa me funciona perfectamente (Vista Home Basic)
El error pone
Error CDO.Message/16389 E_FAIL: SEND Arguments: ()
y se produce al invocar el m茅todo SEND del siguiente programa:
El c贸digo es correcto, al menos funciona en casa.
Los c贸digos de error de CDO son todos LONGLONG , del tipo 0x80040201L
y no tienen nada que ver con 16389, 0x00004005L, por lo sospecho que puede ser que sea de la librer铆a de Ole.
驴Puede ser que afecte algo el hecho de que el m茅todo se llame SEND?
El punto es que estoy teniendo un problema al usarlo en la oficina (Vista Enterprise) pero en casa me funciona perfectamente (Vista Home Basic)
El error pone
Error CDO.Message/16389 E_FAIL: SEND Arguments: ()
y se produce al invocar el m茅todo SEND del siguiente programa:
Procedure Main()
Local loCfg, loMsg
setmode( 25, 80 )
loCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT loCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value = "mail.cpcipc.org"
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value = 25
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value = 2
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value = "pruebademail@cpcipc.org"
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value = "44444"
:Update()
END WITH
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:Configuration = loCfg
:From = "pruebademail@cpcipc.org"
:To = "carlosantoniomora@gmail.com"
:Subject = "Prueba desde Harbour"
:TextBody = "Este es un mensaje de prueba con CDO desde Harbour."
:Send() // <<----------------l铆nea del error !!!!!!!!!!!!!!!!!!
END WITH
RETURNEl c贸digo es correcto, al menos funciona en casa.
Los c贸digos de error de CDO son todos LONGLONG , del tipo 0x80040201L
y no tienen nada que ver con 16389, 0x00004005L, por lo sospecho que puede ser que sea de la librer铆a de Ole.
驴Puede ser que afecte algo el hecho de que el m茅todo se llame SEND?
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
鈥淚f you think education is expensive, try ignorance"