配布リストの連絡先からOutlook連絡先の詳細を取得

Question

Outlookの配布リストを使用してフォームレターを作成することはできません（これらのリストを選択することはできません）ので、連絡先から連絡先情報を読みたいと思います配布リストに追加します。

APIによれば、ContactItemを取得するか、プロパティアクセサーでプロパティを読み取ることができるはずです。両方とも動作しません。 簡単な方法は、連絡先の名前（これは私がAddressEntryから読むことができる）とOutlookアドレス帳で検索することだけです。しかし、私はこれが面倒で、エラーを起こしやすいと思います。

下記のテストコードを参照してください。 GetContact（）とGetProperty（）の両方が機能しません。

名前、会社の住所などの連絡先の詳細を取得する別の方法はありますか？

Option Explicit 

Sub test() 
Dim myOlExp As Outlook.Explorer 
Dim myOlSel As Outlook.Selection 
Dim myOlDistList As Outlook.DistListItem 
Dim nrListItems As Integer 
Dim myRecipient As Outlook.Recipient 
Dim myAddressEntry As Outlook.AddressEntry 
Dim myContactItem As Outlook.ContactItem 
Dim myPropertyAccessor As Outlook.propertyAccessor 
Dim givenName As String 

Set myOlExp = Application.ActiveExplorer 
Set myOlSel = myOlExp.Selection 
Set myOlDistList = myOlSel.Item(1) 
For nrListItems = 1 To myOlDistList.MemberCount 
    Set myRecipient = myOlDistList.GetMember(nrListItems) 
    Set myAddressEntry = myRecipient.AddressEntry 
    ' does not work 
    Set myContactItem = myAddressEntry.GetContact 

    Set myPropertyAccessor = myAddressEntry.propertyAccessor 
    ' does also not work 
    givenName = myPropertyAccessor.GetProperty("urn:schemas:contacts:givenName") 
Next nrListItems 
End Sub 

Answer 1

はい、Outlookオブジェクトモデルに問題があります。私は使用方法が不足している回避策を知らない。Redemption

Dim myOlExp As Outlook.Explorer 
Dim myOlSel As Outlook.Selection 
Dim Session As Redemption.RDOSession 
Dim myOlDistList As Redemption.RDODistListItem 
Dim nrListItems As Integer 
Dim myAddressEntry As Redemption.RDOAddressEntry 

     set Session = CreateObject("Redemption.RDOSession") 
     Session.MAPIOBJECT = Application.Session.MAPIOBJECT 
     set myOlDistList = Session.GetMessageFromID(Application.ActiveExplorer.Selection(1).EntryID) 
     For nrListItems = 1 To myOlDistList.MemberCount 
     Set myAddressEntry = myOlDistList.GetMember(nrListItems) 
     Set myContactItem = myAddressEntry.GetContact 
     MsgBox myContactItem.FirstName 
     next