[アドレス帳を取得する]

アウトルックのアドレス帳を取得します。

【ソースコード】

[tips0178.vbs]
Option Explicit
On Error Resume Next

Dim objOlApp        ' outlook オブジェクト
Dim objOlNs         ' NameSpace オブジェクト
Dim objAdList       ' アドレス帳
Dim objAdEntry      ' 登録情報

Set objOlApp = WScript.CreateObject("Outlook.Application")
If Err.Number = 0 Then
    Set objOlNs = objOlApp.GetnameSpace("MAPI")
    If Err.Number = 0 Then
        Set objAdList = ObjOlNs.AddressLists.Item(1)

        WScript.Echo "[" & objAdList.Name & "] に " & _
            objAdList.AddressEntries.Count & " 件登録されています。"
        For Each objAdEntry In ObjAdList.AddressEntries
            WScript.Echo objAdEntry.Name & _
                " (" & objAdEntry.Address & ")"
        Next
    Else
        WScript.Echo "エラー：" & Err.Description
    End If
Else
    WScript.Echo "エラー：" & Err.Description
End If

Set objOlApp = Nothing

【実行結果】

C:\> cscript //NoLogo tips0178.vbs
[連絡先] に 1 件登録されています。
tonton (tonton@example.com)