Ajouter des contacts dans OUTLOOK

Bonjour,

http://officesystem.access.free.fr/gestion_de_la_messagerie_outlook.htm

Y'a plus qu'à utiliser !
Livré clé en main par Monsieur Raymond !

--
Cordialement,

ze_titi

Mail perso: http://www.cerbermail.com/?sj4KuQC4GQ

Bonjour Toulemonde !


J'ai trouve le code suivant chez "ACCESS Stone" :

Sub ListOutlookContacts()
On Error Resume Next
Dim StrContacts As String

Dim Ol_App As New Outlook.Application
Dim Ol_Mapi As Outlook.NameSpace
Dim Ol_Folder As Outlook.MAPIFolder
Dim Ol_Items As Outlook.Items
Dim Ol_Contact As Outlook.ContactItem

Set Ol_Mapi = Ol_App.GetNamespace("MAPI")
Set Ol_Folder = Ol_Mapi.GetDefaultFolder(olFolderContacts)
Set Ol_Items = Ol_Folder.Items

For Each Ol_Contact In Ol_Items
StrContacts = StrContacts & vbCrLf & _
Ol_Contact.FullName & " - " & Ol_Contact.Email1Address
Next Ol_Contact

MsgBox StrContacts

Set Ol_Contact = Nothing
Set Ol_Items = Nothing
Set Ol_Folder = Nothing
Set Ol_Mapi = Nothing
Set Ol_App = Nothing

Tout cela fonctionne tres bien mais quels sont les noms des autres champs
qu'Outlook utilise afin de pouvoir egalement les remplir a partir d'une appli
?

Merci,

Luc

Voici la liste des chammps avec leur numéro = Item(i). Les champs définis par
l'utilisateur s'ajoutent. J'ai obtenu cette liste en intérogeant les
properties d'un contact dans mon carnet, j'ai effacé les contenus:

0 Application : Outlook
1 Class : 40
2 Session : Mapi
3 Parent : Contacts
6 BillingInformation :
7 Body :
8 Categories :
9 Companies :
10 ConversationIndex :
11 ConversationTopic :
12 CreationTime :
13 EntryID :
14 FormDescription :
15 GetInspector :
16 Importance : 1
17 LastModificationTime : 26/07/2005 16:59:18
18 MessageClass : IPM.Contact
19 Mileage :
20 NoAging : Faux
21 OutlookInternalVersion : 115608
22 OutlookVersion : 11.0
23 Saved : Vrai
24 Sensitivity : 0
25 Size : 2248
26 Subject :
27 UnRead : Faux
29 Account :
30 Anniversary :
31 AssistantName :
32 AssistantTelephoneNumber :
33 Birthday :
34 Business2TelephoneNumber :
35 BusinessAddress :
36 BusinessAddressCity :
37 BusinessAddressCountry :
38 BusinessAddressPostalCode :
39 BusinessAddressPostOfficeBox :
40 BusinessAddressState :
41 BusinessAddressStreet :
42 BusinessFaxNumber :
43 BusinessHomePage :
44 BusinessTelephoneNumber :
45 CallbackTelephoneNumber :
46 CarTelephoneNumber :
47 Children :
48 CompanyAndFullName :
49 CompanyLastFirstNoSpace :
50 CompanyLastFirstSpaceOnly :
51 CompanyMainTelephoneNumber :
52 CompanyName :
53 ComputerNetworkName :
54 CustomerID :
55 Department :
56 Email1Address :
57 Email1AddressType : SMTP
58 Email1DisplayName :
59 Email1EntryID :
60 Email2Address :
61 Email2AddressType :
62 Email2DisplayName :
63 Email2EntryID :
64 Email3Address :
65 Email3AddressType :
66 Email3DisplayName :
67 Email3EntryID :
68 FileAs :
69 FirstName :
70 FTPSite :
71 FullName :
72 FullNameAndCompany :
73 Gender : 0
74 GovernmentIDNumber :
75 Hobby :
76 Home2TelephoneNumber :
77 HomeAddress :
78 HomeAddressCity :
79 HomeAddressCountry :
80 HomeAddressPostalCode :
81 HomeAddressPostOfficeBox :
82 HomeAddressState :
83 HomeAddressStreet :
84 HomeFaxNumber :
85 HomeTelephoneNumber :
86 Initials : Y.A.
87 InternetFreeBusyAddress :
88 ISDNNumber :
89 JobTitle :
90 Journal : Faux
91 Language :
92 LastFirstAndSuffix :
93 LastFirstNoSpace :
94 LastFirstNoSpaceCompany :
95 LastFirstSpaceOnly :
96 LastFirstSpaceOnlyCompany :
97 LastName : Audollent
98 LastNameAndFirstName :
99 MailingAddress :
100 MailingAddressCity :
101 MailingAddressCountry :
102 MailingAddressPostalCode :
103 MailingAddressPostOfficeBox :
104 MailingAddressState :
105 MailingAddressStreet :
106 ManagerName :
107 MiddleName :
108 MobileTelephoneNumber :
109 NetMeetingAlias :
110 NetMeetingServer :
111 NickName : Yves_Do
112 OfficeLocation :
113 OrganizationalIDNumber :
114 OtherAddress :
115 OtherAddressCity :
116 OtherAddressCountry :
117 OtherAddressPostalCode :
118 OtherAddressPostOfficeBox :
119 OtherAddressState :
120 OtherAddressStreet :
121 OtherFaxNumber :
122 OtherTelephoneNumber :
123 PagerNumber :
124 PersonalHomePage :
125 PrimaryTelephoneNumber :
126 Profession :
127 RadioTelephoneNumber :
128 ReferredBy :
129 SelectedMailingAddress : 1
130 Spouse :
131 Suffix :
132 TelexNumber :
133 Title : M.
134 TTYTDDTelephoneNumber :
135 User1 :
136 User2 :
137 User3 :
138 User4 :
139 UserCertificate :
140 WebPage :
141 YomiCompanyName :
142 YomiFirstName :
143 YomiLastName :
146 LastFirstNoSpaceAndSuffix :
147 DownloadState : 1
148 IMAddress :
149 MarkForDownload : 0
150 IsConflict : Faux
151 AutoResolvedWinner : Faux
153 HasPicture : Faux

Bonne chance.
pgz

Bonjour Toulemonde !


J'ai trouve le code suivant chez "ACCESS Stone" :

Sub ListOutlookContacts()
On Error Resume Next
Dim StrContacts As String

Dim Ol_App As New Outlook.Application
Dim Ol_Mapi As Outlook.NameSpace
Dim Ol_Folder As Outlook.MAPIFolder
Dim Ol_Items As Outlook.Items
Dim Ol_Contact As Outlook.ContactItem

Set Ol_Mapi = Ol_App.GetNamespace("MAPI")
Set Ol_Folder = Ol_Mapi.GetDefaultFolder(olFolderContacts)
Set Ol_Items = Ol_Folder.Items

For Each Ol_Contact In Ol_Items
StrContacts = StrContacts & vbCrLf & _
Ol_Contact.FullName & " - " & Ol_Contact.Email1Address
Next Ol_Contact

MsgBox StrContacts

Set Ol_Contact = Nothing
Set Ol_Items = Nothing
Set Ol_Folder = Nothing
Set Ol_Mapi = Nothing
Set Ol_App = Nothing

Tout cela fonctionne tres bien mais quels sont les noms des autres champs
qu'Outlook utilise afin de pouvoir egalement les remplir a partir d'une appli
?

Merci,

Luc