Discussion :

[Djromé]

Salut les Kracks,

J'aimerai savoir si il y a moyen par VBA de tester si l'utilisateur a Outlook ou Lotus note sur son PC:

Code :

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

1
2
3
4
5
6
7
If CreateObject("Notes.NotesSession") = True Then
Call SendmailbyLotusNote
ElseIf CreateObject("Outlook.Application") = True Then
Call SendmailbyOutlook
Else
MsgBox "No setup for this both applications!"
End If

[carden752]

Bonjour,

Il faut vérifier la clé de la base de registre suivante :
HKLM \ SOFTWARE \ Clients \ Mail \
Ou HKCU \ SOFTWARE \ Clients \ Mail \

Quelque chose de ce style :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub lirereg()
Dim myWS As Object
Dim RegKey As String
Dim Key As String
 
Key = "HKEY_CURRENT_USER\SOFTWARE\Clients\Mail\"
 
  On Error Resume Next
   'L'accès de script Windows
  Set myWS = CreateObject("WScript.Shell")
  'Lire la clé de registre
  RegKey = myWS.RegRead(Key)
  Debug.Print RegKey
End Sub