Mi aplicación envía email sin problemas:
- Code: Select all Expand view RUN
- 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.
