проблема кодирования объекта электронной почты с использованием CDO

Question

Использование vbscript (asp) с CDO У меня проблема с кодировкой SUBJECT электронной почты.Я использовал два решения для части электронной почты BODY, и оба работают, но ни одно из них не работает для части SUBJECT.

Первое решение: Конечное кодирование символов электронной почты BODY с использованием chrw (не работает для subject ):

for x=1567 to 1785
encoded="&#" & x & ";"
Body= Replace(Body, chrw(x), encoded, 1, -1, 1)
next

Второе решение: установка кодировки HTMLBodyPart:

objMessage.HTMLBodyPart.Charset = "utf-8"

Есть ли что-то похожее для SUBJECT-части электронной почты (например, objMessage.SubjectPart.Charset)?

Answer 1

Попробуйте:

objMessage.TextBodyPart.Charset = "utf-8"

или просто:

objMessage.BodyPart.Charset = "utf-8"

В другом месте было задокументировано, что изменение Charset TextBodyPart также влияет на (обычный / текст) субъект.

Надеюсь, это поможет.