combit Relationship Manager Objekt-Referenz - combit GmbH

combit Relationship ManagerObjekt Referenz3 FAQIm nachfolgenden Kapitel finden Sie eine Problemlösungen in Form eines Scriptauszuges für dieErstellung von VBScripts, wie z.B. Datensatz anlegen, auf definierte Projektansichten zugreifen, usw.Die nachfolgenden Scriptvorlagen finden Sie in Ihrem cRM Installationsunterverzeichnis ‚.\Script’.3.1 Beispiel VBScriptscRM.Application Instanz erzeugen (Login.vbs)Option Explicit' Variablen deklarieren:Dim oCRM, oProjectDim sUser, sProject, sPassword' Benutzerdaten festlegen, falls der cRM neu gestartet werden muss:sUser = "TEST"sPassword = ""sProject = "c:\crm\Projekte\Beispiel\crm-demo.crm"'Kontrollieren ob cRM bereits laeuft und ggf. starten:On Error Resume Next'Auf bereits aktiven cRM zugreifen:Set oCRM = GetObject(,"cRM.application")Msgbox "oCRM: " & IsObject(oCRM)If Err 0 ThenErr.Clear'Neue Instanz erzeugen:Set oCRM = CreateObject("cRM.application")Set oProject = oCRM.Login (sProject, sUser, sPassword)ElseSet oProject = oCRM.CurrentProjectEnd IfOn Error GoTo 0' cRM anzeigen:oCRM.Visible = TrueSet oProject = oCRM.CurrentProjectMsgbox "Projektname: " & oProject.Name' Objekte freigeben:Set oProject = NothingSet oCRM = Nothing63