Outlook - 配布リストのメンバーの詳細

Question

配布リスト（〜200人を含む）のユーザーの詳細を取得しようとしています。

新しい電子メールを作成するときに、このDLを唯一の受信者として追加し、以下のマクロを実行すると、〜15の最初の結果が返され、 "OutlookはMicrosoft Exchangeサーバーからデータを取得しようとしています"私は "操作が失敗しました"というエラーが表示されることがあります。

コード実行を続行すると、次の15個の値が返され、この問題が再び表示されます。 Exchangeのスパム対策の制限があるような継ぎ目があります。

Sub GetDetails(olMail As MailItem) 

    Dim i As Integer, j As Integer 
    For i = 1 To olMail.Recipients.Count ' count = 1 
     If olMail.Recipients.Item(i).AddressEntry.GetExchangeUser Is Nothing Then 
      For j = 1 To olMail.Recipients.Item(i).AddressEntry.Members.Count ' count ~= 200 
       Debug.Print olMail.Recipients.Item(i).AddressEntry.Members.Item(j).GetExchangeUser.FirstName 
      Next j 
     End If 
    Next i 
End Sub 

しかし、私は（「+」アイコンを使用して）配布リストを展開して、わずかに変更されたコードを実行した場合、すべてのユーザの結果は問題なく（ほんの数秒を取る）で返されます。

Sub GetDetails(olMail As MailItem) 

    Dim i As Integer 
    For i = 1 To olMail.Recipients.Count ' count ~= 200 
     If Not olMail.Recipients.Item(i).AddressEntry.GetExchangeUser Is Nothing Then 
      Debug.Print olMail.Recipients.Item(i).AddressEntry.GetExchangeUser.FirstName 
     End If 
    Next i 
End Sub 

Answer 1

コード内で即座にOutlook COMオブジェクトを解放する必要があります。これは、アドインがMicrosoft Exchange Serverに格納されているコレクションに256を超えるOutlookアイテムを列挙しようとする場合に特に重要です。これらのオブジェクトを適時に解放しないと、一度に開いたアイテムの最大数にExchangeが課す制限に達することができます。完了したら、変数をNothingに設定して、オブジェクトへの参照を解放します。ユージンのフィードバックに基づいて

Answer 2

更新（作業）コード：

Sub GetDetails(olMail As MailItem) 
    Dim oRecipients As Recipients 
    Dim oRecipient As Recipient 
    Dim oMembers As AddressEntries 
    Dim oMember As AddressEntry 
    Dim i As Integer, j As Integer, dRecCnt As Integer, dMemCnt As Integer 

    Set oRecipients = olMail.Recipients 

    dRecCnt = oRecipients.Count 
    For i = 1 To dRecCnt 
     Set oRecipient = oRecipients.Item(i) 

     If oRecipient.AddressEntry.GetExchangeUser Is Nothing Then 
      Set oMembers = oRecipient.AddressEntry.Members 

      dMemCnt = oMembers.Count 
      For j = 1 To dMemCnt 
       Set oMember = oMembers.Item(j) 

       Debug.Print c & ": " & oMember.GetExchangeUser.FirstName 

       Set oMember = Nothing 
      Next j 

      Set oMembers = Nothing 
     End If 

     Set oRecipient = Nothing 
    Next i 

    Set oRecipients = Nothing 
End Sub