[AC-2010] Envoi d'un sms en VBA

[Harry Covair]

Bonjour et bonne année à tous,
Je voudrais soumettre un problème dont la solution est probablement évidente mais je ne trouve pas.
Dans la gestion d’une bibliothèque, si l’emprunteur n’a pas rendu le livre à la date prévue, un sms devrait être envoyé à son portable via Skype. En fouinant sur Internet, j’ai trouvé deux solutions :

L’une - de l’aide de Skype - ne me convient pas (VB);
L’autre, en VBA, est plus dans mes cordes ; le code est repris ci-dessous.

J’ai copié « skype4com.dll » dans system32 et l’ai installé avec regsvr32. La clé du registre « HKEY_CLASSES_ROOT\PROTOCOLS\Handler\skype4com » existe et la référence « skype4com » est cochée en VBA.
A l’exécution, dans la fonction SkypeSMS, une erreur apparaît sur « set sms : « Un composant ActiveX ne peut pas créer d’objet ».
Un lecteur averti peut-il me conseiller dans la solution de ce problème ? Précision, je travaille en Office 64 bits.
D’avance merci

Harry

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
Private Sub cmdSendSkype_Click()
' By Mark Plumpton
' Custom Data Solutions Ltd
Dim txtNumber as string
Dim txtMessage as string
TxtNumber = “123”
TxtMessage = “test envoyé par Access”
  SkypeSMS txtNumber, txtMessage
End Sub

Public Function SkypeSMS(strNumber As String, strBody As String)
'strNumber is in international format
Dim sky As New SKYPE4COMLib.skype
Dim sms As SKYPE4COMLib.SmsMessage
Set sms = sky.CreateSms(smsMessageTypeOutgoing, strNumber)
sms.Body = strBody
sms.Send
'you can loop here and wait till the message is sent or fails
Debug.Print sms.Status
Set sms = Nothing
End Function

Notes
'Uses Skype4Com.dll
' https://developer.skype.com/Docs/Skype4COM/Start