VBScript для почты не выводит формат UTF-8 и без новой строки - PullRequest
Новая
       34

VBScript для почты не выводит формат UTF-8 и без новой строки

0 голосов
/ 03 декабря 2018

Я пытаюсь создать почтовый скрипт, который будет разослан в определенное время с помощью планировщика задач в 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
...