[king2512010]

اخى / فيصل
السلام عليكم ورحمة الله وبركاته ..

اليك هذا الكود ...

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
' هذا الأجراء يقوم بالأتصال عن طريق الهاتف
lRes = tapiRequestMakeCall(Trim(Number), App.Title, Trim(Name), "")
Debug.Print Now; " CallPhone -> tapiRequestMakeCall Result code = "; lRes
End Sub

Private Sub Command1_Click()
CallPhone "0096396993175", "AL-MOZAMGER"
End Sub

ويمكنك تحميل المرفق .... منقول