combit Relationship Manager - Objekt-Referenz - combit GmbH
combit Relationship Manager - Objekt-Referenz - combit GmbH combit Relationship Manager - Objekt-Referenz - combit GmbH
FAQ VBScript Beispiele If oCurrentRecordSet.MoveFirst Then ' Treffer vorhanden! ' Auswahl des Datensatzes durch den Benutzer Set oCurrentRecord = oCurrentRecordSet.DialogSelectRecord("Bitte wählen Sie den gewünschten Datensatz aus.") ' Überprüfung, ob ein Datensatz ausgewählt wurde If Not oCurrentRecord Is Nothing Then MsgBox "Es wurde folgender Datensatz ausgewählt:" & vbCrLf & _ "Name: " & oCurrentRecord.GetContentsByName("Name") & ", " & _ oCurrentRecord.GetContentsByName("Vorname") & vbCrLf & _ "PLZ: " & oCurrentRecord.GetContentsByName("PLZZ"), vbInformation, "combit Relationship Manager" Else Msgbox "Es wurde kein Datensatz ausgewählt.", vbInformation, "combit Relationship Manager" Else End If Msgbox "Keine Datensätze für diesen Filter vorhanden!", vbInformation, "combit Relationship Manager" Else End If Msgbox "Es konnte kein Filter erstellt werden!", vbInformation, "combit Relationship Manager" End If ' Objekte freigeben Set oCurrentRecord = Nothing Set oCurrentRecordSet = Nothing Set oViewConfig = Nothing Set oViewConfigs = Nothing Set oActiveView = Nothing Set oProject = Nothing 8.1.8 Verwendung des Events "Eingehender Anruf wurde gesucht" ' Das Ereignis "Eingehender Anruf wurde gesucht", 132
FAQ VBScript Beispiele ' wird ausgelöst, wenn der phone manager einen entsprechenden ' Datensatz gefunden hat. Der nachfolgende Scriptcode für das Ereignis ' kann durch eine Anrufsimulation (Extras > Anrufsimulation) getestet werden. If WScript.Event.View Is Nothing Then Else Then MsgBox WScript.Event.Data & " wurde nicht gefunden!" If(MsgBox(WScript.Event.Data & " gefunden!" & _ WScript.Event.View.FilterRecCount & " Treffer." & _ vbCrLF & "Möchten Sie diese anzeigen lassen", vbYesNo) = vbYes) Msgbox "Gefundener Datensatz: " &_ WScript.Event.View.CurrentRecordSet.CurrentRecord.GetContentsByName("Firma") & " - " & WScript.Event.View.CurrentRecordSet.CurrentRecord.GetContentsByName("Name") End If End If ' > 8.1.9 Direkter Versand einer eMail in einer aktiven Ansicht Option Explicit Dim oProject, oActiveView, oCurrentRecordSet, oCurrentRecord ' Aktives cRM Projekt Set oProject = cRM.CurrentProject Set oActiveView = oProject.ActiveViews.ActiveView Set oCurrentRecordSet = oActiveView.CurrentRecordSet ' Aktueller Datensatz Dim oRecord Set oCurrentRecord = oCurrentRecordSet.CurrentRecord() ' Direkter Versand der eMail: ' 1. Parameter = eMaildadresse des Empfänger ' 2. Parameter = Subjekt (Betreff) der eMail 133
- 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 und 126: FAQ VBScript Beispiele 8 FAQ Im nac
- Seite 127 und 128: FAQ VBScript Beispiele ' Objekte fr
- Seite 129 und 130: FAQ VBScript Beispiele ' Neuen Date
- Seite 131: FAQ VBScript Beispiele Else MsgBox
- 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 />
If oCurrentRecordSet.MoveFirst Then<br />
' Treffer vorhanden!<br />
' Auswahl des Datensatzes durch den Benutzer<br />
Set oCurrentRecord = oCurrentRecordSet.DialogSelectRecord("Bitte wählen<br />
Sie den gewünschten Datensatz aus.")<br />
' Überprüfung, ob ein Datensatz ausgewählt wurde<br />
If Not oCurrentRecord Is Nothing Then<br />
MsgBox "Es wurde folgender Datensatz ausgewählt:" & vbCrLf & _<br />
"Name: " & oCurrentRecord.GetContentsByName("Name") & ", " & _<br />
oCurrentRecord.GetContentsByName("Vorname") & vbCrLf & _<br />
"PLZ: " & oCurrentRecord.GetContentsByName("PLZZ"), vbInformation,<br />
"<strong>combit</strong> <strong>Relationship</strong> <strong>Manager</strong>"<br />
Else<br />
Msgbox "Es wurde kein Datensatz ausgewählt.", vbInformation, "<strong>combit</strong><br />
<strong>Relationship</strong> <strong>Manager</strong>"<br />
Else<br />
End If<br />
Msgbox "Keine Datensätze für diesen Filter vorhanden!", vbInformation,<br />
"<strong>combit</strong> <strong>Relationship</strong> <strong>Manager</strong>"<br />
Else<br />
End If<br />
Msgbox "Es konnte kein Filter erstellt werden!", vbInformation, "<strong>combit</strong><br />
<strong>Relationship</strong> <strong>Manager</strong>"<br />
End If<br />
' <strong>Objekt</strong>e freigeben<br />
Set oCurrentRecord = Nothing<br />
Set oCurrentRecordSet = Nothing<br />
Set oViewConfig = Nothing<br />
Set oViewConfigs = Nothing<br />
Set oActiveView<br />
= Nothing<br />
Set oProject = Nothing<br />
8.1.8 Verwendung des Events "Eingehender Anruf wurde gesucht"<br />
' Das Ereignis "Eingehender Anruf wurde gesucht",<br />
132