Hi Martin,
In Chinese this maybe some problem (like Outlook)
My Code
Dim oMessage As hMailServer.Message
Set oMessage = New hMailServer.Message
oMessage.Charset = "GB2312"
oMessage.From = "Me哈好"
oMessage.FromAddress = "
a@abc.com"
oMessage.Subject = "哈好Hi"
oMessage.AddRecipient "哈好My friend", "
a@abc.com"
oMessage.Body = "This is the contents of the email.哈好"
oMessage.Attachments.Add "c:\1.txt"
oMessage.Save
========================================================
Content-Type: multipart/mixed; boundary="__=_Part_Boundary_002_030658.019977"
From: =?GB2312?B?TWW5/rrD?=
Subject: =?GB2312?B?uf66w0hp?=
To: =?GB2312?B?uf66w015?= friend <
a@abc.com>
Content-Transfer-Encoding: quoted-printable
Date: Sat, 1 Dec 2007 02:10:24 +0800
This is a multi-part message.
--__=_Part_Boundary_002_030658.019977
Content-Type: text/plain
This is the contents of the email.=B9=FE=BA=C3
--__=_Part_Boundary_002_030658.019977
Content-Type: application/octet-stream; name="1.txt"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="1.txt"
........
==========================================================
Can you change like this:
========================================================
Content-Type: multipart/mixed; boundary="__=_Part_Boundary_002_030658.019977"
From: =?GB2312?B?TWW5/rrD?=
Subject: =?GB2312?B?uf66w0hp?=
To: =?GB2312?B?uf66w015?= friend <
a@abc.com>
Content-Transfer-Encoding: quoted-printable
Date: Sat, 1 Dec 2007 02:10:24 +0800
This is a multi-part message.
--__=_Part_Boundary_002_030658.019977
Content-Type: text/plain;charset="gb2312"
Content-Transfer-Encoding: quoted-printable
This is the contents of the email.=B9=FE=BA=C3
--__=_Part_Boundary_002_030658.019977
Content-Type: application/octet-stream; name="1.txt"
Content-Transfer-Encoding: base64
Content-Disposition: inline; filename="1.txt"
........
==========================================================
SORRY FOR MY POOR ENGLISH.