Application.GetAddress メソッド (Word)

  • [アーティクル]

既定のアドレス帳からアドレスを返します。

構文

式。GetAddress (名前、 AddressProperties、 UseAutoText、 DisplaySelectDialog、 SelectDialog、 CheckNamesDialog、 RecentAddressesChoice、 UpdateRecentAddresses)

expression 必須です。 Application オブジェクトを表す変数を指定します。

パラメーター

名前 必須 / オプション データ型 説明
名前 省略可能 バリアント型 (Variant) アドレス帳の [ 名前を選択] ダイアログ ボックスで指定されているとおりに宛先の名前を指定します。
AddressProperties 省略可能 バリアント型 UseAutoText が True の場合、この引数はアドレス帳のプロパティのシーケンスを定義する定型句エントリの名前を表します。 引数 UseAutoText に False を指定した場合、または省略した場合は、この引数にユーザー設定のレイアウトを定義します。

有効なアドレス帳のプロパティ名またはプロパティ名のセットは山かっこ ("<" and ">") で囲まれ、 "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>"スペースまたは段落記号 (例: ) で区切られます。

AddressProperties パラメーターを省略すると、"AddressLayout" という名前の既定の定型句エントリが使用されます。 "AddressLayout" が定義されていない場合は、次のアドレス レイアウト定義が使用されます。 "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>" & ", " & "<PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>" & vbCr & "<PR_COUNTRY>"

有効なアドレス帳のプロパティ名のリストは、 AddAddress メソッドを参照してください。
UseAutoText 省略可能 バリアント型 True の 場合 、AddressProperties は、アドレス帳のプロパティのシーケンスを定義する定型句エントリの名前を指定します。 False カスタム レイアウトを指定する場合。
DisplaySelectDialog 省略可能 バリアント型 結果テーブルに示すように、[名前の選択] ダイアログ ボックスを表示するかどうかを指定します。
SelectDialog 省略可能 バリアント型 [表示モード] テーブルに示すように、[名前の選択] ダイアログ ボックスの表示方法 (つまり、どのモード) を指定します。
CheckNamesDialog 省略可能 バリアント型 True を指定すると、Name 引数の値が十分に特定されていない場合に [名前の確認] ダイアログ ボックスが表示されます。
RecentAddressesChoice オプション バリアント型 True を指定 のリストを使用するの場合、最近、返信先アドレスを使用します。
UpdateRecentAddresses 省略可能 バリアント型 True を指定 して、最近使用したアドレスの一覧にアドレスを追加します。 アドレス を追加しない場合は False。 SelectDialog が 1 または 2 に設定されている場合、この引数は無視されます。

結果

値 結果
0 (ゼロ) [ 名前を選択] ダイアログ ボックスは表示されません。
1 または省略 [ 名前を選択] ダイアログ ボックスは表示されます。
2 [ 名前を選択] ダイアログ ボックスは表示されず、特定の名前の検索も行われません。 このメソッドが返すアドレスは既に選択されているアドレスです。

表示モード

値 表示モード
0 (ゼロ) または省略する 参照モード
1 構成モード、[ 宛先] ボックスのみ
2 構成モード、[ 宛先] と [ CC] ボックスの両方

戻り値

String

例

次の使用例は、変数 strAddress を John Smith のアドレスに設定し、挿入ポイントをドキュメントの先頭に移動し、アドレスを挿入します。 挿入されるアドレスには、既定のアドレス帳のプロパティが含まれます。

Dim strAddress 
 
strAddress = Application.GetAddress(Name:="John Smith", _ 
    CheckNamesDialog:=True) 
ActiveDocument.Range(Start:=0, End:=0).InsertAfter strAddress

次の使用例は、レイアウトの定義として定型句 "My Address Layout" を使用して、大島 幹のアドレスを返します。 "My Address Layout" は作業中のテンプレートで定義されていて、text$ に割り当てられたアドレスのプロパティの集合が含まれています。 また、最近使ったアドレスの一覧に大島 幹のアドレスを追加します。

Dim TagIDArray(0 To 3) As String 
Dim ValueArray(0 To 3) As String 
Dim strAddress As String 
 
TagIDArray(0) = "PR_DISPLAY_NAME" 
TagIDArray(1) = "PR_GIVEN_NAME" 
TagIDArray(2) = "PR_SURNAME" 
TagIDArray(3) = "PR_COMMENT" 
ValueArray(0) = "Display_Name" 
ValueArray(1) = "John" 
ValueArray(2) = "Smith" 
ValueArray(3) = "This is a comment" 
 
Application.AddAddress TagID:=TagIDArray(), Value:=ValueArray() 
strAddress = Application.GetAddress(Name:="John Smith", _ 
    UpdateRecentAddresses:=True)

関連項目

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

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