Исходящие звонки из Access

Для осуществления возможности набирать телефонный номер из данного приложения, вставьте такой код:

Private Sub Кнопка2_Click()
Dim stAppName as String
stAppName = "C:\Program Files\Zvonilka\zvonilka.exe" & " " & Me!Поле0
Call Shell(stAppName, 1)
End Sub

Где:
Кнопка2 – кнопка “Позвонить”
Me!Поле0 – поле с телефонным номером.

Этот пример можно скачать тут

 

Для осуществления возможности “положить трубку”, вставьте такой код:

Private Sub Кнопка3_Click()
Dim stAppName as String
stAppName = "C:\Program Files\Zvonilka\zvonilka.exe" & " " & "hungup"
Call Shell(stAppName, 1)
End Sub

Для осуществления возможности “ответить на звонок”, вставьте такой код:

Private Sub Кнопка4_Click()
Dim stAppName as String
stAppName = "C:\Program Files\Zvonilka\zvonilka.exe" & " " & "answer"
Call Shell(stAppName, 1)
End Sub