Handbuch BasicMaker 2010 - SoftMaker

Liefert die Anzahl der UserProperty-Objekte in der Sammlung, also die Zahl aller Adressbestandteile (Nachname,
Vorname, Straße etc. – jeweils für Privat- und Geschäftsadresse).
Dieser Wert ist konstant 24, da es genau 24 solche Elemente gibt.
Item (Zeiger auf Objekt)
Datentyp: Object
Liefert ein einzelnes UserProperty-Objekt, mit dem Sie einen einzelnen Adressbestandteil (Nachname, Vorname, Straße
etc.) der privaten oder geschäftlichen Adresse des Benutzers lesen oder setzen können.
Welches UserProperty-Objekt Sie erhalten, hängt von dem Zahlenwert ab, den Sie an Item übergeben. Die folgende
Tabelle zeigt die erlaubten Werte:
smoUserHomeAddressName
smoUserHomeAddressFirstName
smoUserHomeAddressStreet
smoUserHomeAddressZip
smoUserHomeAddressCity
smoUserHomeAddressPhone1
smoUserHomeAddressFax
smoUserHomeAddressEmail
smoUserHomeAddressPhone2
smoUserHomeAddressHomepage
= 1 ' Nachname (privat)
= 2 ' Vorname (privat)
= 3 ' Straße (privat)
= 4 ' Postleitzahl (privat)
= 5 ' Stadt (privat)
= 6 ' Telefon (privat)
= 7 ' Telefax (privat)
= 8 ' E-Mail-Adresse (privat)
= 9 ' Mobiltelefon o.ä. (privat)
= 10 ' Homepage (privat)
smoUserBusinessAddressName = 11 ' Nachname (geschäftlich)
smoUserBusinessAddressFirstName = 12 ' Vorname (geschäftlich)
smoUserBusinessAddressCompany = 13 ' Firma (geschäftlich)
smoUserBusinessAddressDepartment = 14 ' Abteilung (geschäftlich)
smoUserBusinessAddressStreet = 15 ' Straße (geschäftlich)
smoUserBusinessAddressZip
= 16 ' Postleitzahl (geschäftlich)
smoUserBusinessAddressCity = 17 ' Stadt (geschäftlich)
smoUserBusinessAddressPhone1 = 18 ' Telefon (geschäftlich)
smoUserBusinessAddressFax
= 19 ' Telefax (geschäftlich)
smoUserBusinessAddressEmail = 20 ' E-Mail-Adresse (geschäftlich)
smoUserBusinessAddressPhone2 = 21 ' Mobiltelefon o.ä. (geschäftlich)
smoUserBusinessAddressHomepage = 22 ' Homepage (geschäftlich)
smoUserHomeAddressInitials
smoUserBusinessAddressInitials
= 23 ' Initialen des Benutzers (privat)
= 24 ' Initialen des Benutzers (geschäftlich)
Beispiele:
' Den Nachnamen des Benutzers (privat) anzeigen
MsgBox tm.Application.UserProperties.Item(1).Value
' Die geschäftliche E-Mail-Adresse auf test@example.com ändern
With tm.Application
.UserProperties.Item(smoUserBusinessAddressEmail).Value = "test@example.com"
End With
Application (Zeiger auf Objekt)
Datentyp: Object
Liefert das Application-Objekt.
Parent (Zeiger auf Objekt)
Datentyp: Object
Liefert das übergeordnete Objekt, also Application.
68 BasicMaker und TextMaker Handbuch BasicMaker 2010