Microsoft Exchange メールボックス ユーザーを表す AddressEntry に関する詳細情報を提供します。
注釈
ExchangeUser オブジェクトは AddressEntry オブジェクトから派生し、呼び出し元が AddressEntry オブジェクトに対してクエリ インターフェイスを実行すると、AddressEntry の代わりに返されます。
このオブジェクトは、 FirstName、 JobTitle、 LastName、 OfficeLocation などの Exchange ユーザーに適用できるプロパティへのファーストクラスのアクセスを提供します。 PropertyAccessor オブジェクトを使用して、オブジェクト モデルで公開されていない Exchange ユーザー固有の他のプロパティにもアクセスできます。 明示的な組み込みプロパティの一部は、読み取り/書き込みプロパティであることに注意してください。 これらのプロパティを設定するには、適切な Exchange 管理者アカウントでコードを実行する必要があります。十分なアクセス許可がない場合、 ExchangeUser.Update メソッドを呼び出すと、"アクセス許可が拒否されました" というエラーが発生します。
例
次のコードは、Exchange のグローバル アドレス一覧のすべてのエントリの勤務先電話番号、事業所、および役職を取得する方法を示しています。
Sub DemoAE()
Dim colAL As Outlook.AddressLists
Dim oAL As Outlook.AddressList
Dim colAE As Outlook.AddressEntries
Dim oAE As Outlook.AddressEntry
Dim oExUser As Outlook.ExchangeUser
Set colAL = Application.Session.AddressLists
For Each oAL In colAL
'Address list is an Exchange Global Address List
If oAL.AddressListType = olExchangeGlobalAddressList Then
Set colAE = oAL.AddressEntries
For Each oAE In colAE
If oAE.AddressEntryUserType = _
olExchangeUserAddressEntry Then
Set oExUser = oAE.GetExchangeUser
Debug.Print(oExUser.JobTitle)
Debug.Print(oExUser.OfficeLocation)
Debug.Print(oExUser.BusinessTelephoneNumber)
End If
Next
End If
Next
End Sub
メソッド
プロパティ
関連項目
ExchangeUser オブジェクトのメンバーOutlook オブジェクト モデルの参照
サポートとフィードバック
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。