邮件的VBScript不输出UTF-8格式，也没有换行符

Question

我尝试实现将在特定时间发送出去的邮件脚本 在Windows上使用任务计划程序。我体内的输出不是什么 我期望并且不提供换行符。无论如何，要控制输出应采用哪种格式？

脚本和编程新手。试图了解和学习VBScript。 感谢您的帮助。

到目前为止我所拥有的：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="CP65001"%>

Const MSG_RECIPIENT_LIST = "foor@bar.com"
Const MSG_SUBJECT = "力"
Const MSG_BODY = "これをやろう" + vbNewLine + "我々は一緒に大きなものを達成する"

Dim olkApp, olkSes, olkMsg
Set olkApp = CreateObject("Outlook.Application")
Set olkSes = olkApp.GetNamespace("MAPI")
olkSes.Logon olkApp.DefaultProfileName
Set olkMsg = olkApp.CreateItem(0)
With olkMsg
  .To = MSG_RECIPIENT_LIST
  .Subject = MSG_SUBJECT
  .HTMLBody = MSG_BODY
  .Send
End With
olkSes.Logoff
Set olkMsg = Nothing
Set olkSes = Nothing
Set olkApp = Nothing