1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
| Sub AjouterContact()
'---------------------------------------------------------------------------------------
' Procédure : CreationContact
' Auteur : Dolphy35 - http://dolphy35.developpez.com/
' Date : 06/05/2008
' Détail : Création d'un nouveau Contact
'---------------------------------------------------------------------------------------
'
'Déclaration des objets
Dim MonApply As Outlook.Application
Dim MonContact As Outlook.ContactItem
'Instance des Objets
Set MonApply = Outlook.Application 'Instance de l'application
Set MonContact = MonApply.CreateItem(olContactItem) 'Instance du nouveau Contact
'définit plusieurs attributs du nouveau contact
With MonContact
.Email1Address = "mail@domaine.fr"
End With
'Affichage du nouvel Objet Contact
MonContact.Save
'Vide des instances
Set MonApply = Nothing<code type="vbnet"><code type="vbnet">
Set MonContact = Nothing
End Sub |
