Page 1 of 1
Acentos al enviar email
Posted: Sat Jul 15, 2023 2:18 pm
by 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
Re: Acentos al enviar email
Posted: Sat Jul 15, 2023 4:17 pm
by karinha
Re: Acentos al enviar email
Posted: Sat Jul 15, 2023 4:30 pm
by Carles
Eliminando acentos ?
C.
Re: Acentos al enviar email
Posted: Sat Jul 15, 2023 8:25 pm
by jpcavagnaro
Pero no quiero eliminar los acentos, quiero que salgan como corresponde.
Re: Acentos al enviar email
Posted: Sun Jul 16, 2023 6:50 pm
by 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.
Re: Acentos al enviar email
Posted: Fri Jul 21, 2023 5:13 pm
by 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."
Re: Acentos al enviar email
Posted: Fri Jul 21, 2023 6:11 pm
by karinha
Code: Select all | Expand
#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.