envio de emails
Posted: Wed Feb 10, 2021 8:38 am
Cmopañeros, buenos días:
En mi APP tengo una opción donde los usuarios pueden enviarme sugerencias. Simplemente cumplimentan un GET con un campo MEMO y automáticamente la APP me lo envía en forma de email. En versión anteriores a W10, funciona perfecto, pero hay usuarios que según su configuración W10 bloquea la salida del email.
Este es el código, el cual lo saqué de este foro:
¿Qué opción hay que desactivar en W10? Firewall ya lo probé y sigue bloqueandolo.
Gracias.
Saludos.
LORENZO.
En mi APP tengo una opción donde los usuarios pueden enviarme sugerencias. Simplemente cumplimentan un GET con un campo MEMO y automáticamente la APP me lo envía en forma de email. En versión anteriores a W10, funciona perfecto, pero hay usuarios que según su configuración W10 bloquea la salida del email.
Este es el código, el cual lo saqué de este foro:
Code: Select all
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+ctex )
For nEle := 1 To Len( aAttach )
:AddAttachment := AllTrim( aAttach[ nEle ] )
Next
If ! Empty( cBCC )
:BCC := Trim( cBCC )
EndIf
:Send()
End WithGracias.
Saludos.
LORENZO.