outlook, rispondere sempre in HTML

[Ammammata]

questa macro

https://www.howto-outlook.com/howto/replyinhtml.htm

che ha fatto il suo dovere fino alla versione precedente di outlook che
usavo (2010) oggi sulla 2021 non va, anzi, FA DANNI

in questa parte del codice:

Dim olMsg As Outlook.MailItem
Dim olMsgReply As Outlook.MailItem
Dim IsPlainText As Boolean

'Change the message format and reply
If objItem.Class = olMail Then
Set olMsg = objItem
If olMsg.BodyFormat = olFormatPlain Then
IsPlainText = True
End If
olMsg.BodyFormat = olFormatHTML
Set olMsgReply = olMsg.Reply
If IsPlainText = True Then
olMsg.BodyFormat = olFormatPlain
End If
olMsg.Close (olSave)
olMsgReply.Display

l'istruzione olMsg.BodyFormat = olFormatHTML mi cambia il testo della
mail originale in una accozzaglia di caratteri cinesi (*) e per di più
lo salva anche :'( con la successiva olMsg.Close (olSave) che ho
prontamente disabilitato

ok, nessu problema, era una mail vecchia che avevo usato come base per
il test, però adesso mi serve un replacement dell'intera macro oppure
la correzione dell'errore

Grazie




(*) temo abbia a che fare con un possibile passaggio a caratteri
unicode a doppio byte, è il solo motivo che mi viene in mente che possa
fare questo casino

--
/-\ /\/\ /\/\ /-\ /\/\ /\/\ /-\ T /-\
-=- -=- -=- -=- -=- -=- -=- -=- - -=-
........... [ al lavoro ] ...........

[SB]

Il giorno Thu, 17 Nov 2022 14:27:42 +0100, Ammammata <amma...@tiscali.it> ha
scritto:

>(*) temo abbia a che fare con un possibile passaggio a caratteri
>unicode a doppio byte, è il solo motivo che mi viene in mente che possa
>fare questo casino

Penso anch'io che sia un problema di UCS Big Endian o di UTF-16, potresti
caricare il testo su un visualizzatore esadecimale per vedere cosa codifica, ad
esempio UltraEdit ha inclusa questa possibilità.

Al limite potresti usare Notepad++ con il plugin adatto.
https://sourceforge.net/projects/npp-plugins/files/Hex%20Editor/

Una volta che hai determinato il problema puoi cercare di risolverlo, tenendo
presente che il Vbs usa le funzioni ChrW() e AscW() per lavorare con i
formati a 16 bit.

Ad esempio l'istruzione:

MsgBox ChrW(&h2126) ' visualizza il simbolo di OHM

Diversamente dovrai indagare sull'oggetto Outlook.MailItem per capire cosa hanno
cambiato per utilizzarlo come prima.

--
ciao
Stefano

[Ammammata]

SB used his keyboard to write :

> Diversamente dovrai indagare sull'oggetto Outlook.MailItem per capire cosa
> hanno
> cambiato per utilizzarlo come prima.

oppure trovare una alternativa "a gratis" che al momento google non mi
segnala ;-)