إجراء اتصال هاتفي عن طريق Api - نسخة قابلة للطباعة

كود :
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal DestAddr$, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long

Public Sub CallPhone(Number As String, Name As String)

Dim lRes As Long

Dim result As Long

''''''''''''''''''''''''''''''''''''''''

'التأكد ان الرقم موجود

If (Trim(Number) = "") Then

MsgBox "تأكد ان الرقم موجود"

Exit Sub

End If

If (MsgBox("هل انت متأكد انك تريد الأتصال بـ " & Trim(Name) _

& " على الرقم " & Trim(Number) & vbCrLf, _

vbYesNo, App.Title) = vbYes) Then

''''''''''''''''''''''''''''''''''''''''

' هذا الأجراء يقوم بالأتصال عن طريق الهاتف

lRes = tapiRequestMakeCall(Trim(Number), App.Title, Trim(Name), "")

Debug.Print Now; " CallPhone -> tapiRequestMakeCall Result code = "; lRes

''''''''''''''''''''''''''''''''''''''''

End If

''''''''''''''''''''''''''''''''''''''''

End Sub

Private Sub Command1_Click()

'العمل أم المنزل

If Option2.Value = True Then

CallPhone txtnumber2.Text, txtName.Text

Else

CallPhone txtNumber.Text, txtName.Text

End If

End Sub

Private Sub Command3_Click()

End

End Sub