Ouvrir une fiche contact dans Outlook via VB6
Résolu
cs_drakkard
Messages postés
99
Date d'inscription
lundi 20 juin 2005
Statut
Membre
Dernière intervention
20 janvier 2009
-
24 août 2005 à 09:24
cs_drakkard Messages postés 99 Date d'inscription lundi 20 juin 2005 Statut Membre Dernière intervention 20 janvier 2009 - 24 août 2005 à 11:58
cs_drakkard Messages postés 99 Date d'inscription lundi 20 juin 2005 Statut Membre Dernière intervention 20 janvier 2009 - 24 août 2005 à 11:58
A voir également:
- "Inscrire un site" accueil nouveautés contact admin
- Accueil nouveautés inscrire un site contact admin - Forum PHP
- Accueil nouveautés "inscrire un site" contact admin - Forum VB.NET
- Outil Administration de site Web depuis le site - Forum ASP.NET
- Récupérer le bytecode d'une applet depuis un site ✓ - Forum Java
- Creer un bouton upload pour site - Forum PHP
2 réponses
cs_drakkard
Messages postés
99
Date d'inscription
lundi 20 juin 2005
Statut
Membre
Dernière intervention
20 janvier 2009
24 août 2005 à 11:58
24 août 2005 à 11:58
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
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
cs_drakkard
Messages postés
99
Date d'inscription
lundi 20 juin 2005
Statut
Membre
Dernière intervention
20 janvier 2009
24 août 2005 à 10:55
24 août 2005 à 10:55
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 !!!!
Alors avis aux connaisseurs, merci d'avance !!!!
