Interface vers composition de n° de téléphone

[Jean-Claude]

Bonjour à tous,

je cherche le moyen de pouvoir composer automatiquement (double clic ou lancement d'une macro) à partir d'XL un N° de téléphone présent dans une cellule.
Ex: interfacer avec le module présent dans outlook ou tout autre solution viable.

Merci de votre aide

 

[Zon]

Salut,

Trouvé dans Api guide

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest$, ByVal AppName$, ByVal CalledParty$, ByVal Comment$) As Long

Sub Appeler(Num$, Optional Auteur$, Optional Titre$ = "", Optional Sujet$ = "")
On Error Resume Next
tapiRequestMakeCall Num, Titre, Auteur, Sujet
If Err <> 0 Then MsgBox "Appel impossible"
End Sub


Sub Test()
Appeler [A8], "Zon"
End Sub


A+++

 

[Jean-Claude]

Merci beaucoup pour cette info.

Je vais essayer cela.

A+

 

[Jean-Claude]

J'ai essayé votre solution, mais il semblerait que l'appel soit diriger sur Internet.

Ce que je souhaite c'est de composer via le modem le N° de tel sur le RTT comme un fax et pouvoir décrocher quand le N° de téléphone a été composé (ce qui existe dans Outlook dans Contact, mais je ne veux pas entrer dans Contact tous les N°s que je gère).

Avez vous un autre moyen.

Merci de votre temps.

 

[Zon]

Salut,

Même avec une connection internet(adsl) cela passe par le modem analogique (du moins sur mes pc chez moi) , logique puisqu'en sélection automatique le numeroteur voir la ligne adsl occupéé si je suis connecté. sans connexion RTC le numéroteur me retourne un échec de connexion.

Mais comme je vois que tu es chez Wanadoo, peut être que tu as leur lanceur d'applications d'installé le problème doit venir de là ....

Si tu veux modifier les options il faut passer par Le Menu Editeur /options dans le numeroteur.

A+++

 

[Jean-Claude]

Tout est OK maintenant.
Je suis bien chez Wanadoo et je suis allé dans les Options afin de sélectionner l'appel RTC.

Merci encore.

 

[magoo]

Bonsoir Zon, Jean-Claude et le forum,

Zon j'ai repris ton code pour mon appli. Quand je clique sur un n° de téléphone de ma base, le numéroteur Téléphonique de windows compose normalement et il abouti.
Mon souci, c'est que mon interlocuteur m'entend, mais pas moi! Alors qu'avec le composeur de outlook pas de pb. :-((( Et toute mon appli n'a plus de sens.

Vous n'avez pas eu de soucis dans vos applis ?
Si qqu'un voit une solution je suis preneur.

Merci d'avance

 

[Zon]

Salut,

J'ai cheché sur le support microsoft mais j'ai rien trouvé...

magoo, est -ce qu'appel classique (fait manuellement ) te fait la même chose ?

Vérifies que le volume de ton micro dans les propriétés audio.

Tu parles d'outlook mais lequel (express ou office)? on doit pouvoir piloter Oultook depuis excel pour composer l'appel...

A+++

 

[magoo]

Bonsoir et merci à vous deux de vos réponses,

Jean-Claude : J'ai bien regardé toute les possibilités de connection de mon casque. J'ai même testé mon appli sur un portable avec modem g les même problème ?

Zon : en appel classique directement du numéroteur Téléphonique de Windows, c'est la même chose je n'ai pas le retour, on m'entend, moi je n'entends rien.
Sinon le composeur de Outlook (office) pas de pb. Mais j'ai cherché du code et je n'ai pas retrouvé du facile à intégré. Le tiens était à ma porté 🙂
Si tu trouves Je suis preneur.

Merci à vous

 

[Zon]

Salut,

Magoo colles ceci dans un module standard en cochant dans VBE la référence Outlook object library.
J'ai pas trouvé mieux que de créer un contact pour pouvoir composer le numéro puis de le supprimer. Quand Outlook n'est pas ouvert, je passe par du senkeys pour activer le numeroteur outlook.

'Cocher dans Référence Micorsoft Outlook XX object library
Dim App As Object
Dim Espace As Object
Dim Contact As Object
Dim Test As Boolean

Const NomContact = "UtilisateurTemporaire"
&nbsp;&nbsp;&nbsp;
Sub Appeler(ByVal Num$)
&nbsp;Init
&nbsp;AjouterContact Num
&nbsp;Espace.Dial Contact
&nbsp;If Not Test Then SendKeys ("%{TAB}")
&nbsp;Contact.Delete
&nbsp;LibMem
End Sub
&nbsp;
Sub Init()
&nbsp;On Error Resume Next
&nbsp;Set App = GetObject(, "Outlook.Application")
&nbsp;If Err <> 0 Then
&nbsp;&nbsp;&nbsp;Set App = CreateObject("Outlook.Application")
&nbsp;&nbsp;&nbsp;Test = True
&nbsp;End If
&nbsp;Set Espace = App.GetNamespace("MAPI")
End Sub

Sub AjouterContact(ByVal Num$)
&nbsp;Set Contact = App.CreateItem(2)
&nbsp;With Contact
&nbsp;&nbsp;&nbsp;.FirstName = NomContact
&nbsp;&nbsp;&nbsp;.AssistantTelephoneNumber = Num
&nbsp;&nbsp;&nbsp;.FileAs = NomContact
&nbsp;&nbsp;&nbsp;.Save
&nbsp;End With
End Sub

Sub LibMem()
&nbsp;Set Contact = Nothing
&nbsp;Set Espace = Nothing
&nbsp;Set App = Nothing
End Sub


tu appelles ensuite en reprenant l'exemple : appeler [A8]

aprés les tests, à toi de voir pour rajouter une gestion d'erreur...

A+++

 

[Zon]

Re,

Pas besoin de cocher la référence Outllook ...

 

[magoo]

Yes ! Je vais tester merci Zon

Magoo