受信者の電子メール アドレスを取得する

このトピックでは、 Recipients コレクション内の各受信者の SMTP アドレスを取得する方法を示します。

コード サンプル内の GetSMTPAddressForRecipients メソッドは入力引数として MailItem を取り、そのメール アイテムの各受信者の SMTP アドレスを表示します。このメソッドは最初に、メール アイテムに指定された一連の受信者を表す Recipients コレクションを取得します。次にこのメソッドは、 Recipients コレクション内の Recipient ごとに、その Recipient オブジェクトに対応する PropertyAccessor オブジェクトを取得し、その PropertyAccessor を使用して MAPI プロパティ http://schemas.microsoft.com/mapi/proptag/0x39FE001E の値を取得します。この値は、受信者の SMTP アドレスにマップされます。

このトピックには、2 つのコード サンプルが含まれています。以下のコード サンプルは Microsoft Visual Basic for Applications (VBA) で作成されています。

Sub GetSMTPAddressForRecipients(mail As Outlook.MailItem)
    Dim recips As Outlook.Recipients
    Dim recip As Outlook.Recipient
    Dim pa As Outlook.PropertyAccessor
    Const PR_SMTP_ADDRESS As String = _
        "http://schemas.microsoft.com/mapi/proptag/0x39FE001E"
    Set recips = mail.Recipients
    For Each recip In recips
        Set pa = recip.PropertyAccessor
        Debug.Print recip.name & " SMTP=" _
           & pa.GetProperty(PR_SMTP_ADDRESS)
    Next
End Sub

次のマネージ コードは C# で作成されています。コンポーネント オブジェクト モデル (COM) に呼び出す必要がある .NET Framework マネージ コード サンプルを実行するには、マネージ インターフェイスを定義し、オブジェクト モデル タイプ ライブラリの COM オブジェクトにマップする相互運用機能アセンブリを使用する必要があります。Outlook の場合、Visual Studio および Outlook プライマリ相互運用機能アセンブリ (PIA) を使用できます。Outlook 2013 用のマネージ コード サンプルを実行する前に、Outlook 2013 PIA をインストールしており、Visual Studio で Microsoft Outlook 15.0 オブジェクト ライブラリ コンポーネントへの参照を追加していることを確認してください。Outlook アドインの ThisAddIn クラスで次のコードを使用します (Visual Studio の Office Developer Tools を使用)。コードの Application オブジェクトは ThisAddIn.Globals で提供された、信頼済み Outlook Application オブジェクトである必要があります。Outlook PIA を使用したマネージ Outlook ソリューションの開発の詳細については、MSDN の「 Outlook プライマリ相互運用機能アセンブリ リファレンスへようこそ」を参照してください。

private void GetSMTPAddressForRecipients(Outlook.MailItem mail)
{
    const string PR_SMTP_ADDRESS =
        "http://schemas.microsoft.com/mapi/proptag/0x39FE001E";
    Outlook.Recipients recips = mail.Recipients;
    foreach (Outlook.Recipient recip in recips)
    {
        Outlook.PropertyAccessor pa = recip.PropertyAccessor;
        string smtpAddress =
            pa.GetProperty(PR_SMTP_ADDRESS).ToString();
        Debug.WriteLine(recip.Name + " SMTP=" + smtpAddress);
    }
}