Detail: AG-VIP_SQL - Application.ActiveCall

08.10.2009 - AG-VIP_SQL - Application.ActiveCall

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.10.08 Vers 1.0
' Erklärung - Objekt ActiveCall für AG-VIP_SQL

' In diesem Beispielmakro möchte ich anhand eines praktischen Beispieles das Objekt
' ActiveCall mit seinen Eigenschaften erklären.

' Wichtig!!!
' Das Objekt ActiveCall steht nur zur Verfügung, wenn auch aktuell ein Telefonat aktiv ist.
' Sonst liefert Application.ActiveCall Nothing

' Inhalt
' 1)Application.ActiveCall.DialedNumber
' 2)Application.ActiveCall.Duration
' 3)Application.ActiveCall.IsConnected
' 4)Application.ActiveCall.IsInbound
' 5)Application.ActiveCall.Number
' 6)Application.ActiveCall.Drop
'########################################################################

Option Explicit

' 1)Application.ActiveCall.DialedNumber
' Der Eigenschaft DialedNumber gibt die Nummer zurück, die für die Anwahl an den Tapi-
' Treiber übergeben wurde. Nur Outbound-Telefonate
' Beispiel
MsgBox "Sie haben folgende Rufnummer gewählt: " & Application.ActiveCall.DialedNumber
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' 2)Application.ActiveCall.Duration
' Mit der Eigenschaft Application.ActiveCall.Duration, wird die Dauer eines Telefonates in
' Sekunden ausgegeben.
' Befindet sich das Telefonat noch in der Anwahlphase, wird 0 zurückgegeben.
' 0 wird auch bei eingehenden Telefonaten zurückgegeben, wenn noch nicht abgehoben wurde.
' Beispiel
MsgBox "Die Dauer von unserem Telefonat beträgt: " & Application.ActiveCall.Duration & "Sekunden"
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' 3)Application.ActiveCall.IsConnected
' Mit der Eigenschft Application.ActiveCall.IsConnected wird der Wert TRUE zurückgegeben.
' Nach dem Auflegen oder beim VErbindungsaufbau bekommt man den Wert False zurück.
' Beispiel:
If Application.ActiveCall.IsConnected = True Then
MsgBox "Wir sind verbunden"
Else
MsgBox "Es liegt keine aktive Verbinung vor."
End If
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' 4)Application.ActiveCall.IsInbound
' Die Eigenschaft Application.ActiveCall.IsInbound liefert den Wert True bei eingehenden
' und False bei ausgehenden Telefonaten.
' Beispiel:
If Application.ActiveCall.IsInbound = True Then
MsgBox "Dieses Call ist ein Inbound-Call"
Else
MsgBox "Dieses Call ist ein Outbound-Call"
End If
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' 5)Application.ActiveCall.Number
' Die Eigenschaft Application.ActiveCall.Number gibt die angerufene Nummer bei ausgehenden
' Telefonaten bzw. die anrufende Telefonnummer bei eingehenden Telefonaten zurück,
' wenn diese Nummer übermittelt wird.
' Beispiel:
MsgBox Application.ActiveCall.Number
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

' 6)Application.ActiveCall.Drop
'Die Methode Drop beendet ein aktives Telefonat. Ist das Telefonat nicht verbunden,
'hat diese Funktion keine Auswirkung
' Beispiel
MsgBox "Wenn jetzt OK gedrückt wird, wäre dieses Beispielscript am Ende und es wird aufgelegt."
Application.ActiveCall.Drop
'++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++


Makro-Sample:
Makro - Application ActiveCall

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl