Функция для звонков из VBA-приолжений с использованием 3CX VOIP Client (TAPI3). Для работы необходимо подключить TAPI3.DLL. В редакторе VBA Tools->References, выбрать через Browse windows\system32\tapi3.dll.

Скачать пример для звонка, необходимо набрать номер в ячейке и нажать Ctrl+C.

Private Sub PhoneDialTapi(sNumber As String)
'Dim bFound As Boo lean
Dim indexAddr As Integer
Dim objCollAddresses As Object
Dim objCrtAddress As ITAddress
Dim objcollAddress As Object
Dim gobjTapi As TAPI
' Create the tapi object.
Set gobjTapi = New TAPI
' Call Initialize before calling any other TAPI function.
Call gobjTapi.Initialize
' pick up the collection of Address objects
Set objCollAddresses = gobjTapi.Addresses
' find address for 3CX VoIP Clien
'bFound = False
For indexAddr = 2 To objCollAddresses.Count
Set objCrtAddress = objCollAddresses.Item(indexAddr)
If objCrtAddress.AddressName = "3CX VoIP Client" Then
If objCrtAddress.QueryMediaType(TAPIMEDIATYPE_AUDIO) Then 'just for test !!
Set gobjAddress = objCollAddresses.Item(indexAddr)
Set gobjCall = gobjAddress.CreateCall(RTrim(sNumber), LINEADDRESSTYPE_PHONENUMBER, TAPIMEDIATYPE_AUDIO)
gobjCall.Connect (False)
'bFound = True
End If
End If
Next
End Sub

Информация по TAPI

• SIP TAPI driver. Настройка SIP TAPI driver
• Microsoft ® Windows Server® 2003 R2 Platform SDK
• TAPI и TSPI FAQ
• Примеры TAPI-приложений