E-Mail UTF8 problem?

[cnavarro]

Dear Dutch, I have tested your code
You just need to add at the beginning

Code: Select all  Expand view  RUN

HB_SETCODEPAGE( "UTF8" )
 

There's no need

Code: Select all  Expand view  RUN

//Fw_SetUnicode( .T. )
 

No additional change is necessary

[richard-service]

Dear Dutch, I have tested your code
You just need to add at the beginning

Code: Select all  Expand view  RUN

HB_SETCODEPAGE( "UTF8" )
 

There's no need

Code: Select all  Expand view  RUN

//Fw_SetUnicode( .T. )
 

No additional change is necessary

Dear cnavarro,
Yes, same as my set for Harbour.
But use FWH input Unicode word, I think it need to use Fw_SetUnicode(.T.)

[cnavarro]

Dear Richard
I have not needed to use it, but perhaps because of the language that I am using by default on the computer, I have to use Fw_Unicode (.T.) or not be necessary. Is simply try

[richard-service]

Dear Richard
I have not needed to use it, but perhaps because of the language that I am using by default on the computer, I have to use Fw_Unicode (.T.) or not be necessary. Is simply try

OK. I will to try Email system for it.

[dutch]

Dear cnavarro,

I add as your suggestion as below but no success. Cloud you send me the code that you try and success please?

Thank you in advance.

Code: Select all  Expand view  RUN

FW_SetUnicode( .T. )

MYSQL_TinyIntAsLogical( .T. )

SET EPOCH TO year(date())-90
SET DATE FORMAT TO 'DD/MM/YY'
SET DATE BRITISH

HB_SETCODEPAGE( "UTF8" )

Dear Dutch, I have tested your code
You just need to add at the beginning

Code: Select all  Expand view  RUN

HB_SETCODEPAGE( "UTF8" )
 

There's no need

Code: Select all  Expand view  RUN

//Fw_SetUnicode( .T. )
 

No additional change is necessary

[cnavarro]

Dear Dutch
Please try with ( not with Fw_SetUnicode( .T. ) ), and tell me

HB_SETCODEPAGE( "UTF8" )

MYSQL_TinyIntAsLogical( .T. )

SET EPOCH TO year(date())-90
SET DATE FORMAT TO 'DD/MM/YY'
SET DATE BRITISH

[dutch]

Dear cnavarro,

Yes, it works correctly for Email but I the program use Fw_SetUnicode( .T. ). The SAY, Title of Dialog are unreadble, if I remove Fw_SetUnicode( .T. ) in the beginning of the program as picture.

Dear Dutch
Please try with ( not with Fw_SetUnicode( .T. ) ), and tell me

HB_SETCODEPAGE( "UTF8" )

MYSQL_TinyIntAsLogical( .T. )

SET EPOCH TO year(date())-90
SET DATE FORMAT TO 'DD/MM/YY'
SET DATE BRITISH

[cnavarro]

Dear Dutch
Try disabling Fw_SetUnicode (.F.) when entering the mail send function ( CDO ) and putting Fw_SetUnicode (.T.) right at the end of the function

[dutch]

Dear cnavarro,

Thank you for your suggetion.

Dear Dutch
Try disabling Fw_SetUnicode (.F.) when entering the mail send function ( CDO ) and putting Fw_SetUnicode (.T.) right at the end of the function

[dutch]

Dear cnavarro,

It did not work and strange behavior.
1. FW_SetUnicode( .T. ) at beginning
FW_SetUnicode( .F. )
Send Mail (CDO)
FW_SetUnicode( .T. )
* Mail is not readable *
2. Do not set anything
Send Mail (CDO)
* Mail is readable correctly *
* SAY and Title of Dialog is unreadable *
3. HB_SETCODEPAGE( "UTF8" ) doesn't effect any case.

FW_SetUnicode( .F. ) is not the same result of *Never Call FW_SetUnicode()*

Dear Dutch
Try disabling Fw_SetUnicode (.F.) when entering the mail send function ( CDO ) and putting Fw_SetUnicode (.T.) right at the end of the function

[cnavarro]

Dear Dutch
Please try with this

Code: Select all  Expand view  RUN

:HTMLBody := hb_StrtoUtf8( cHtml )
 

[dutch]

Dear cnavarro,

It doesn't work. It's still unreadable.

Dear Dutch
Please try with this

Code: Select all  Expand view  RUN

:HTMLBody := hb_StrtoUtf8( cHtml )
 

[cnavarro]

There are other possibilities that you will have to try

Code: Select all  Expand view  RUN

:HTMLBody := hb_strtoutf8( hb_ansitooem( cHtml ) )
 

Code: Select all  Expand view  RUN

:HTMLBody := hb_strtoutf8( cHtml, <your language> )   //  as example: "ESWIN"
 

Code: Select all  Expand view  RUN

:HTMLBody := hb_strtoutf8( hb_ansitooem( cHtml ), <your language> )   //  as example: "ESWIN"
 

Please try and tell me

[dutch]

Dear cnavarro,

It doesn't work as previous try.

There are other possibilities that you will have to try

Code: Select all  Expand view  RUN

:HTMLBody := hb_strtoutf8( hb_ansitooem( cHtml ) )
 

Code: Select all  Expand view  RUN

:HTMLBody := hb_strtoutf8( cHtml, <your language> )   //  as example: "ESWIN"
 

Code: Select all  Expand view  RUN

:HTMLBody := hb_strtoutf8( hb_ansitooem( cHtml ), <your language> )   //  as example: "ESWIN"
 

Please try and tell me