topic-43458

Anonymous

Posts: 155

Joined: Tue Dec 30, 2008 03:07 AM

Acentos al enviar email
Posted: Sat Jul 15, 2023 02:18 PM

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Acentos al enviar email
Posted: Sat Jul 15, 2023 04:17 PM

Mira:

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

Regards, saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

Carles

Posts: 1283

Joined: Fri Feb 10, 2006 02:34 PM

Re: Acentos al enviar email
Posted: Sat Jul 15, 2023 04:30 PM

karinha wrote:Mira:

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

Regards, saludos.

Eliminando acentos ? :shock:

C.

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix

Anonymous

Posts: 155

Joined: Tue Dec 30, 2008 03:07 AM

Re: Acentos al enviar email
Posted: Sat Jul 15, 2023 08:25 PM

karinha wrote: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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Acentos al enviar email
Posted: Sun Jul 16, 2023 06:50 PM

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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

juanjogascem

Posts: 103

Joined: Wed May 31, 2006 08:49 AM

Re: Acentos al enviar email
Posted: Fri Jul 21, 2023 05:13 PM

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

Posts: 8515

Joined: Tue Dec 20, 2005 07:36 PM

Re: Acentos al enviar email
Posted: Fri Jul 21, 2023 06:11 PM

Code (fw): Select all Collapse

#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.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341

FiveTech Support Forums

Continue the discussion