Funciona hoy el CreateObject( "CDO.Message" ) ??

[jcaro]

Hola Foro:

Una consulta urgente por favor , alguien sabe si este servicio esta funcionando bien hoy en dia,
pues cada vez que pruebo, me falla.

Cuando consulto desde el explorador para confirmar - me sale que no. Habra cambiado a otra ruta o forma ?

local cSchema := "http://schemas.microsoft.com/cdo/configuration/"

Requiero enviar correos en forma automatica, usando una cuenta del GMail y usando el servidor
de correos smtp.gmail.com con puerto 465 y seguridad SSL.

Alguien sabe de alguna forma facil de enviarlos.

Estoy usando este ejemplo que encontre, pero no funciona con Harbour 3.2 , alguna idea o ayuda ?

#include "FiveWin.ch"

function Main()

local oMsg := CreateObject( "CDO.Message" )
local oConf := CreateObject( "CDO.Configuration" )
local cSchema := "http://schemas.microsoft.com/cdo/configuration/"

oConf:Fields[ cSchema + "sendusing" ] = 2
oConf:Fields[ cSchema + "smtpserver" ] = "smtp.gmail.com"
oConf:Fields[ cSchema + "smtpserverport" ] = 465
oConf:Fields[ cSchema + "smtpauthenticate" ] = 1
oConf:Fields[ cSchema + "sendusername" ] = "juan@gmail.com"
oConf:Fields[ cSchema + "sendpassword" ] = "MiPass123"
oConf:Fields[ cSchema + "smtpusessl" ] = 1
oConf:Fields:Update()

oMsg:To = "pedrito@ventas.com"
oMsg:From ="juan@gmail.com>"
oMsg:Subject = "Prueba de correos con una cuenta gmail"
oMsg:HTMLBody = "aqui va el texto del mensaje"
oMsg:Sender = "juan"
oMsg:ReplyTo = "maria@ventas.com"
oMsg:Configuration = oConf

oMsg:Send()
MsgInfo( "Correo enviado OK !!" )

return nil

[jcaro]

Nada sabe algo de esto ??

[cnavarro]

No debes tener ningun problema

viewtopic.php?f=3&t=21490&p=191444&hilit=+CDO.Message+#p191444

[jcaro]

Gracias Cristobal ,por responder, pero no hay caso, a mi no me funciona.

Lo probe , para verificar, con un PC nuevo recien formateado con Win7 y win10, y en ninguno
me funciona.

Tu lo usas en forma habitual hoy en dia ?? .

Lo extrano es que si colocas en el explorador esto:

http://schemas.microsoft.com/cdo/configuration/

te sale el siguiente aviso:

The resource you are looking for has been removed, had its name changed, or is temporarily unavailable.

Es como si la microsoft, hubiese sacado ese servicio. Oh hay que poner alguna libreria nueva, en los nuevos
windows como 7,8 o 10 ?

Saludos,

[cnavarro]

Habitualmente no lo utilizo
Pero cuando lo he necesitado, me ha funcionado bien
Yo utilizo Windows 10, sin nada de particular instalado: Office, VStudio 15 y poco más

[cnavarro]

Seria interesante que leyeras este hilo y descargaras la aplicacion que aparece al final
Asi podrás comprobar qué tienes en el equipo

Esto es la edad, está claro.....

viewtopic.php?f=6&t=26276&hilit=methods+createobject&start=45#p144648

[jcaro]

Cristobal de que hilo me hablas, no lo veo.

Puedes repetirlo por favor.

[jcaro]

Cristobal, OK buen dato , lo voy a mirar, para ver que hay en el PC que no funciona, haber
si descubro algo, gracias.