FiveTech Software tech support forums

Saludos

La consulta es esa, tengo un cliente que usa cuentas de correo creadas en un Office 365 (que usa TLS en vez de SSL, creo), usando CDO que es lo que tengo implementado para envio de mails, no funciona ... alguien tiene la solucion ??
Gracias.

Toninho, gracias por la respuesta, pero la solucion que me indicas es con un componente de 3ros, Yo estoy buscando algo que sea 100% (x)Harbour o FWH.
Gracias de todas formas

Buenos días Enrrique,

mira si con CDO y estos enlaces puedes hacer algo https://weblogs.asp.net/sreejukg/send-e ... ount-and-c

https://stackoverflow.com/questions/375 ... ail-server

https://clicdatacoder.wordpress.com/201 ... lications/

Saludos

Enrique,

¿podrías poner el código que usas para enviar el correo? Es más fácil ayudar si sabemos que estás haciendo

Un saludo

Baxajaun, gracias por los links, vere si ahi hay algo que puedo aplicar.

Carlos, gracias por contestar, adjunto mi codigo, ojala exista forma de hacerlo funcionar con cuentas de mail de Office 365

TRY
oEmailCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT oEmailCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/config ... smtpserver" ):Value := alltrim(cServer)
:Item( "http://schemas.microsoft.com/cdo/config ... serverport" ):Value := nPuerto // Donde 465 es paga GMAIL y 25 es (por ejemplo) para mail.consorcioinformatico.com
:Item( "http://schemas.microsoft.com/cdo/config ... /sendusing" ):Value := 2 // Remote SMTP = 2, local = 1
:Item( "http://schemas.microsoft.com/cdo/config ... thenticate" ):Value := iif(cAutmail=="S",1,0) // smtpauthenticate, values are : cdoAnonymous, value 0. Do not authenticate, cdoBasic, value 1. Use basic clear-text authentication. When using this option you have to provide the user name and password through the sendusername and sendpassword fields, cdoNTLM, value 2. The current process security context is used to authenticate with the service.
:Item( "http://schemas.microsoft.com/cdo/config ... smtpusessl" ):Value := iif(cSslmail=="S",.T.,.F.)
:Item( "http://schemas.microsoft.com/cdo/config ... ndusername" ):Value := alltrim(cUsrMail)
:Item( "http://schemas.microsoft.com/cdo/config ... ndpassword" ):Value := alltrim(cUsrPass) // Password
:Item( "http://schemas.microsoft.com/cdo/config ... iontimeout"):Value := 30
:Update()
END WITH
CATCH oError
MsgInfo( "Could not send message" + ";" + ;
"Error: " + TRANSFORM(oError:GenCode, NIL) + ";" + ;
"SubC: " + TRANSFORM(oError:SubCode, NIL) + ";" + ;
"OSCode: " + TRANSFORM(oError:OsCode, NIL) + ";" + ;
"SubSystem: " + TRANSFORM(oError:SubSystem, NIL) + ";" + ;
"Message: " + oError:Description )
END
oError:=NIL

Asta hoy no fué posible enviar. Mismo con la ayuda del maestro Enrico Maria Giordano, no obtive exito.

Saludos.

Joao, gracias por contestar, es una mala noticia ...
Ojala alguien nos brinde una solucion, el uso de Office 365 se esta masificando y no poder enviar mails desde FWH sera una tremenda limitacion.
Saludos

Hola,

¿Alguien lo consiguió?

Gracias.

Saludos

Alguien tiene solucion para enviar mails desde cuentas Office 365 ??
Gracias

Enrrique Vertiz wrote:Saludos

Alguien tiene solucion para enviar mails desde cuentas Office 365 ??
Gracias

Mira se ayuda:

http://www.pctoledo.com.br/forum/viewto ... 65#p128151

Saludos.

Saludos Karinha

Gracias por tu respuesta, pero eso funciona con Harboour y Yo uso xHarbour ... habra similar en xHarbour ??

Creo que no. habla con Master Enrico. Saludos.