求助， CDO.Message 如何设置邮件的 【テーマ(？？主题？？)】 的问题

[MrYou]

先谢谢好心的各位， 问题如下：

用 CDO.Message 实现的发信， 但是客户想要把同一类多封邮件的　テーマ 的值设置成一样的。。。
（客户想要的操作是： 在 Outlook 里， 选 "表示" - "並び替え" - "テーマ" 之后进行排序）

现在用 CDO.Message 发信之后， 　テーマ 的值和 Subject（标题，件名） 的值是一样的。。
（代码如下，因为不知道怎么设置テーマ的值，所以只设置 Subject属性的时候）
想问一下， CDO.Message 有没有设置　テーマ 值的属性 ， 或是能否实现高同一类多个信件的　テーマ 值 是一样的呢？？

テーマ　： 日文 OutLook 里， 一封邮件的一个属性，看上去和标题（Subject）一样的东西。
昨天晚上回家，看到 中文 OutLook 里　テーマ 对应的是 “？？主题” 的一个东西。。。


Dim oMsg
Set oMsg = CreateObject("CDO.Message")
oMsg.From = "[e-mail]"
oMsg.To = "[e-mail]"
oMsg.MimeFormatted = true
oMsg.Fields("urn:schemas:httpmail:importance").Value = 2
oMsg.Fields("urn:schemas:mailheader:X-MSMail-Priority").Value = "High"
oMsg.Fields("urn:schemas:mailheader:X-Priority").Value = 1
oMsg.Fields.Update

oMsg.Subject = "Test"
oMsg.TextBody = "Test Mail"
oMsg.BodyPart.Charset = "iso-2022-jp"

oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "*******SMTP*******"
oMsg.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
oMsg.Configuration.Fields.Update

oMsg.Send
Set oMsg = Nothing

[MrYou]

顶一下

[MrYou]

up

[mailbao]

暈~~在中國的地盤賣弄日語,你想幹啥??(呵呵,說笑,日文意思不懂,無法解答!)