Application.GetAddress-Methode (Word)

  • Artikel

Gibt eine Adresse aus dem Standardadressbuch zurück.

Syntax

Ausdruck. GetAddress (Name, AddressProperties, UseAutoText, DisplaySelectDialog, SelectDialog, CheckNamesDialog, RecentAddressesChoice, UpdateRecentAddresses)

Ausdruck: Erforderlich. Eine Variable, die ein Application -Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Name Optional Variant Der Name des Empfängers, wie er im Dialogfeld Suchen im Adressbuch angegeben ist.
AddressProperties Optional Variant Wenn UseAutoText den Wert True aufweist, wird mit diesem Argument der Name eines AutoText-Eintrags angegeben, der eine Sequenz von Adressbucheigenschaften festlegt. Wenn UseAutoText den Wert False aufweist oder nicht angegeben ist, wird mit diesem Argument ein benutzerdefiniertes Layout angegeben.

Gültige Adressbucheigenschaftennamen oder Sätze von Eigenschaftsnamen werden in spitzen Klammern ("<" and ">") eingeschlossen und durch ein Leerzeichen oder eine Absatzmarke getrennt (z. B "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_OFFICE_TELEPHONE_NUMBER>". ).

Wenn der AddressProperties-Parameter nicht angegeben wird, wird ein AutoText-Standardeintrag namens "AddressLayout" verwendet. Wenn "AddressLayout" nicht definiert wurde, wird die folgende Adresslayoutdefinition verwendet: "<PR_GIVEN_NAME> <PR_SURNAME>" & vbCr & "<PR_STREET_ADDRESS>" & vbCr & "<PR_LOCALITY>" & ", " & "<PR_STATE_OR_PROVINCE>" & " " & "<PR_POSTAL_CODE>" & vbCr & "<PR_COUNTRY>".

Eine Liste der zulässigen Adressbucheigenschaftsnamen finden Sie unter der AddAddress-Methode.
UseAutoText Optional Variant True , wenn AddressProperties den Namen eines AutoText-Eintrags angibt, der eine Sequenz von Adressbucheigenschaften definiert; False , wenn ein benutzerdefiniertes Layout angegeben wird.
DisplaySelectDialog Optional Variant Gibt an, ob das Dialogfeld Namen auswählen angezeigt wird, wie in der Tabelle Ergebnisse gezeigt.
SelectDialog Optional Variant Gibt an, wie das Dialogfeld Namen auswählen angezeigt werden soll (d. h. in welchem Modus), wie in der Tabelle Anzeigemodus gezeigt.
CheckNamesDialog Optional Variant True, wenn der Wert des Arguments Name nicht spezifisch genug ist und das Dialogfeld Namen überprüfen angezeigt werden soll.
RecentAddressesChoice Optional Variant True, wenn die Liste der zuletzt verwendeten Absenderadressen verwendet werden soll.
UpdateRecentAddresses Optional Variant True, wenn der Liste der zuletzt verwendeten Adressen eine Adresse hinzugefügt werden soll; False, wenn die Adresse nicht hinzugefügt werden soll. Wenn SelectDialog auf 1 oder 2 festgelegt ist, wird dieses Argument ignoriert.

Ergebnisse

Wert Ergebnis
0 (null) Das Dialogfeld Namen auswählen wird nicht angezeigt.
1 oder weggelassen Das Dialogfeld Namen auswählen wird angezeigt.
2 Das Dialogfeld Namen auswählen wird nicht angezeigt, und es wird keine Suche nach einem bestimmten Namen ausgeführt. Die Adresse, die von dieser Methode zurückgegeben wird, ist die vorherige ausgewählte Adresse.

Anzeigemodus

Wert Anzeigemodus
0 (null) oder weggelassen Durchsuchungsmodus
1 Erstellmodus nur mit dem Feld An
2 Erstellmodus mit beiden Feldern An und CC

Rückgabewert

Zeichenfolge

Beispiel

In diesem Beispiel wird die Variable strAddress auf die Adresse von John Smith festgelegt, die Einfügemarke an den Anfang des Dokuments verschoben und die Adresse eingefügt. Die eingefügte Adresse erhält die Standard-Adressbucheigenschaften.

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

Im folgenden Beispiel wird die Adresse von John Smith zurückgegeben, wobei der AutoText-Eintrag "My Address Layout" als Layoutdefinition verwendet wird. "My Address Layout" ist in der aktiven Vorlage definiert und enthält einen Satz von Adresseigenschaften, die der Variablen text$ zugewiesen wurden. In dem Beispiel wird John Smiths Adresse auch der Liste der zuletzt verwendeten Adressen hinzugefügt.

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)

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.