声明:
PrivateDeclareFunctiontapiRequestMakeCallLib"TAPI32.DLL" (ByValDestAddr$,ByValAppNameAsString, ByValCalledPartyAsString,ByValCommentAsString)AsLong
例子:
PublicSubCallPhone(NumberAsString,NameAsString)
DimlResAsLong
If(Trim(Number)="")Then
ExitSub
EndIf
If(MsgBox("Abouttocall"&Trim(Name) &"atphonenumber"&Trim(Number)&vbCrLf&"Doit?", vbYesNo,App.Title)=vbYes)Then
lRes=tapiRequestMakeCall(Trim(Number),App.Title,Trim(Name),"")
Debug.PrintNow;"CallPhone-tapiRequestMakeCallResultcode=";lR...[ 查看全文 ]