Page 1 of 1
Configurar GMail para poder enviar con CDOSYS
Posted: Thu Sep 17, 2020 10:22 pm
by noe aburto
Saludos
Recuerdo haber realizado una configuracion en gmail para poder enviar correos con cdosys.
Ahora con estas versiones me marca errores que he visto en el foro. Pero no lo resuelvo....
Envoi Message Impossible
Errour 1
SubC 1006
OS Code -2147352573
Subsystem WINOLE
Message Argument error
Sugerencias
Re: Configurar GMail para poder enviar con CDOSYS
Posted: Thu Sep 17, 2020 10:32 pm
by noe aburto
codigo principal
Code: Select all
Try
oCfg := CreateObject( "CDO.Configuration" )
With Object oCfg:Fields
:Item( cdoSMTPServer ):Value := AllTrim( cMailServer ) // www.gmail.com
:Item( cdoSMTPServerPort ):Value := 465
:Item( cdoSendUsing ):Value := 2
If lAuth
:Item( cdoSMTPAuthenticate ):Value := .T.
:Item( cdoSendUserName ):Value := naburtos
:Item( cdoSendPassword ):Value := AllTrim( cPass ) // mi clave
:Item( cdoSMTPUseSSL ):Value := .T.
EndIf
:Item( cdoSMTPConnectionTimeout ):Value := 30
:Update()
End With
oMsg := CreateObject( "CDO.Message" )
With Object oMsg
:Configuration := oCfg
:From := AllTrim( cFrom ) // naburtos@gmail.com
:To := AllTrim( cTo ) // noeaburto67@hotmail.com
:Subject := AllTrim( cSubject )
:TextBody := AllTrim( cBody )
For nEle := 1 To Len( aAttach )
if File( AllTrim( aAttach[ nEle ] ) )
*:AddAttachment := AllTrim( aAttach[ nEle ] )
:AddAttachment ( AllTrim ( aAttach[ nEle ] ) )
else
Aviso({'El archivo adjunto '+Upper(AllTrim( aAttach[ nEle ] )),;
'no será enviado, no existe'})
endif
Next
If ! Empty( cBCC )
:BCC := AllTrim( cBCC )
EndIf
:Send()
End With
Re: Configurar GMail para poder enviar con CDOSYS
Posted: Thu Sep 17, 2020 10:35 pm
by noe aburto
perdon:
cMailServer := "smtp.gmail.com"
Re: Configurar GMail para poder enviar con CDOSYS
Posted: Thu Sep 17, 2020 11:04 pm
by karinha
Simples:
Code: Select all
@pop.gmail.com
smtp.gmail.com
kapiabafwh@gmail.com
Password
SSL := .T. // SI.
Permitir aplicaciones menos seguras: DESACTIVADO. -> Active para usar.
https://myaccount.google.com/lesssecureapps?pli=1
Regards, saludos.
Re: Configurar GMail para poder enviar con CDOSYS
Posted: Fri Sep 18, 2020 12:07 am
by noe aburto
Gracias karinha... con esa habilitaci{on quedo listo.