Application.GetAddress-Methode (Word)
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.