El siguente código al recibir el mensaje no me salen los acentos.
Por favor, ¿qué hago mal?.
Gracias
- Code: Select all Expand view
- #include "fivewin.ch"
function main()
LOCAL loCfg, loMsg, oError, isError := .F.
local cSMTP := "smtp.gmail.com", cPuerto := 465, cLogin := "lucasxxx@gmail.com", cPassword := "123444"
local cRemitente := "demo@arsys.es", cDestino := "lucasxxx@gmail.com", cAsunto := "prueba con Gestión y acentós", cMensaje := "Cuerpo del mensaje"+CRLF+CRLF+CRLF
local cSSL := .T., cAuth := .T.
local cFichero := nil
HB_LangSelect("ES")
HB_CDPSELECT("ESWIN")
// Control autentificación via SSL
IF alltrim( cSMTP ) = "smtp.live.com"
cSSL := .T.
ELSEIF alltrim( cSMTP ) = "smtp.gmail.com"
cSSL := .T.
ENDIF
// Internet
TRY
loCfg := CREATEOBJECT( "CDO.Configuration" )
WITH OBJECT loCfg:Fields
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserver" ):Value := cSMTP // "smtp.gmail.com"
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpserverport" ):Value := cPuerto //465
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusing" ):Value := 2
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" ):Value := cAuth //.T.
:Item( "http://schemas.microsoft.com/cdo/configuration/smtpusessl" ):Value := cSSL // .T.
:Item( "http://schemas.microsoft.com/cdo/configuration/sendusername" ):Value := cLogin //tu cuenta de correo de salida
:Item( "http://schemas.microsoft.com/cdo/configuration/sendpassword" ):Value := cPassword //"" //con tu clave gmail. en este caso
:Update()
END WITH
loMsg := CREATEOBJECT ( "CDO.Message" )
WITH OBJECT loMsg
:Configuration = loCfg
:From = cRemitente
:To = cDestino
:Subject = cAsunto
:TextBody = cMensaje
:AddAttachment( cFichero )
:Send()
ENDWITH
CATCH oError
isError := .T.
END
msgalert(cAsunto)
IF isError = .F.
MsgInfo( "Mensaje enviado correctamente", " A V I S O " )
ELSE
MsgStop("ERROR: Se ha producido un error al enviar un mensaje al buzón "+cDestino+CRLF+CRLF+"Descripción del Error: "+oError:Description, " E R R O R ")
ENDIF
return nil
