Enviar mails usando cuenta de Office 365

[Enrrique Vertiz]

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.

[toninhofwi]

https://www.emailarchitect.net/easendmail/

[Enrrique Vertiz]

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

[Baxajaun]

Buenos días Enrrique,

mira si con CDO y estos enlaces puedes hacer algo https://weblogs.asp.net/sreejukg/send-email-using-office-365-account-and-c

https://stackoverflow.com/questions/37530037/using-cdo-smtp-tls-in-vb6-to-send-email-smtp-office365-com-mail-server

https://clicdatacoder.wordpress.com/2012/07/13/sending-smtp-mail-via-office-365-exchange-using-cdo-message-and-other-applications/

Saludos

[Carlos Mora]

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

[Enrrique Vertiz]

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/configuration/smtpserver" ):Value := alltrim(cServer)
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := nPuerto // Donde 465 es paga GMAIL y 25 es (por ejemplo) para mail.consorcioinformatico.com
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2 // Remote SMTP = 2, local = 1
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):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/configuration/smtpusessl" ):Value := iif(cSslmail=="S",.T.,.F.)
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := alltrim(cUsrMail)
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := alltrim(cUsrPass) // Password
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"):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

[karinha]

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

Saludos.

[Enrrique Vertiz]

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

[MOISES]

Hola,

¿Alguien lo consiguió?

Gracias.

[Enrrique Vertiz]

Saludos

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

[karinha]

Saludos

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

Mira se ayuda:

http://www.pctoledo.com.br/forum/viewtopic.php?f=4&t=16342&p=128151&hilit=office365#p128151

Saludos.

[Enrrique Vertiz]

Saludos Karinha

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

[karinha]

Creo que no. habla con Master Enrico. Saludos.