Enviar mails usando cuenta de Office 365

Enviar mails usando cuenta de Office 365

Postby Enrrique Vertiz » Wed Jun 14, 2017 11:25 pm

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.
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 23.04, MySQL 8.0.X, SQLLIB 1.9m, SQLRDD
Enrrique Vertiz
 
Posts: 511
Joined: Fri Oct 07, 2005 2:17 pm
Location: Lima - Peru

Re: Enviar mails usando cuenta de Office 365

Postby toninhofwi » Sun Jun 18, 2017 1:53 pm

toninhofwi
 
Posts: 169
Joined: Tue Oct 18, 2005 10:01 am

Re: Enviar mails usando cuenta de Office 365

Postby Enrrique Vertiz » Wed Jun 21, 2017 1:50 am

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
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 23.04, MySQL 8.0.X, SQLLIB 1.9m, SQLRDD
Enrrique Vertiz
 
Posts: 511
Joined: Fri Oct 07, 2005 2:17 pm
Location: Lima - Peru


Re: Enviar mails usando cuenta de Office 365

Postby Carlos Mora » Wed Jun 21, 2017 3:59 pm

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
Saludos
Carlos Mora
http://harbouradvisor.blogspot.com/
StackOverflow http://stackoverflow.com/users/549761/carlos-mora
“If you think education is expensive, try ignorance"
Carlos Mora
 
Posts: 988
Joined: Thu Nov 24, 2005 3:01 pm
Location: Madrid, España

Re: Enviar mails usando cuenta de Office 365

Postby Enrrique Vertiz » Wed Jun 21, 2017 9:04 pm

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
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 23.04, MySQL 8.0.X, SQLLIB 1.9m, SQLRDD
Enrrique Vertiz
 
Posts: 511
Joined: Fri Oct 07, 2005 2:17 pm
Location: Lima - Peru

Re: Enviar mails usando cuenta de Office 365

Postby karinha » Fri Jun 23, 2017 6:35 pm

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

Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7153
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Enviar mails usando cuenta de Office 365

Postby Enrrique Vertiz » Fri Jun 23, 2017 11:27 pm

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
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 23.04, MySQL 8.0.X, SQLLIB 1.9m, SQLRDD
Enrrique Vertiz
 
Posts: 511
Joined: Fri Oct 07, 2005 2:17 pm
Location: Lima - Peru

Re: Enviar mails usando cuenta de Office 365

Postby MOISES » Mon Dec 30, 2019 9:12 pm

Hola,

¿Alguien lo consiguió?

Gracias.
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
 
Posts: 838
Joined: Wed Aug 22, 2007 10:09 am

Re: Enviar mails usando cuenta de Office 365

Postby Enrrique Vertiz » Thu Feb 20, 2020 9:30 pm

Saludos

Alguien tiene solucion para enviar mails desde cuentas Office 365 ??
Gracias
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 23.04, MySQL 8.0.X, SQLLIB 1.9m, SQLRDD
Enrrique Vertiz
 
Posts: 511
Joined: Fri Oct 07, 2005 2:17 pm
Location: Lima - Peru

Re: Enviar mails usando cuenta de Office 365

Postby karinha » Fri Feb 21, 2020 1:02 pm

Enrrique Vertiz wrote: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.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7153
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Enviar mails usando cuenta de Office 365

Postby Enrrique Vertiz » Sat Feb 29, 2020 10:12 pm

Saludos Karinha

Gracias por tu respuesta, pero eso funciona con Harboour y Yo uso xHarbour ... habra similar en xHarbour ??
Enrrique Vertiz Pitta
Lima-Peru
xHb 1.23.1026X, Fwh 23.04, MySQL 8.0.X, SQLLIB 1.9m, SQLRDD
Enrrique Vertiz
 
Posts: 511
Joined: Fri Oct 07, 2005 2:17 pm
Location: Lima - Peru

Re: Enviar mails usando cuenta de Office 365

Postby karinha » Mon Mar 02, 2020 12:11 pm

Creo que no. habla con Master Enrico. Saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7153
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot], karinha and 7 guests