[AC-2000] Composer un n° de téléphone depuis un formulaire access / Problème dialer.exe se bloque une fois sur 3

[Sefrou]

Bonjour,

Je perfectionne une base de donnée de prospection depis un certain temps. J'ai appris sur le tas à utiliser Access et VBA. Je ne suis pas un informaticien mais un simple commercial, je fais de mon mieux avec de la persévérance.

Dernièrement j'ai investi dans un téléphone Tiptel 274 muni d'un cable USB relié à l'ordinateur qui permet de composer des numéros automatiquement par un port COM.

J'ai trouvé le code ci-dessous sur le site qui permet de lancer un appel en utilisant la command TAPI tapiRequestMakeCall, ça foncitonne en passant par dialer.exe, le problème c'est que dialer.exe se plante régulièrement. Peut-on éviter de passer par le numéroteur Windows ? Y a-t-il d'autres solutions ?

J'ai lu qu'on peut envoyer des commandes 'Hayes' par le port com. Mais comment peut-on commander le port COM directement depuis VBA ?

Des sociétés vendent des logiciels dit de CTI comme PhonePC et Clicktel. Cela vaut-il le coût d'investir 200€ ? Je veux juste numéroter automatiquement. Si quelqu'un s'est déjà penché sur le problème, merci d'avance de bien vouloir me donner des pistes.

Salutations,

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Option Explicit
      Declare Function tapiRequestMakeCall Lib "tapi32.dll" _
         (ByVal stNumber As String, ByVal stDummy1 As String, _
         ByVal stDummy2 As String, ByVal stDummy3 As String) As Long
      Public Const ID_CANCEL = 2
      Public Const MB_OKCANCEL = 1
      Public Const MB_ICONSTOP = 16, MB_ICONINFORMATION = 64
 
      ' ***********************************************************
      ' FUNCTION: DialNumber()
      '
      ' PURPOSE: To dial a telephone number using the computer's modem
      '
      ' ARGUMENTS:
      '    PhoneNumber: The telephone number to dial
      '
      ' EXAMPLE:
      '    Type the following in the Debug window to dial a phone number:
      '
      '       ? DialNumber("555-1212")
      ' ***********************************************************
      Function DialNumber(PhoneNumber)
         Dim Msg As String, MsgBoxType As Integer, MsgBoxTitle As String
         Dim RetVal As Long
 
         ' Ask the user to pick up the phone.
         Msg = "Please pickup the phone and click OK to dial " _
            & PhoneNumber
         MsgBoxType = MB_ICONINFORMATION + MB_OKCANCEL
         MsgBoxTitle = "Dial Number"
 
        If MsgBox(Msg, MsgBoxType, MsgBoxTitle) = ID_CANCEL Then
           Exit Function
        End If
 
         ' Send the telephone number to the modem.
         RetVal = tapiRequestMakeCall(PhoneNumber, "", "", "")
 
         If RetVal < 0 Then
            Msg = "Unable to dial number " & PhoneNumber
            GoTo Err_DialNumber
         End If
 
         Exit Function
 
Err_DialNumber:            'This is not an On Error routine.
         Msg = Msg & vbCr & vbCr & _
            "Make sure no other devices are using the Com port"
         MsgBoxType = MB_ICONSTOP
         MsgBoxTitle = "Dial Number Error"
         MsgBox Msg, MsgBoxType, MsgBoxTitle
 
      End Function