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 view RUN
- 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.
