I am still using ACCESS 2003 to run my office as this is the most versatile programming / DB combination, extremely stable, client-server + replicable and very fast to program. after ACCESS 2007 the programm turned instable and stalls again and again.
Since 2003 many new feature came into existence that I have to program „around“ or implement myself. Here I am contributing to public domain.
Email-Issues regarding Charsets, ……
because I often dont remember the proper function names I created 3 similar wrapping functions
Function Ascii2HTML(ByVal s As String) As String
 Ascii2HTML = UnicodeToISO_8859_1(s)
End Function
Function Ascii2Unicode(ByVal s As String) As String
 Ascii2Unicode = UnicodeToISO_8859_1(s)
End Function
Function HTML2Ascii(ByVal s As String) As String ‚utf, unicode, Ansii
  HTML2Ascii = UnicodeToISO_8859_1(s)
End Function
‚https://docs.microsoft.com/en-us/previous-versions/exchange-server/exchange-10/ms526296(v=exchg.10)
Function UnicodeToISO_8859_1(ByVal Text As String) As String
Dim objStream As Object
Const adTypeBinary = 1
Const adTypeText = 2
On Error GoTo x
Set objStream = CreateObject(„ADODB.Stream“)
objStream.Type = adTypeText
objStream.Charset = „UTF-8“
‚objStream.Charset = „iso-8859-15“
‚objStream.Charset = „iso-14289-1“
objStream.Open
‚put Text in StreamÂ
objStream.WriteText Text
objStream.Flush
objStream.Position = 0
‚objStream.Charset = „UTF-8“
objStream.Charset = „iso-8859-15“
objStream.Type = adTypeBinary
If err Then
UnicodeToISO_8859_1 = Null
Else
UnicodeToISO_8859_1 = Mid(StrConv(objStream.Read, vbUnicode), 4, 10000)
End If
objStream.Close
Exit Function
x:
MsgBox CStr(err.Number) + “ “ + err.Description
End Function
