【 tulaoshi.com - 编程语言 】
                             
                            声明:  
  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=";lRes
   EndIf
  EndSub  
  还有一种方法是:
  PhoneNumber$="(123)456-7890"
  Open"COM2:"ForOutputAs#1'orCOM1
  Print#1,"ATDT"&PhoneNumber$&Chr$(13)
  Close#1
  当然,该方法只适合小型的应用。->