Toshiba strata CT Installation & Maintenance Manual page 323

H
C
Strata CT I&M Manual October 2000
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.).
Computer Telephony Integration
9-49