Computer Telephony Integration
Strata CT I&M Manual October 2000
9-49
More Complex Cases
There is easy way to run VBA code from a DDE command to Microsoft Access. A VBA
function can be called by sending the information to an OpenForm and catching this in the
Form_Open event as below.
The action below opens the "StrataLink Ringing" Form invisibly and runs its Form_Open
function with the extra parameters of &P, &A, seperated by a space.
[OpenForm "StrataLink Ringing", , , , ,0, "&P &A" ]
The form_open function should use the arguments sent (&P and &A) to perform custom
actions. Notice the hidden form will close itself after it has dealt with the DDE request
Private Sub Form_Open(Cancel As Integer)
'Deal with the ringing request
'Get the arguements supplied by StrataLink
Dim strArgs As String
If (IsNull(Me.OpenArgs)) Then
Cancel = True
Exit Sub
End If
strArgs = Me.OpenArgs
‘Parse the arguments and remove quote marks
intLine = GetLineFromArgs(strArgs)
strCallingParty = Trim(GetCallingPartyFromArgs(strArgs))
‘bring access to the front
AppActivate "Microsoft Access"
…….
‘Do something useful with the arguments
……
'Close ourself
Application.DoCmd.Close acForm, Me.Name, acSaveNo
End Sub
Using StrataLink to Answer a Ringing Call
If responding to a ringing DDE event, ensure DDE communication back to StrataLink is
performed last (after opening any filtered forms etc.).
H
C
Summary of Contents for Strata CT
Page 36: ...Strata CT Configuration 1 22 Strata CT I M Manual October 2000 H C ...
Page 94: ...Strata CT Installation 2 58 Strata CT I M Manual October 2000 H C ...
Page 242: ...Peripheral Installation 6 54 Strata CT I M Manual October 2000 H C ...
Page 258: ...ACD Installation 7 16 Strata CT I M Manual October 2000 H C ...
Page 274: ...Fault Finding 8 16 Strata CT I M Manual October 2000 H C ...
Page 364: ...ISDN Interfaces 10 38 Strata CT I M Manual October 2000 H C ...
Page 370: ...Notes to Users A 6 Strata CT I M Manual October 2000 H C ...