Scripting Host (VBScript) #

VBScript-Beispiele für den Zugriff auf EULANDA über den Microsoft Scripting Host. Die Objektreferenz finden Sie unter iScript / Scripting Host.

Mandanten auflisten #

Dieses Script listet alle verfügbaren EULANDA-Mandanten auf. Als .vbs-Datei speichern und per Doppelklick ausführen.

Dim i, s, App
Set App = CreateObject("Eulanda.Application")

For i = 0 To App.ClientCount - 1
    s = s & vbCR & CStr(i + 1) & ". " & App.Clients(i).Alias
Next

MsgBox s, vbOKOnly, "EULANDA Mandanten"
Set App = Nothing

Adresse abfragen #

Sucht die erste Adresse, deren Matchcode mit “b” beginnt, und zeigt die Kontaktdaten an.

Option Explicit
Dim App, Cli, DS

Set App = CreateObject("Eulanda.Application")
Set Cli = App.Clients(0)
Cli.Active = True

Set DS = Cli.CreateDataset("Adresse")
DS.Search
DS.Values("Match") = "b*"
DS.Post

MsgBox "Ort: " & DS.Values("PLZ") & " " & DS.Values("Ort") & vbCrLf & _
       "Tel: " & DS.Values("Tel") & vbCrLf & _
       "Match: " & DS.Values("Match") & vbCrLf & _
       "EMail: " & DS.Values("EMail"), _
       vbOKOnly, "Adress-Info"

Set DS = Nothing
Set Cli = Nothing
Set App = Nothing

Zugriff auf Script-Bibliotheken #

Zugriff auf ellib, userlib und andere Bibliotheken von einem externen VBScript aus:

Option Explicit
Dim App, Client, Context

Set App = CreateObject("Eulanda.Application")
Set Client = App.Clients("MeinMandant")
Client.Active = True

Set Context = Client.CreateObject("Context")
Context.userlib.HelloWorld

Set Context = Nothing
Set Client = Nothing
Set App = Nothing

Die Eigenschaft Client.Properties("FOLDER.DESKTOP") liefert z.B. den Desktop-Pfad. Eine Übersicht aller Properties finden Sie unter Client.Properties.