Microsoft Exchange Server グローバル アドレス一覧の現在のユーザー プロパティを使用する

コードの OLE メッセージング セッションおよびログオンを実行している部分を開きます。参照するプロパティを下の表から選び、値を指定します。

Set olemSession = Application.CreateObject("MAPI.Session") 
ReturnCode = olemSession.Logon( Application.GetNameSpace("MAPI").CurrentUser, "", False, False, 0 ) 
myPage = Item.GetInspector.ModifiedFormPages("Message") 
Set myUser = olemSession.CurrentUser 
Item.UserProperties.Find("Name") = myUser.Name 
Item.UserProperties.Find("Messaging Address") = myUser.Address 
Item.UserProperties.Find("MAPI First Name") = myUser.Fields.item(&h3a06001e)

アドレス帳プロパティ	Reference
PidTagGivenName	&h3a06001e
PidTagInitials	&h3a0a001e
PidTagSurname	&h3a11001e
PidTag7BitDisplayName	&h39ff001e
PidTagStreetAddress	&h3a29001e
PidTagLocality	&h3a27001e
PidTagStateOrProvince	&h3a28001e
PidTagPostalCode	&h3a2a001e
PidTagCountry	&h3a26001e
PidTagTitle	&h3a17001e
PidTagCompanyName	&h3a16001e
PidTagDepartmentName	&h3a18001e
PidTagOfficeLocation	&h3a19001e
PidTagAssistant	&h3a30001e
PidTagBusinessTelephoneNumber	&h3a08001e

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。