envio de emails

[Loren]

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:

Code: Select all  Expand view

    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 With

¿Qué opción hay que desactivar en W10? Firewall ya lo probé y sigue bloqueandolo.

Gracias.
Saludos.
LORENZO.

[karinha]

El Provedor, és gmail.com?

Saludos.

[MGA]

tente isso, testei apenas no windows 7

try
nRetorno := ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0)
catch
end

if nRetorno <= 32
MsgStop('Não foi possível desativar o firewall, retorno: '+HB_NToS(nRetorno), 'Atenção!')
endif

[karinha]

tente isso, testei apenas no windows 7

try
nRetorno := ShellExecute( GetActiveWindow(), "RUNAS", "NetSh.exe", "Advfirewall set allprofiles state off", "c:\windows\system32", 0)
catch
end

if nRetorno <= 32
MsgStop('Não foi possível desativar o firewall, retorno: '+HB_NToS(nRetorno), 'Atenção!')
endif

Bira bom dia, me explique, motivo, razão ou causa, para o FireWall bloquear o envio de um simples e singelo email? E por qual motivo, você comete a "loucura" de desligar o FireWall, e correr todos os riscos de sofrer um ataque Hacker em seu computador ou do cliente? Não me faz sentido, por favor me esclareça essa dúvida.

Obg. abraços.

[MGA]

João, eu disse que faço isso???!!! Eu apenas respondi o que foi solicitado.

[karinha]

João, eu disse que faço isso???!!! Eu apenas respondi o que foi solicitado.

Ok. Thanks. Deve ser outra coisa que bloqueia. Não creio que seja o FireWall, a não ser que o Anexo, esteja contaminado com vírus, que achas?

Abs.

[MGA]

Então... estou acreditando no que ele diz, ou seja, que o firewall esta bloqueando, se ele desativa o mesmo e funciona, é uma pista, mais é estranho!

[Loren]

El Provedor, és gmail.com?

Saludos.

Karinha, buenos días:

cFrom := PadR( 'xxxxxxxxx@alojamientovirtual.com', 180 ),
cTo := PadR( 'xxxxxxx@gmail.com', 180 )

El email va desde una cuenta de "alojamientovirtual.com" a una de "gmail"

[karinha]

El Provedor, és gmail.com?

Saludos.

Karinha, buenos días:

cFrom := PadR( 'xxxxxxxxx@alojamientovirtual.com', 180 ),
cTo := PadR( 'xxxxxxx@gmail.com', 180 )

El email va desde una cuenta de "alojamientovirtual.com" a una de "gmail"

Que provedor está cFrom := PadR( 'xxxxxxxxx@alojamientovirtual.com', 180 ) ??

Muestra la mensageria correcta, porfa.

Saludos.