Configurar GMail para poder enviar con CDOSYS

Configurar GMail para poder enviar con CDOSYS

Postby noe aburto » Thu Sep 17, 2020 10:22 pm

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
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: Configurar GMail para poder enviar con CDOSYS

Postby noe aburto » Thu Sep 17, 2020 10:32 pm

codigo principal

Code: Select all  Expand view  RUN

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
 
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: Configurar GMail para poder enviar con CDOSYS

Postby noe aburto » Thu Sep 17, 2020 10:35 pm

perdon:

cMailServer := "smtp.gmail.com"
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.

Re: Configurar GMail para poder enviar con CDOSYS

Postby karinha » Thu Sep 17, 2020 11:04 pm

Simples:

Code: Select all  Expand view  RUN

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

Re: Configurar GMail para poder enviar con CDOSYS

Postby noe aburto » Fri Sep 18, 2020 12:07 am

Gracias karinha... con esa habilitaci{on quedo listo.
Noé Aburto Sánchez
Tec. Prog. de Sistemas. -Morelia, Mich. México.
fwh 20.06, Harbour 3.2.0, bcc 7.4
TsBrowse 9.0, TsButton 7.0, xEdit 6.1
naburtos@gmail.com, noeaburto67@hotmail.com
User avatar
noe aburto
 
Posts: 418
Joined: Wed Nov 26, 2008 6:33 pm
Location: Morelia, Mich. Mexico.


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 56 guests