En mi APP tengo servicio de actualización siguiendo instrucciones del blog de nuestro amigo Gabriel Maimó: http://bielsys.blogspot.com/2009/02/actualizacion-automatica-de.html
Funciona perfecto en todos los windows, excepto en W10
También tengo servicio de email, donde el usuario puede cumplimentar formulario de sugerencia y enviarme un email.
Code: Select all | Expand
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
Funciona también perfecto, excepto en W10'
¿Por qué? Revisé configuración firewall y tiene agregado el EXE
¿Se puede configurar w10 desde la APP en tiempo de ejecución?
¿Hay que configurar algo en W10 para que permita esta actualización/envio de email?
¿Existe otro método que NO bloquee w10?
saludos.
LORENZO.