Outlook MailItem：メールの着信と発信の区別方法を教えてください。

Question

私はVSTO Outlook addinをC＃で書いています。指定されたMailItemが着信か発信かを区別する必要があります（たとえば、ドラフトの場合など）。

これを行う簡単な方法はありますか？私が今使っているベストソリューションは、受取人、CCとBCCのリストを取得し、アクティブなアカウントから電子メールのアドレスを読み込み、それらの2つのリストが交差しているかどうかを確認することですが、これはかなり壊れやすいようです。 。

使用例：ReceivedTimeまたはSentOnのいずれかのメールに関連する日付を取得したいのですが、どちらを使用するかを知るために、メールの送受信の有無を知ることができます。

はアイデアをありがとう:)

Answer 1

をMailItemの.Parentプロパティを見てみましょう - など、それは受信トレイであるかどうかを判断するために、フォルダのプロパティを調べ、送信トレイ、下書き、送信済みアイテム

Answer 2

ましたMailItem.Sentプロパティを試してみますか？

着信の場合はtrue、発信の場合はfalseです。

Answer 3

私は同じ問題でここに来ました。私は明示的にユーザーが私のユースケース内のあるフォルダにメールを移動することを提案するので、親をチェックすることは役に立たないでしょう...

MailItem.Sentについて：MailItem.Sentはこのように動作しますか？私はちょうど私の受信トレイとSentItemsの両方を実行するための簡単なコードを書いて、それらのほとんどすべてが送信されたことは真です。私はこれが実際にメールが送信されたかどうかの表示（=草案ではない）...

Answer 4

MailItem.sentは着信の場合も同様です。

MailItem.ReceivedByEntryIDのチェックはいかがですか。しかし、Outlook Expressや他の電子メールプログラムからのインポートと言っても、これが失敗する（ReceivedByEntryIDは受信トレイのメールにはnullになる）と確信しています。

メールアカウント/ senderemailの反復は、

Answer 5

Outlook.OlDefaultFolders.olFolderInboxまたはolFolderOutboxの中にあるかどうかを確認することができます。次に、これらのフォルダのいずれかに入っているかどうかを確認するための他の方法が必要です。

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

Answer 6

私は、電子メールが送信された後に新しいUserPropertyを追加することで、この問題を解決しました。だから私は電子メールが送信されたかどうかを確認する必要があるとき、私はこのプロパティをチェックします。これは、電子メールが[送信済み]フォルダから移動された場合でも機能します。もちろん、これは新しく作成された電子メールに対してのみ機能しますが、最初の起動時にこのプロパティを[送信済み]フォルダ内のすべての電子メールに追加できます。唯一の不具合は、UserPropertiesがデフォルトで印刷されることですが、これはoverriddenです。

Answer 7

これはメールの種類を確認する方法で、メールが任意のフォルダに移動しても機能します。私はVBAで同じ問題を抱えていたため、このソリューションは、以下の見通し2007年に提供されていますPROPERTYアクセサがコード

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 8

で使用しています。このページに来ました。親フォルダを確認するのは面倒です。メッセージはいくつかのフォルダに保存することができます（したがって、複数のフォルダを繰り返し処理する必要があります）。または、フォルダを変更した可能性があります。極端な例：削除済みアイテムフォルダには、受信メールアイテムと送信メールアイテムの両方が含まれています。

私はReceivedByName（私は彼がReceivedEntryIDを選択したと思う）をチェックする上記の別の人（Adi Kini）と同様のソリューションを選択しました。 ReceivedByNameプロパティは、現在送信されている送信メッセージのNull（ ""）です。この方法では、受信ボックスにドラッグされた送信済みアイテムを見つけることができます。これはかなり信頼できる方法のようです。

メールが到着しているのか発信しているのかを確認するような明らかに簡単なことは、私たちを元気にすることができます。

Answer 9

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