如何在VBA中编写并显示缅甸语字符？邮件乱码问题求助

问题根源 #

VBA编辑器默认用ANSI编码存储非西欧语言字符，直接硬编码缅甸语会被转成乱码字符，最终导致邮件显示异常。修改编辑器显示格式或系统区域设置无法解决编码存储的核心问题。

可行解决办法 #

• 通过Unicode文本文件读取缅甸语内容
  不要直接在VBA代码里写缅甸语，把文本存在Unicode格式的文件中，再用VBA读取：

  Dim myanmarText As String
  Dim filePath As String
  filePath = "C:\your_path\myanmar_content.txt" ' 替换为实际文件路径
  ' 以Unicode编码读取文件
  Open filePath For Input As #1
  myanmarText = Input$(LOF(1), 1)
  Close #1
  ' 组装HTML邮件内容
  .HTMLBody = "<html><head><meta charset='UTF-8'></head><body>Hello " & myanmarText & "</body></html>"
  

  注意保存文本文件时，选择「Unicode (UTF-16 LE)」格式，确保VBA能正确识别字符。

• 使用HTML Unicode转义序列硬编码
  如果必须在代码里写缅甸语，把字符转换成HTML的Unicode转义码（格式为&#xXXXX;，XXXX是字符的Unicode码点），示例：

  .HTMLBody = "<html><head><meta charset='UTF-8'></head><body>Hello &#x1000;&#x102D;&#x1030;&#x1004;&#x103A;&#x1015;&#x102C;&#x103A;&#x101C;&#x102F;&#x1016;&#x103A;&#x1004;&#x1024;&#x103A;&#x103A;&#x1000;&#x1030;&#x1004;&#x103A;&#x101E;&#x1025;&#x1031;&#x101E;&#x102C;&#x1023;&#x1000;</body></html>"
  

  邮件客户端会自动解析转义码并显示正确的缅甸语。

• 强制HTML使用UTF-8编码
  无论用哪种方式，都要在HTML头部添加UTF-8编码声明，避免客户端用错误编码解析：

  .HTMLBody = "<html><head><meta charset='UTF-8'></head><body>" & 你的内容 & "</body></html>"
  

内容的提问来源于stack exchange，提问作者WaeYan2993