combit Relationship Manager - Objekt-Referenz - combit GmbH
combit Relationship Manager - Objekt-Referenz - combit GmbH combit Relationship Manager - Objekt-Referenz - combit GmbH
FAQ VBScript Beispiele Set oCRM = CreateObject("cRM.application") ' Login Set oProject = oCRM.Login (sProject, sUser, sPassword) Else Set oProject = oCRM.CurrentProject End If On Error GoTo 0 ' cRM anzeigen oCRM.Visible = True MsgBox "Projektname: " & oProject.Name, vbInformation, "combit Relationship Manager" ' Objekte freigeben Set oProject = Nothing Set oCRM = Nothing 8.1.2 Überprüfung, ob Ansichten aktiv sind (ActiveViews.vbs) Option Explicit ' Aktives cRM Projekt Dim oProject, oListView Set oProject = cRM.CurrentProject Set oListView = oProject.ActiveViews ' Überprüfung, ob Ansichten aktiv sind If oListView.Count > 0 Then MsgBox "Es ist/sind: " & oListView.Count & " Ansichten aktiv.", vbInformation, "combit Relationship Manager" Else MsgBox "Es sind keine Ansichten aktiv.", vbInformation, "combit Relationship Manager" End If 126
FAQ VBScript Beispiele ' Objekte freigeben Set oListView = Nothing Set oProject = Nothing 8.1.3 Auf die aktiven Ansichten eines Projektes zugreifen (Active- View.vbs) Option Explicit ' Aktives cRM Projekt Dim oProject, oListViews, oView Set oProject = cRM.CurrentProject Set oListViews = oProject.ActiveViews Set oView = oListViews.ActiveView MsgBox "Aktive Ansicht: " & oView.Name, vbInformation, "combit Relationship Manager" ' .... .... ' Objekte freigeben: Set oView = Nothing Set oListViews = Nothing Set oProject = Nothing 8.1.4 Auf eine konfigurierte Ansicht eines Projektes zugreifen (Config- View.vbs) Option Explicit ' Name der konfigurierten Ansicht Const sView = "Personen" ' Aktives cRM Projekt Dim oProject, oListViewConfigs 127
- Seite 75 und 76: Objekt-Referenz timemanager Objekt
- Seite 77 und 78: Objekt-Referenz ToDo Objekt Body Be
- Seite 79 und 80: Objekt-Referenz ToDo Objekt ExtUser
- Seite 81 und 82: Objekt-Referenz ToDo Objekt Reminde
- Seite 83 und 84: Objekt-Referenz ToDo Objekt verhalt
- Seite 85 und 86: Objekt-Referenz ToDos Objekt Rückg
- Seite 87 und 88: Objekt-Referenz User Objekt Fax, re
- Seite 89 und 90: Objekt-Referenz Users Objekt Title,
- Seite 91 und 92: Objekt-Referenz View Objekt Typ: Bo
- Seite 93 und 94: Objekt-Referenz View Objekt 2 = Bei
- Seite 95 und 96: Objekt-Referenz ViewConfig Objekt T
- Seite 97 und 98: Objekt-Referenz ViewConfig Objekt R
- Seite 99 und 100: Objekt-Referenz ViewConfig Objekt 1
- Seite 101 und 102: Objekt-Referenz WScript Objekt Typ:
- Seite 103 und 104: Objekt-Referenz WScript Objekt Rüc
- Seite 105 und 106: Menü-IDs des cRM WScript Objekt 3
- Seite 107 und 108: Menü-IDs des cRM WScript Objekt sc
- Seite 109 und 110: Menü-IDs des cRM WScript Objekt Ko
- Seite 111 und 112: Ereignisse Event Objekt Data Beschr
- Seite 113 und 114: Ereignisse Ansichtenspezifische Ere
- Seite 115 und 116: eMail Autopilot Attachment Objekt 5
- Seite 117 und 118: eMail Autopilot HostApp Objekt Vers
- Seite 119 und 120: eMail Autopilot Mail Objekt Sender
- Seite 121 und 122: Änderungen und Neuerungen in der V
- Seite 123 und 124: Webansicht Dynamische Inhalte in HT
- Seite 125: FAQ VBScript Beispiele 8 FAQ Im nac
- Seite 129 und 130: FAQ VBScript Beispiele ' Neuen Date
- Seite 131 und 132: FAQ VBScript Beispiele Else MsgBox
- Seite 133 und 134: FAQ VBScript Beispiele ' wird ausge
- Seite 135 und 136: FAQ VBScript Beispiele ' Objekte fr
- Seite 137 und 138: FAQ VBScript Beispiele Set oProject
- Seite 139 und 140: FAQ VBScript Beispiele Set oListVie
- Seite 141 und 142: FAQ VBScript Beispiele Else HostApp
- Seite 143: combit Knowledgebase VBScript Beisp
FAQ<br />
VBScript Beispiele<br />
Set oCRM = CreateObject("cRM.application")<br />
' Login<br />
Set oProject = oCRM.Login (sProject, sUser, sPassword)<br />
Else<br />
Set oProject = oCRM.CurrentProject<br />
End If<br />
On Error GoTo 0<br />
' cRM anzeigen<br />
oCRM.Visible = True<br />
MsgBox "Projektname: " & oProject.Name, vbInformation, "<strong>combit</strong> <strong>Relationship</strong> <strong>Manager</strong>"<br />
' <strong>Objekt</strong>e freigeben<br />
Set oProject = Nothing<br />
Set oCRM = Nothing<br />
8.1.2 Überprüfung, ob Ansichten aktiv sind (ActiveViews.vbs)<br />
Option Explicit<br />
' Aktives cRM Projekt<br />
Dim oProject, oListView<br />
Set oProject = cRM.CurrentProject<br />
Set oListView = oProject.ActiveViews<br />
' Überprüfung, ob Ansichten aktiv sind<br />
If oListView.Count > 0 Then<br />
MsgBox "Es ist/sind: " & oListView.Count & " Ansichten aktiv.", vbInformation,<br />
"<strong>combit</strong> <strong>Relationship</strong> <strong>Manager</strong>"<br />
Else<br />
MsgBox "Es sind keine Ansichten aktiv.", vbInformation, "<strong>combit</strong> <strong>Relationship</strong><br />
<strong>Manager</strong>"<br />
End If<br />
126