Acentos al enviar email

[jpcavagnaro]

Hola buen día, consulta, como hago para que al enviar los correos aparezcan correctamente los acentos.

Por favor no conteste este mail, h�galo al e-mail que figura al pie
Se env�a plan 15 de Julio de 2023,

Así llegan al correo

[karinha]

Mira:

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43324&start=0&hilit=FUNCTION+ELIMINAR&sid=4e9c8dac6d70fe63f35a5fc18e6a4fd6

Regards, saludos.

[Carles]

Mira:

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43324&start=0&hilit=FUNCTION+ELIMINAR&sid=ff78111856e7a0f04a956615d0f65931

Regards, saludos.

Eliminando acentos ?

C.

[jpcavagnaro]

Mira:

https://forums.fivetechsupport.com/viewtopic.php?f=6&t=43324&start=0&hilit=FUNCTION+ELIMINAR&sid=4938ee3d8146d3a5d577d2e7239666db

Regards, saludos.

Pero no quiero eliminar los acentos, quiero que salgan como corresponde.

[karinha]

Carles/Jorge, haz las pruebas, Cambia la letra en formato Ansi/Oem(ASC) a normal. Cambia el nombre de la función a: CAMBIAR_LETRAS()

Cual éS el ASC de � ?? Comprendes?

Gracias.

Regards, saludos.

[juanjogascem]

Buenas
Yo lo resolvi asi

cTo := "pablo.diseno@toimsa.es"
cOther := ""
cCC := ""
cSubject := AnsiToOem("Imágenes no encontradas para WEB")
cBody := "Muy buenas," + chr(13) +;
AnsiToOem("Adjunto listado de referencias cuyas imágenes no se encontraron en su ubicación, ") + chr(13) +;
chr(13) +;
chr(13) +;
cNoEsta +;
chr(13) +;
"Saludos."

[karinha]

Code: Select all  Expand view

#Include "FiveWin.ch"

FUNCTION Main()

  LOCAL cAscCar := "?"
  LOCAL cTexto, cTxtRet

  cTexto  := "Por favor no conteste este mail, h?galo al e-mail que figura al pie"

  cTxtRet := CAMBIAR_ACENTOS( cTexto )

  ? cTxtRet

RETURN NIL

FUNCTION CAMBIAR_ACENTOS( cStr )

   LOCAL cStrNew := "", nX, cAcentos, cLetras

   cAcentos := { "?" }
   cLetras  := { "á" }

   For nX := 1 TO LEN(cAcentos)

      cStrNew := StrTran(cStr, cAcentos[nX], cLetras[nX])
      cStr    := cStrNew

   Next

RETURN( cStrNew )

// FIN / END
 

Regards, saludos.