Outlook VBA：为什么Sender和ReceivedByName返回相同的名称？

Question

我写了一个邮件保护程序宏来读取收件人，发件人和其他一些东西，格式化文件名并保存为* .msg。这可以从收件箱中正常工作。但是，当我从“已发送”文件夹中使用它时，下面的代码位会将我的名称作为发件人和收件人返回。那是为什么？

基本邮件格式如下：

收件箱文件夹： - 发件人（某人） - 学科 - 收件人（我）

已发送的文件夹： - 发件人（我） - 学科 - 收件人（某人）

代码：

For Each objItem In ActiveExplorer.Selection

    If objItem.MessageClass = "IPM.Note" Then
        Set oMail = objItem

        mSender = oMail.Sender
        'mSender = oMail.SenderName 'Same result as .Sender

        mRecipient = oMail.ReceivedByName
        'mRecipient = oMail.ReceivedOnBehalfOfName   'Same result as .ReceivedByName

        MsgBox "Sender: " & mSender & "_ Recipient: " & mRecipient

Answer 1

原来它

oMail.Recipients.Item(i)