Beschreibung:
Durchläuft alle Einträge der Anrufliste und entfernt dabei alle die Einträge, die mehr als 10 Wählversuche hinterlegt haben bzw. gibt dem Nutzer eine Möglichkeit, auf den Datensatz des Anruflisteneintrags zu springen.
VBScript:
Dim oCallList : Set oCallList = cRM.phonemanager.CallList
Dim oCallItem
Dim nCount : nCount = 0
Dim nDialRetriesCount : nDialRetriesCount = 0
Dim sFirstInfo : sFirstInfo = ""
Dim sInfo : sInfo = ""
Dim sLastInfo : sLastInfo = ""
Dim sNumber : sNumber = ""
For nCount = 1 To oCallList.Count
Set oCallItem = oCallList.Item(nCount)
If (oCallItem.DialRetriesCount > 10) Then
Call oCallItem.Remove()
Else
nDialRetriesCount = oCallItem.DialRetriesCount
sFirstInfo = oCallItem.FirstInfo
sInfo = oCallItem.Info
sLastInfo = oCallItem.LastInfo
sNumber = oCallItem.Number
If (cRM.DialogMessageBox("Die Nummer " & sNumber & " (" & sFirstInfo & " - " & sInfo & " - " & sLastInfo & ") konnte mit " & CStr(nDialRetriesCount) & " Anrufversuchen nicht erreicht werden." & vbCrlf & "Soll diese Rufnummer aus der Anrufliste augetragen werden?", "CallList.CallItem", vbYesNoCancel) = vbYes) Then
Call oCallItem.Remove()
Else
If (cRM.DialogMessageBox("Der Eintrag wurde nicht aus der Anrufliste entfernt. Soll jetzt versucht werden auf den zugehen Datensatz im combit CRM zu springen?", "CallList.CallItem", vbYesNoCancel) = vbYes) Then
Call oCallItem.GotoRecord()
End If
End If
End If
Set oCallItem = Nothing
Next
Set oCallList = Nothing
C#-Script:
CallList callList = cRM.PhoneManager.CallList;
CallItem callItem;
long dialRetriesCount;
string firstInfo;
string info;
string lastInfo;
string number;
for (int i = 1; i <= callList.Count; i++)
{
callItem = callList.Item(i);
if (callItem.DialRetriesCount > 10)
{
callItem.Remove();
}
else
{
dialRetriesCount = callItem.DialRetriesCount;
firstInfo = callItem.FirstInfo;
info = callItem.Info;
lastInfo = callItem.LastInfo;
number = callItem.Number;
if (cRM.DialogMessageBox("Die Nummer " + number + "(" + firstInfo + " - " + info + " - " + lastInfo + ") konnte mit " + dialRetriesCount.ToString() + " Anrufversuchen nicht erreicht werden." + "\r\n" + "Soll diese Rufnummer aus der Anrufliste ausgetragen werden?", "CallList.CallItem", 3) == 6)
{
callItem.Remove();
}
else
{
if (cRM.DialogMessageBox("Der Eintrag wurde nicht aus der Anrufliste entfernt. Soll jetzt versucht werden auf den zugehörigen Datensatz im combit CRM zu springen?", "CallList.CallItem", 3) == 6)
{
callItem.GotoRecord();
}
}
}
callItem.Dispose();
}
callList.Dispose();
TypeScript:
import {
cRM,
PhoneManager
} from "./sdk/combitCRM.SDK.WindowsClient.v13";
const phoneManager : PhoneManager = cRM.PhoneManager;
const callList = phoneManager.CallList;
for (let index = 1; index <= 2; index++) {
const callItem = callList.Item(index);
if (callItem.DialRetriesCount > 10) {
callItem.Remove();
callItem.Dispose();
continue;
}
const dialRetriesCount = callItem.DialRetriesCount;
const firstInfo = callItem.FirstInfo;
const info = callItem.Info;
const lastInfo = callItem.LastInfo;
const number = callItem.Number;
const removeResult = cRM.DialogMessageBox(
`Die Nummer ${number} (${firstInfo} - ${info} - ${lastInfo}) konnte mit ${dialRetriesCount} Anrufversuchen nicht erreicht werden.\r\nSoll diese Rufnummer aus der Anrufliste augetragen werden?`,
"CallList.CallItem", 3);
if (removeResult === 6) {
callItem.Remove();
} else {
const gotoResult = cRM.DialogMessageBox(
"Der Eintrag wurde nicht aus der Anrufliste entfernt. Soll jetzt versucht werden auf den zugehörigen Datensatz im combit CRM zu springen?",
"CallList.CallItem", 3);
if (gotoResult === 6) {
callItem.GotoRecord();
}
}
callItem.Dispose();
}
callList.Dispose();