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

Question

先谢谢好心的各位， 问题如下： 用 CDO.Message 实现的发信， 但是客户想要把同一类多封邮件的　テーマ 的值设置成一样的 
（客户想要的操作是：  在 Outlook 里， 选 "表示" - "並び替え" - "テーマ" 之后进行排序） 现在用 CDO.Message 发信之后， 　テーマ 的值和 Subject（标题，件名） 的值是一样的。。 
（代码如下，因为不知道怎么设置テーマ的值，所以只设置 Subject属性的时候） 
想问一下， CDO.Message 有没有设置　テーマ 值的属性 ，  或是能否实现高同一类多个信件的　テーマ 值 是一样的呢？？ テーマ　：  日文 OutLook 里， 一封邮件的一个属性，看上去和标题（Subject）一样的东西。 
              昨天晚上回家，看到 中文 OutLook 里　テーマ 对应的是  “？？主题” 的一个东西 
Dim oMsg 
Set oMsg = CreateObject("CDO.Message") 
oMsg.From = "[email protected]" 
oMsg.To = "[email protected]" 
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