Ouvrir une fiche contact dans Outlook via VB6 [Résolu]

Signaler
Messages postés
100
Date d'inscription
lundi 20 juin 2005
Statut
Membre
Dernière intervention
20 janvier 2009
-
Messages postés
100
Date d'inscription
lundi 20 juin 2005
Statut
Membre
Dernière intervention
20 janvier 2009
-
Bonjour, Bonjour,

comme le dit le sujet du message,
je cherche le moyen le plus rapide pour ouvrir une fiche contact.
C'est à dire que si on clique sur un bouton il va afficher à l'écran la fiche du contact ( qui aura été sélectionné dans un combo ).
Heuu, juste pour info c'est avec exchange server, donc pas seulement le dossier contact par défaut mais aussi les dossiers publics !!!!

La logique serait que le contact soit dans un dossier spécifique ( tjs le même ) dans les dossiers publics.

Voila Voila...

Merci d'avance

2 réponses

Messages postés
100
Date d'inscription
lundi 20 juin 2005
Statut
Membre
Dernière intervention
20 janvier 2009

Cherchez plus !!!!
L'idiot du village c'était moi, y a pas plus simple que ça !!!

Voici le code pour ceux qui souhaite faire la même chose :

Attention, ne pas oublier de cocher dans les références la Référence Outlook !!!

Dim myFolders, Myfolder
Dim olContacts, olContact
Dim RechContacts

Private Sub CommandButton1_Click()

SubInitializeGetInfos

End Sub


Public Sub SubInitializeGetInfos()

Set myFolders = Outlook.Application.GetNamespace("MAPI").Folders
SubFoundFolders
olContact = 0

End Sub

Public Sub SubFoundFolders()

On Error Resume Next
For Each Myfolder In myFolders
If olContact = 1 Then Exit For
Set RechContacts = Myfolder.Items
'MsgBox Myfolder.Name ' Vérif dossier en cours
If Myfolder.Name = "Nom Dossier" Then
On Error Resume Next
For Each olContacts In RechContacts
'MsgBox olContacts.CompanyName ' Vérif compagnie en cours
If TypeName(olContacts) = "ContactItem" And _
olContacts.CompanyName = Form1.ComboBox1.Text Then
'MsgBox olContacts.FullName ' Affiche nom Complet contact
olContacts.Display
olContact = 1
Exit For
End If
Next
Exit For
End If
Set myFolders = Myfolder.Folders
SubFoundFolders
Next

End Sub
3
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 82 internautes nous ont dit merci ce mois-ci

Messages postés
100
Date d'inscription
lundi 20 juin 2005
Statut
Membre
Dernière intervention
20 janvier 2009

Bon, bah, j'ai trouvé tout seul comme un grand comment lister les folders Exchange, par contre je ne trouve toujours pas la commande qui me permet d'ouvrir la fiche contact...

Alors avis aux connaisseurs, merci d'avance !!!!