carnet d'adresse

[globinours]

Bonjour le forum,

Comment pourrais-je ouvrir la boite de dialogue du carnet d'adresse d'outlook express (ou outlook)?
Merci d'avance

 

[MichelXld]

bonjour

pour Outlook


'
'necessite d'activer la reference Microsoft Outlook xx Object library
'
Dim olApp As New Outlook.Application
Dim dossierContacts As Outlook.MAPIFolder
Set olApp = New Outlook.Application
Set dossierContacts = olApp.GetNamespace('MAPI').GetDefaultFolder(olFolderContacts)
dossierContacts.Display
Set dossierContacts = Nothing
Set olApp = Nothing



pour Outlook Express

Dim Valeur As Long
On Error Resume Next
AppActivate ('Carnet d'adresse')
Valeur = Shell('C:\\\\\\\\Program Files\\\\\\\\Outlook Express\\\\\\\\wab.exe', 1)


bonne soirée
MichelXld

Message édité par: michelxld, à: 14/03/2006 17:15

 

[globinours]

Merci Michel, ça marche comme je le voulais.