ExchangeUser オブジェクト (Outlook)
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 のサポートおよびフィードバックを参照してください。
フィードバック
以下は間もなく提供いたします。2024 年を通じて、コンテンツのフィードバック メカニズムとして GitHub の issue を段階的に廃止し、新しいフィードバック システムに置き換えます。 詳細については、「https://aka.ms/ContentUserFeedback」を参照してください。
フィードバックの送信と表示