すべての展望検査官のためのループ

Question

私は3つの展望検査官を開いたと言います。

3つのOutlookインスペクタのループ方法は？

したがって、次のようなvb.netコードが必要です。

For Each i In All.Outlook.Inspectors 

Next i 

Answer 1

次のコードでは、InspectorsオブジェクトのInspectorsプロパティとCountプロパティとItemメソッドを使用して、すべてのインスペクタウィンドウのキャプションを表示します。

Dim myInspectors As Outlook.Inspectors 
Dim x as Integer 
Dim iCount As Integer 
Set myInspectors = Application.Inspectors 
iCount = Application.Inspectors.Count 
If iCount > 0 Then 
    For x = 1 To iCount 
    MsgBox myInspectors.Item(x).Caption 
    Next x 
Else 
    MsgBox "No inspector windows are open." 
End If 

Getting Started with VBA in Outlook 2010の記事が参考になる場合があります。