Discussion :

[greg06500]

Bonjour à tous,

J'ai une petite question, est ce possible de téléphoner sur un téléphone fixe à partir d'un code vba ?, en utilisant CDO ou autre chose ?

Merci d'avance

GREG

[SilkyRoad]

bonjour

Tu peux adapter ce code VB

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
'Example by Joacim Andersson (joacim@programmer.net)
'Author comments: I often get asked the question "How can
'I dial a phone number from VB?". Well, you can add
'the MSCOMM32.OCX control to a form but that isn't necessary
'if you just want to dial a phone number.
Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long
Private Sub PhoneCall(sNumber As String, sName As String)
    Dim lRetVal As Long
    lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")
    If lRetVal <> 0 Then
        'Couldn't make the call.
        'Take appropriate action
    End If
End Sub
 
Private Sub Form_Load()
    PhoneCall "123456", "TheName"
End Sub

http://allapi.mentalis.org/apilist/t...MakeCall.shtml


bonne journée
michel