Problemas con blat y caracteres españoles

[jasm.quitaesto]

Hola
Estoy haciendo pruebas con blat y pasa totalmente de ellos.
He intentado cambiar el charset a UTF-8, pero ni caso.
¿Alguien ha resuelto este lio?
Gracias y un saludo
Alf+.

[dezac]

José Alfonso,
¿has intentado convertir el texto con AnsiToUTF8()?
Saludos,
José Lalí­n

[jasm.quitaesto]

Ok. Pruebo y te digo algo.
Gracias, Jose.
El 24/12/2012 12:15, José Lalí­n escribió:
> José Alfonso,
>
> ¿has intentado convertir el texto con AnsiToUTF8()?
>
> Saludos,
> José Lalí­n
>
>

[jasm.quitaesto]

Jose,
Nop. Sigue haciendo lo que quiere con las letras acentuadas y la ñ.
Saludos
Alf+.
El 24/12/2012 12:15, José Lalí­n escribió:
> José Alfonso,
>
> ¿has intentado convertir el texto con AnsiToUTF8()?
>
> Saludos,
> José Lalí­n
>
>

[dezac]

José Alfonso,
me imagino que es la versión de Blat. Mirando el changelog veo que habí­a un
bug en el tratamiento de UTF8.
Prueba con la 3.07:
http://sourceforge.net/projects/blat/fi ... Full%20Ver sion/32%20bit%20versions/Win2000%20and%20newer/
Saludos,
José Lalí­n

[jasm.quitaesto]

Jose,
Es la que estoy usando.
Saludos
Alf+.
El 24/12/2012 13:39, José Lalí­n escribió:
> José Alfonso,
>
> me imagino que es la versión de Blat. Mirando el changelog veo que habí­a
> un bug en el tratamiento de UTF8.
>
> Prueba con la 3.07:
>
> http://sourceforge.net/projects/blat/fi ... Full%20Ver sion/32%20bit%20versions/Win2000%20and%20newer/
>
>
> Saludos,
> José Lalí­n
>

[dezac]

José Alfonso,
pon ::cCharSet a "utf-8" y esta opción en ::cExtra: -8bitmime
Si sigue sin funcionar dime cómo estás cargando el objeto para probarlo aquí­.
Saludos,
José Lalí­n

[jasm.quitaesto]

Jose,
Aquí­ te pongo como está construido el objeto:
WITH OBJECT mail := TBlatMail():New()
:cServer := conf:getServidorSMTP():getServidor():getValue()
:cAddress := conf:getUsuario():getEmail():getValue()
:cUser := conf:getServidorSMTP():getUsuario():getValue()
:lAuth := ( conf:getServidorSMTP():getAutentificacion()
!= 1 )
:nPort := conf:getServidorSMTP():getPuerto()
:nAuth := conf:getServidorSMTP():getAutentificacion() - 1
:lLog := .T.
:cCharSet := "UTF-8"
:cExtra := "-8bitmime"
:cPassword := conf:getServidorSMTP():getClave():getValue()
:Create()
IF :nLastError == 0
:cSubject := o:getAsunto():getValue()
:cBody := o:getMensaje():getValue()
:aReceipts := { d:getEMail():getValue() }
if !:Send()
MsgInfo( "Error " + AllTrim( Str( :nlastError ) )
+ "enviando correo electrónico." )
end if
ELSE
MsgInfo( "Error " + AllTrim( Str( :nlastError ) ) +
"enviando correo electrónico." )
ENDIF
:Destroy()
END WITH
Saludos
Alf+.
El 26/12/2012 9:54, José Lalí­n escribió:
> ::cExtra: -8bitmime

[dezac]

José Alfonso,
¿puedes decirme el texto con el que falla?
Saludos,
José Lalí­n

[jasm.quitaesto]

El más simple:
á é í­ ó ú íœ í¼ ñ í‘
Saludos
Alf+.
El 26/12/2012 12:34, José Lalí­n escribió:
> José Alfonso,
>
> ¿puedes decirme el texto con el que falla?
>
> Saludos,
> José Lalí­n
>

[dezac]

José Alfonso,
he probado con -unicode/AnsoTyUTF8() y con varios CharSet y tampoco funciona.
Se me ocurre que tiene que funcionar poniendo lHtml a .T. y "escapando" el
texto: "opción" -> "opciÃn"
Saludos,
José Lalí­n

[jasm.quitaesto]

Jose,
lHtml no está en TBlatMail:
***************************** Registro de errores
*****************************
Exe:
D:DocumentosDocumentosXailerProjects2012mensajesmensa jes.exe
Version: 1.0.0.0
User name: jasm
Computer name: PORTATIL_JASM
Fecha: 26.12.2012
Hora: 20:14:03
Memoria libre: 437668
Area actual: 1
------------------------- Información del compilador
--------------------------
Versión Xailer: Xailer 2.7.4
Compilador: Harbour 3.2.0dev (Rev. 18186)
Compilador C/C++: Borland C++ 5.5.1 (32-bit)
Plataforma: Windows Vista 6.0.6002 Service Pack 2
----------------------- Información detallada del error
-----------------------
Subsistema: BASE
Código de error: 1005
Estado: .F.
Descripción: Message not found
Operación: TBlatMail:_LHTML
Argumentos: [ 1] = Tipo: O Valor:
Fichero:
Código error SO: 0
Pila de llamadas:
__ERRRT_SBASE (0)
TBLATMAIL:ERROR (0)
(b)HBOBJECT (0)
TBLATMAIL:MSGNOTFOUND (0)
TBLATMAIL:_LHTML (0)
REDACTARCTR:ENVIARMAIL (174)
REDACTARCTR:SHOWFRM (70)
CTRPRINCIPAL:NUEVOMENSAJE (301)
MENSAJESFRM:RESPONDER (399)
TBTNBMP:ONCLICK (0)
TBTNBMP:CLICK (100)
(b)XCONTROL (147)
TBTNBMP:COMMAND (0)
TPAGE:WMCOMMAND (281)
MENSAJESFRM:SHOWMODAL (0)
CTRPRINCIPAL:RUNMENU (149)
CTRPRINCIPAL:NEW (75)
EMPEZAR (29)
MAIN (14)
El 26/12/2012 13:56, José Lalí­n escribió:
> José Alfonso,
>
> he probado con -unicode/AnsoTyUTF8() y con varios CharSet y tampoco
> funciona.
>
> Se me ocurre que tiene que funcionar poniendo lHtml a .T. y "escapando"
> el texto: "opción" -> "opciÃn"
>
> Saludos,
> José Lalí­n
>

[dezac]

José Alfonso,
prueba con nType := btHTML
En Xailer.chm están todas las propiedades y métodos del componente.
Saludos,
José Lalí­n

[jasm.quitaesto]

Hola Jose:
Compilando redactarCtr.prg...
redactarCtr.prg(174) Warning W0001 Ambiguous reference 'BTHTML'
Enlazando mensajes.exe...
1 Files, 1 Warnings, 0 Errors
Tiempo de compilación: 3.13s Tiempo de enlazado: 6.79s Tiempo total:
10.11s
He puesto el valor de cType := 1 y he "escapado" así­ el tí­tulo y el
cuerpo del mensaje:
:cSubject := e"" + o:getAsunto():getValue()
:cBody := e"" + o:getMensaje():getValue()
y sigue igual.
Saludos
Alf+.
El 27/12/2012 15:53, José Lalí­n escribió:
> José Alfonso,
>
> prueba con nType := btHTML
>
> En Xailer.chm están todas las propiedades y métodos del componente.
>
> Saludos,
> José Lalí­n
>
>

[jlalin]

José Alfonso,
> redactarCtr.prg(174) Warning W0001 Ambiguous reference 'BTHTML'
#include "blatmail.ch"
> He puesto el valor de cType := 1 y he "escapado" así­ el tí­tulo y el cuerpo
> del mensaje:
>
> :cSubject := e"" + o:getAsunto():getValue()
Que yo sepa e"" es una extensión que permite incluir CR, LF, TAB, etc.
embebidos en una cadena y no tiene nada que ver con la conversión de
caracteres nacionales a HTML.
Saludos,
José Lalí­n

[jasm.quitaesto]

El 28/12/2012 18:04, José Lalí­n escribió:
> José Alfonso,
>
>> redactarCtr.prg(174) Warning W0001 Ambiguous reference 'BTHTML'
>
> #include "blatmail.ch"
No lo habí­a incluí­do.
>
>> He puesto el valor de cType := 1 y he "escapado" así­ el tí­tulo y el
>> cuerpo
>> del mensaje:
>>
>> :cSubject := e"" + o:getAsunto():getValue()
>
> Que yo sepa e"" es una extensión que permite incluir CR, LF, TAB, etc.
> embebidos en una cadena y no tiene nada que ver con la conversión de
> caracteres nacionales a HTML.
Cierto.
Aunque da lo mismo. No funciona ni para atrás el blat con los caracteres
españoles. Se supone que no deberí­a andar inventando cosas para poder
enviar correos de forma correcta y que para eso está el poder indicar el
charset.
Saludos
Alf+.
>
> Saludos,
> José Lalí­n
>
>

[jasm.quitaesto]

Hola Jose,
Haciendo lo que me comentaste de hacerlo convirtiendo a HTML me ha dado
buen resultado con el cuerpo del mensaje. La cabecera sigue saliendo mal
(al convertirla a HTML sale "Prueba de à à Ã
à Ã" )
A ver si consigo afinarlo un poco.
Saludos y gracias
Alf+.
El 28/12/2012 19:54, José Alfonso Suárez Moreno escribió:
> El 28/12/2012 18:04, José Lalí­n escribió:
>> José Alfonso,
>>
>>> redactarCtr.prg(174) Warning W0001 Ambiguous reference 'BTHTML'
>>
>> #include "blatmail.ch"
>
> No lo habí­a incluí­do.
>
>>
>>> He puesto el valor de cType := 1 y he "escapado" así­ el tí­tulo y el
>>> cuerpo
>>> del mensaje:
>>>
>>> :cSubject := e"" + o:getAsunto():getValue()
>>
>> Que yo sepa e"" es una extensión que permite incluir CR, LF, TAB, etc.
>> embebidos en una cadena y no tiene nada que ver con la conversión de
>> caracteres nacionales a HTML.
>
> Cierto.
>
> Aunque da lo mismo. No funciona ni para atrás el blat con los caracteres
> españoles. Se supone que no deberí­a andar inventando cosas para poder
> enviar correos de forma correcta y que para eso está el poder indicar el
> charset.
>
> Saludos
>
> Alf+.
>
>>
>> Saludos,
>> José Lalí­n
>>
>>
>

[jlalin]

José Alfonso,
si cargas el texto así­ funciona:
:cSubject := AnsiToOEM( "Opción de enví­o" )
:cBody := AnsiToOEM( "España, página de códigos, único, sí­mbolo" )
Y no hace falta usar ninguna página de códigos. Lo único que no he
conseguido es el sí­mbolo del euro.
Saludos,
José Lalí­n

[jasm.quitaesto]

Gracias Jose.
Hace muuucho que no usaba esa conversión .
Pruebo y te cuento.
Saludos
Alf+.
El 29/12/2012 19:40, José Lalí­n escribió:
> José Alfonso,
>
> si cargas el texto así­ funciona:
>
> :cSubject := AnsiToOEM( "Opción de enví­o" )
> :cBody := AnsiToOEM( "España, página de códigos, único, sí­mbolo" )
>
> Y no hace falta usar ninguna página de códigos. Lo único que no he
> conseguido es el sí­mbolo del euro.
>
> Saludos,
> José Lalí­n
>

[jasm.quitaesto]

Funcionó
El 29/12/2012 19:40, José Lalí­n escribió:
> José Alfonso,
>
> si cargas el texto así­ funciona:
>
> :cSubject := AnsiToOEM( "Opción de enví­o" )
> :cBody := AnsiToOEM( "España, página de códigos, único, sí­mbolo" )
>
> Y no hace falta usar ninguna página de códigos. Lo único que no he
> conseguido es el sí­mbolo del euro.
>
> Saludos,
> José Lalí­n
>