combit Relationship Manager - Objekt-Referenz - combit GmbH

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