envio de emails

Post Reply
Loren
Posts: 458
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España

envio de emails

Post by 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

     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.
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: envio de emails

Post by karinha »

El Provedor, és gmail.com?

Saludos.
João Santos - São Paulo - Brasil
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: envio de emails

Post by 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
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: envio de emails

Post by karinha »

MGA wrote: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.
João Santos - São Paulo - Brasil
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: envio de emails

Post by MGA »

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

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: envio de emails

Post by karinha »

MGA wrote: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.
João Santos - São Paulo - Brasil
MGA
Posts: 1219
Joined: Mon Feb 25, 2008 2:54 pm
Location: Brasil/PR/Maringá
Contact:

Re: envio de emails

Post by 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!
ubiratanmga@gmail.com

FWH17.04
FWPPC
Harbour/xHarbour
xMate
Pelles´C
TDolphin
Loren
Posts: 458
Joined: Fri Feb 16, 2007 10:29 am
Location: Cadiz - España

Re: envio de emails

Post by Loren »

karinha wrote: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"
User avatar
karinha
Posts: 4882
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: envio de emails

Post by karinha »

Loren wrote:
karinha wrote: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.
João Santos - São Paulo - Brasil
Post Reply