使用Outlook检索原始标题

我正在开发一个Outlook自动化程序，它接收放置在特定文件夹中的邮件，并将其导出为RFC822格式的邮件。然后，该输出文件将被送入SpamAssassin工具sa-learn.exe

For Each oItem In oFolder.Items
    If TypeOf oItem Is RDOMail Then
        Set oMailItem = oItem

        ' Deptermine the fully qualified path to save the file
        sFilePath = GetFilePath(oMailItem, "//Mailbox/SpamAssassin/Spam") 

        'Save the RFC822 format message
        oMailItem.SaveAs sFilePath, rdoSaveAsType.olRFC822

        DoEvents

        oMailItem.UnRead = False
        oMailItem.Delete
    End If
    DoEvents 'Let the Outlook UI thread breathe a bit
Next 'for each

以下是使用此代码保存的邮件的邮件标题，其中包含已编辑的电子邮件地址

From: "Swift Learning" <**********@***.*************.***>
To: <*****@********.***>
Subject: Foreign Languages are easily learned in this program
Date: Tue, 31 Jul 2012 10:11:38 -0700
Message-ID: <8518205138200566845@smx.jacksonpotts2.com>
MIME-Version: 1.0
Content-Type: multipart/alternative;
    boundary="----=_NextPart_000_13AE_01CD6F0A.C9624870"
X-Mailer: Microsoft Outlook 14.0
Thread-Index: AQF4Lq/07oPqx1sKGPa5FKQSalUQXg==

来自：“快速学习”
致：
主题：外语在本课程中很容易学习
日期：2012年7月31日星期二10:11:38-0700
消息ID:
MIME版本：1.0
内容类型：多部分/备选；
boundary=“---=\u下一部分\u 000\u 13AE\u 01CD6F0A.C9624870”
X-Mailer:Microsoft Outlook 14.0
螺纹索引：AQF4Lq/07oPqx1sKGPa5FKQSalUQXg==

这里缺少的是看起来像这样的中继头

Received: from [216.104.163.151] by mail.clarkzoo.org (ArGoSoft Mail Server .NET v.1.0.8.4) with ESMTP (EHLO smtp02-forward-1.daemonmail.net)
    for <*****@*********.***>; Tue, 31 Jul 2012 12:36:25 -0700
Received: from mxw03.daemonmail.net (unknown [216.104.161.13])
    by smtp02-forward-1.daemonmail.net (Postfix) with ESMTP id 4447681FDB;
    Tue, 31 Jul 2012 12:18:01 -0700 (PDT)
Received: from localhost (localhost [127.0.0.1])
    by mxw03.daemonmail.net (Postfix) with ESMTP id 748CF6A0DD
    for <***@******************.***>; Tue, 31 Jul 2012 12:17:52 -0700 (PDT)

通过mail.clarkzoo.org（ArGoSoft mail Server.NET v.1.0.8.4）和ESMTP（EHLO smtp02-forward-1.daemonmail.NET）从[216.104.163.151]接收
对于2012年7月31日星期二12:36:25-0700
收到：来自mxw03.daemonmail.net（未知[216.104.161.13]）
通过smtp02-forward-1.daemonmail.net（后缀），ESMTP id为4447681FDB；
2012年7月31日星期二12:18:01-0700（PDT）
接收：来自本地主机（本地主机[127.0.0.1]）
通过带有ESMTP id 748CF6A0DD的mxw03.daemonmail.net（后缀）
对于2012年7月31日星期二12:17:52-0700（PDT）

如何捕获这些中继头

更新：

进一步研究，Outlook中MailItem中存储的原始标题与Redemption保存的RFC822格式完全不同

这是一个并列比较

Outlook中“属性”对话框中的原始标题

Received: from [108.174.54.7] by mail.clarkzoo.org (ArGoSoft Mail Server .NET v.1.0.8.4) with ESMTP (EHLO upgraded.the-ameri-credit-review.com)
    for <*****@********.***>; Wed, 01 Aug 2012 07:34:15 -0700
Date: Wed, 1 Aug 2012 09:55:57 -0400
Subject: Your TransUnion, Equifax, and Experian Scores May Have Changed
From: "Credit Check" <info@the-ameri-credit-review.com>
To: <*****@********.***>
Message-ID: <132692318349a4a4158c108651c1428c@upgraded.the-ameri-credit-review.com>
Mime-Version: 1.0
Content-Type: text/html; charset=us-ascii
Content-Transfer-Encoding: 8bit
Content-Disposition: inline
SPF-Received: softfail
X-FromIP: 108.174.54.7

收到：从[108.174.54.7]通过mail.clarkzoo.org（ArGoSoft mail Server.NET v.1.0.8.4）和ESMTP（EHLO升级。美国信贷评论网站）
对于2012年8月1日星期三07:34:15-0700
日期：2012年8月1日星期三09:55:57-0400
主题：您的TransUnion、Equifax和益百利得分可能发生了变化
来自：“信用检查”
致：
消息ID:
Mime版本：1.0
内容类型：text/html；字符集=美国ascii码
内容传输编码：8比特
内容配置：内联
接收到SPF:softfail
X-FromIP:108.174.54.7

RFC822格式化文件的标题：

From: "Credit Check" <info@the-ameri-credit-review.com>
To: <*****@********.***>
Subject: Your TransUnion, Equifax, and Experian Scores May Have Changed
Date: Wed, 1 Aug 2012 06:55:57 -0700
Message-ID: <132692318349a4a4158c108651c1428c@upgraded.the-ameri-credit-review.com>
MIME-Version: 1.0
Content-Type: multipart/alternative;
    boundary="----=_NextPart_000_011B_01CD6FC4.403990C0"
X-Mailer: Microsoft Outlook 14.0
Thread-Index: AQIRB+hjg86/OeRgMx9VYijSdeLwhw==

发件人：“信用检查”
致：
主题：您的TransUnion、Equifax和益百利得分可能发生了变化
日期：2012年8月1日星期三06:55:57-0700
消息ID:
MIME版本：1.0
内容类型：多部分/备选；
boundary=“---=\u下一部分\u 000\u 011B\u 01CD6FC4.403990C0”
X-Mailer:Microsoft Outlook 14.0
线程索引：AQIRB+hjg86/OeRgMx9VYijSdeLwhw==

这些标题只是表面上相同

• 中继标头丢失
• 日期和主题在不同的位置
• 日期标题已修改为本地时区
• 内容类型已从“text/html；charset=us ascii”更改为“multipart/alternative；”
• 标题已添加，标题已删除

---

更好的问题是如何捕获邮件的原始标题？

我知道这是一篇旧文章，但请尝试另存为rdoSaveAsType.olRFC822，而不是rdoSaveAsType.olRFC822。它似乎保留了所有的标题