Ein einfaches Beispiel zur Verwendung von Rückgabewerten gibt es bei der Benutzerinteraktion. So kann beispielsweise mittels cRM.DialogChoiceMessageBox()-Methode eine Rückfrage an den combit CRM Anwender formuliert und eine Antwort erhalten werden.
' Anzeige eines Auswahldialogs mit drei möglichen Antworten und einer Abbrechen-Schaltfläche
nResult = cRM.DialogChoiceMessageBox("Welcher Mitarbeiter soll als Verantwortlicher eingetragen werden?", "Auswahl Verantwortlicher", "Thomas Held" & vbTab & "Laura Frisch" & vbTab & "Lisa Nett", 1, true)
Dem Anwender wird mit der Ausführung dieses Scriptcodes folgender Dialog angezeigt:
Der Rückgabewert für die Methode cRM.DialogChoiceMessageBox() ist laut SDK-Dokumentation wie folgt beschrieben:
Long bzw. uint (der Rückgabewert entspricht den Konstanten einer MsgBox unter VBScript). Wenn der Nutzer eine Auswahl getroffen hat, dann wird ein OffSet von 100 einberechnet, d. h. bei Klick der zweiten Auswahl ist der Rückgabewert 102.
Wir erkennen hierbei, dass der Rückgabewert vom Typ „Long“ ist und bei erfolgreicher Wahl einen Wert von 101 bis 103 erhalten kann. Klickt der Nutzer auf die Schaltfläche „Abbrechen“ wird der Wert 2 zurückgeliefert, was der MessageBox-Konstante in VBScript „vbCancel“ entspricht. Siehe auch Kapitel Script-Konstanten.
Der Rückgabewert wird im Beispiel in der Variable nResult gespeichert, welche ausgewertet werden kann, nachdem der Anwender mit dem Dialog interagiert hat.
' Anzeige eines Auswahldialogs mit drei möglichen Antworten und einer Abbrechen-Schaltfläche
nResult = cRM.DialogChoiceMessageBox("Welcher Mitarbeiter soll als Verantwortlicher eingetragen werden?", "Auswahl Verantwortlicher", "Thomas Held" & vbTab & "Laura Frisch" & vbTab & "Lisa Nett", 1, true)
' Wenn der Rückgabewert einem der erwarteten Werte entspricht, informiere den Nutzer über seine Auswahl
If (nResult = 101) Then
Call cRM.DialogMessageBox("Thomas Held ist nun für diesen Datensatz verantwortlich.", "Erfolgreiche Auswahl", vbInformation)
ElseIf (nResult = 102) Then
Call cRM.DialogMessageBox("Laura Frisch ist nun für diesen Datensatz verantwortlich.", "Erfolgreiche Auswahl", vbInformation)
ElseIf (nResult = 103) Then
Call cRM.DialogMessageBox("Lisa Nett ist nun für diesen Datensatz verantwortlich.", "Erfolgreiche Auswahl", vbInformation)
ElseIf (nResult = 2) Then
Call cRM.DialogMessageBox("Die Bearbeitung wurde abgebrochen.", "Bearbeitung abgebrochen", vbInformation)
End If