Outlook MailItem：如何区分邮件是传入还是传出？

Question

我正在用 C# 编写 VSTO Outlook 插件，我需要区分给定的 MailItem 是传入还是传出（或者两者都不是，例如当它是草稿时）。

有什么万无一失的方法可以做到这一点吗？我现在拥有的最佳解决方案是获取收件人、抄送和密送的列表，从活动帐户加载电子邮件地址，并检查这两个列表是否相交，但这对我来说似乎相当脆弱，我希望有更好的解决方案。

用例：我想获取电子邮件的相关日期，可以是 ReceivedTime 或 SentOn，但要知道应该使用哪一个，我需要知道邮件是否已发送或接收。

谢谢你的想法:)

Answer 1

来到这个页面是因为我在 VBA 中遇到了同样的问题。检查父文件夹很麻烦，因为一条消息可能保存在多个文件夹深处（因此您必须迭代多个文件夹），或者用户可能已更改该文件夹。一个极端的例子：已删除邮件文件夹包含传入和传出邮件项目。

我选择了与上面另一个人（Adi Kini）类似的解决方案，我在其中检查 ReceivedByName（我认为他选择了 ReceivedEntryID）。对于已发送的消息，无论其当前位于何处，ReceivedByName 属性始终为 Null ("")。此方法可以找到已拖入收件箱的已发送项目！。这似乎是一种相当可靠的检查方法。

奇怪的是，像检查邮件是传入还是传出这样看似简单的事情却会让我们犯错！

Answer 2

我带着同样的问题来到这里。由于我将明确建议用户将邮件移动到我的用例中的某个文件夹，因此检查 Parent 不会有帮助...

关于 MailItem.Sent：您确定 MailItem.Sent 以这种方式工作吗？我刚刚编写了一个简单的代码来运行我的收件箱和已发送项目，并且几乎所有这些已发送都是 true。我认为这实际上只是表明邮件是否已发送（=不是草稿）...

Answer 3

我通过在发送电子邮件后添加新的 UserProperty 解决了这个问题。因此，当我需要检查电子邮件是否已发送时，我会检查此属性。即使电子邮件已移出“已发送”文件夹，此操作仍然有效。当然，这仅适用于新创建的电子邮件，但您可以在首次启动时将此属性添加到“已发送”文件夹中的所有电子邮件。唯一的错误是默认打印 UserProperties，但这可以覆盖。

Answer 4

这就是我检查邮件类型的方法，即使邮件被移动到任何文件夹，它也能工作。该解决方案使用 Outlook 2007 中提供的 PROPERTY ACCESSOR。下面是代码

string PR_MAIL_HEADER_TAG = "http://schemas.microsoft.com/mapi/proptag/0x007D001E";

Outlook.PropertyAccessor oPropAccessor = mItemProp.PropertyAccessor;

string strHeader = (string)oPropAccessor.GetProperty(PR_MAIL_HEADER_TAG);

if (strHeader == "")
{
    // MAIL IS OF TYPE SENTBOX
}
else
{
   // MAIL IS OF TYPE INBOX
}

Answer 5

MailItem.sent 对于传入也是如此。

检查 MailItem.ReceivedByEntryID 怎么样。但我确信这会失败（对于收件箱中的邮件，ReceivedByEntryID 将为空），如果您说从 Outlook Express 或其他电子邮件程序导入，则

迭代通过邮件帐户/senderemail 可能会有所帮助，如您所说，但它并不是万无一失的（就像如果您重命名电子邮件地址）

Answer 6

查看 MailItem 的 .Parent 属性 - 检查文件夹属性以确定它是否是收件箱、发件箱、草稿、已发送项目等。

Answer 7

您可以检查它是否位于 Outlook.OlDefaultFolders.olFolderInbox 或 olFolderOutbox 内，然后您应该可以使用其他方法来检查它是否位于这些文件夹中！

Outlook.Application _application = new Outlook.Application();
Outlook.MAPIFolder folder = _application.GetNamespace("MAPI").GetDefaultFolder(Outlook.OlDefaultFolders.olFolderInbox);

Answer 8

对于通过 SMTP 地址进行简单的发送/接收控制，我建议采用地址检查方法。
可以这样完成：

'Get mail address sender
        Dim mailSender As String = GetSenderSMTPAddress(outMailItem)

'Get current user mail address
        Dim mailUser As String = OutlookMail2DocScriba.GetUserSMTPAddress(oNameSpace.CurrentUser.AddressEntry)

        'If sender and current user matches is a sended mail, otherwise received
        If String.Compare(mailSender, mailUser, True) = 0 Then
            Return "Sended"
        Else
            Return "Received"
        End If





    Public Shared Function GetSenderSMTPAddress(ByVal mail As Outlook.MailItem) As String
            'http://msdn.microsoft.com/en-us/library/microsoft.office.interop.outlook.oladdresslisttype.aspx

            If mail Is Nothing Then
                Throw New ArgumentNullException()
            End If
            If mail.SenderEmailType = "EX" Then
                Dim sender As Outlook.AddressEntry = Nothing

                Try
                    sender = mail.Sender
                Catch ex As Exception
                    'Se non è stato in grado di reperire il sender (Outlook 2007), 
                    'ignoro l'eccezione e procedo.
                End Try

                If sender IsNot Nothing Then
                    Return GetUserSMTPAddress(sender)
                Else
                    Return Nothing
                End If
            Else
                Return mail.SenderEmailAddress
            End If
        End Function

        Public Shared Function GetUserSMTPAddress(ByVal sender As Outlook.AddressEntry) As String
            'Now we have an AddressEntry representing the Sender
            'http://msdn.microsoft.com/en-us/library/office/ff868214(v=office.15).aspx
            Const EXCHANGE_USER_ADDRESS_ENTRY As Int32 = 0
            Const EXCHANGE_REMOTE_USER_ADDRESS_ENTRY As Int32 = 5
            Dim PR_SMTP_ADDRESS As String = "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"

            If sender.AddressEntryUserType = EXCHANGE_USER_ADDRESS_ENTRY OrElse _
               sender.AddressEntryUserType = EXCHANGE_REMOTE_USER_ADDRESS_ENTRY Then
                'Use the ExchangeUser object PrimarySMTPAddress
                Dim exchUser As Object = sender.GetExchangeUser()
                If exchUser IsNot Nothing Then
                    Return exchUser.PrimarySmtpAddress
                Else
                    Return Nothing
                End If
            Else
                Return TryCast(sender.PropertyAccessor.GetProperty(PR_SMTP_ADDRESS), String)
            End If
        End Function

Answer 9

我反对 SenderName 与 CurrentUser，以区分收件箱或已发送文件夹中的电子邮件。

Answer 10

您尝试过 MailItem.Sent 属性吗？

传入时为 true，传出时为 false。