Excel VBA TAPI 到盲转扩展
Excel VBA TAPI to blind transfer extension
我使用 Excel VBA.
使用 tapirequestmakecall 函数拨打了一个号码
https://msdn.microsoft.com/en-us/library/ms737210(v=vs.85).aspx
Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
(ByVal stNumber As String, ByVal stDummy1 As String, _
ByVal stDummy2 As String, ByVal stDummy3 As String) As Long
Sub DialNumber(Number As String)
Dim lngStatus As Long
lngStatus = tapiRequestMakeCall(Number, "", "", "")
If lngStatus < 0 Then
MsgBox "Failed to dial number " & Number, vbExclamation
End If
End Sub
电话接通后,我必须将呼叫转移到100之类的分机。
如何做到这一点?我正在使用 TAPI 2.2。任何帮助将不胜感激..
据我所知,这是不可能的。 built-in office TAPI 集成仅用于使用“第一方”-TAPI 驱动程序(驱动程序的子集用于单个分机使用)进行拨出呼叫。 Office 还限制了对 API 的访问(供 "easy" 使用),因此您无权访问拨号操作的正常输出(= 创建的调用的句柄,以执行进一步的操作) .
我建议您不要使用 built-in 办公方法,而是直接在 TAPI (tapi32.dll) 本身上构建。不幸的是,这是一项相当困难的工作。
我使用 Excel VBA.
使用 tapirequestmakecall 函数拨打了一个号码https://msdn.microsoft.com/en-us/library/ms737210(v=vs.85).aspx
Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
(ByVal stNumber As String, ByVal stDummy1 As String, _
ByVal stDummy2 As String, ByVal stDummy3 As String) As Long
Sub DialNumber(Number As String)
Dim lngStatus As Long
lngStatus = tapiRequestMakeCall(Number, "", "", "")
If lngStatus < 0 Then
MsgBox "Failed to dial number " & Number, vbExclamation
End If
End Sub
电话接通后,我必须将呼叫转移到100之类的分机。
如何做到这一点?我正在使用 TAPI 2.2。任何帮助将不胜感激..
据我所知,这是不可能的。 built-in office TAPI 集成仅用于使用“第一方”-TAPI 驱动程序(驱动程序的子集用于单个分机使用)进行拨出呼叫。 Office 还限制了对 API 的访问(供 "easy" 使用),因此您无权访问拨号操作的正常输出(= 创建的调用的句柄,以执行进一步的操作) .
我建议您不要使用 built-in 办公方法,而是直接在 TAPI (tapi32.dll) 本身上构建。不幸的是,这是一项相当困难的工作。