Toshiba Strata DK40 Installation & Maintenance Manual page 334

Computer Telephony Integration
More Complex Cases
There is no straight 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.).
8-54
Refer to the Strata DK40 Programming Manual or DK Library CD-Rom for more details.
Handling Incoming Calls
Strata DK40 I&M Manual Spring 1999