A voir également:
- Aide en vb
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Vb editor - Télécharger - Langages
- Vb runtime - Télécharger - Divers Utilitaires
- Vb 2008 - Télécharger - Langages
1 réponse
Bonjour,
NB : J'ai vérifié, ça fonctionne avec Outlook 2000
Le plus difficile sera de l'adapter à votre programme
- 2 Procédures sont requises
1/2___
Private Sub ContactOutlook_Click()
'Ouvre un Contact Outlook pour cette assignation.
If Not IsNull(DestinéA) Then
OuvrirContactOutlook DestinéA.Column(1)
End If
End Sub
_________
2/2
Public Sub OuvrirContactOutlook(strFullName As String)
'Ouvre un contact Microsoft Outlook pour le nom spécifié.
Dim appOutlook As New Outlook.Application
Dim nsOutlook As NameSpace
Dim mfContacts As MAPIFolder
Dim ciContact As ContactItem
'Ouvre le dossier Contacts par défaut d'Outlook.
Set nsOutlook = appOutlook.GetNamespace("MAPI")
Set mfContacts = nsOutlook.GetDefaultFolder(olFolderContacts)
'Cherche le contact destinataire dans la colonne DestinéA.
Set ciContact = mfContacts.Items.Find("[FullName] = " & strFullName)
'Si le Destinataire n'existe pas, ajoute un nouveau Destinataire.
If ciContact Is Nothing Then
Set ciContact = mfContacts.Items.Add
ciContact.FullName = strFullName
End If
'Ouvre la fenêtre Contact d'Outlook.
ciContact.Display
End Sub
NB : J'ai vérifié, ça fonctionne avec Outlook 2000
Le plus difficile sera de l'adapter à votre programme
- 2 Procédures sont requises
1/2___
Private Sub ContactOutlook_Click()
'Ouvre un Contact Outlook pour cette assignation.
If Not IsNull(DestinéA) Then
OuvrirContactOutlook DestinéA.Column(1)
End If
End Sub
_________
2/2
Public Sub OuvrirContactOutlook(strFullName As String)
'Ouvre un contact Microsoft Outlook pour le nom spécifié.
Dim appOutlook As New Outlook.Application
Dim nsOutlook As NameSpace
Dim mfContacts As MAPIFolder
Dim ciContact As ContactItem
'Ouvre le dossier Contacts par défaut d'Outlook.
Set nsOutlook = appOutlook.GetNamespace("MAPI")
Set mfContacts = nsOutlook.GetDefaultFolder(olFolderContacts)
'Cherche le contact destinataire dans la colonne DestinéA.
Set ciContact = mfContacts.Items.Find("[FullName] = " & strFullName)
'Si le Destinataire n'existe pas, ajoute un nouveau Destinataire.
If ciContact Is Nothing Then
Set ciContact = mfContacts.Items.Add
ciContact.FullName = strFullName
End If
'Ouvre la fenêtre Contact d'Outlook.
ciContact.Display
End Sub
