bloqueo de email

[Loren]

Compañeros, buenas: espero que todos esteis bien!!

Mi aplicación envía email sin problemas:

Code: Select all

   Local oWPpal
   Local cMailServer := PadR( alltrim('smtp.gmail.com'), 60 ), ;             // servidor de correo
         cFrom       := PadR( alltrim('xxxxxxx@gmail.com'), 60 ), ;        // remitente
         cTo         := PadR( alltrim('xxxxxxxx@gmail.com'), 180 ), ; // destinatario (uno o varios separados con comas)
         cBCC        := PadR( ""   , 180 ), ; // copias ocultas a (uno o varios separados con comas)
         cAttach     := PadR( ""   , 180 ), ;// archivo anexo (uno o varios separados con comas)
         cSubject    := PadR( "Prueba")  , ;                              // asunto
         cBody       := "email de Prueba... Puede eliminarlo !!", ;                             // cuerpo del mensaje
         nPort       := 465, ;                                      // puerto usado por el servidor de correo
         cUser       := 'xxxxxxxx@gmail.com' , ;
         cPass       := 'xxxxxxxxx'
   Local oCfg, oMsg, oError, nEle, cToken,aAttach  := {}, lAuth    := ! Empty( cUser ) .and. ! Empty( cPass ), nSendOpt := 2   // send using: 1 = pickup folder  2 = port

   While ! Empty( cToken := StrToken( cAttach, nEle++, "," ) )
      AAdd( aAttach, cToken )
   EndDo
   Try
      oCfg := CreateObject( "CDO.Configuration" )
      With Object oCfg:Fields
         :Item( cdoSMTPServer ):Value     := Trim( cMailServer )
         :Item( cdoSMTPServerPort ):Value := nPort
         :Item( cdoSendUsing ):Value      := nSendOpt
         If lAuth
            :Item( cdoSMTPAuthenticate ):Value := 1
            :Item( cdoSendUserName ):Value     := Trim( cUser )
            :Item( cdoSendPassword ):Value     := Trim( cPass )
            :Item( cdoSMTPUseSSL ):Value := 1
         EndIf
         :Update()
      End With
      oMsg := CreateObject( "CDO.Message" )
      With Object oMsg
         :Configuration := oCfg
         :From          := Trim( cFrom )
         :To            := Trim( cTo )
         :Subject       := Trim( cSubject )
         :TextBody      := Trim( cBody )
         :Send()
      End With

Sin embargo, hay usuarios que NO pueden porque bloquea. Normalmente las causas son:
1. Antivirus de terceros instalados --> insertar una excepción
2. Windows Defender
3. Firewall --> permitir la aplicación
4. Al tratarse de una cuenta de gmail, tener activada en la configuración la casilla "control a aplicaciones menos segura"

En este caso, tengo un cliente, que aunque he revisado las 4 causas más probables, NO consigo que envie emails. Windows lo bloquea.
¿ Pueden existir más causas? ¿quizás abrir los puertos 465? ¿o quizás otro puerto?

Gracias. Espero respuestas.

saludos.
LORENZO.

[karinha]

Buén dia. Crea una interface simples para que el usuário pueda cambiar el datos. Asi:

https://i.imgur.com/4PDeDxO.png




Saludos.

[cnavarro]

Desde que he utilizado esta forma de enviar mails, no he tenido problemas si he activado

4. Al tratarse de una cuenta de gmail, tener activada en la configuración la casilla "control a aplicaciones menos segura"

Aunque cierto es que algunos usuarios me han comentado que aunque lo activan, cuando reinician el ordenador, gmail se lo vuelve a desactivar.
Comprueba