Outlook 2003 - Liste des champs contacts

[sebinator]

Bonjour,

Où je peux trouver la liste des champs disponibles dans une fiche contact ?

merci

seb

[Ormonth]

Bonjour,
sous 2003

En créant la liste

vite fait :

tu mets ce code dans un module d'Outlook, de Word, d'Excel...peu importe, tu récupères le résultat dans la fenêtre d'exécution, tu peux faire un copier coller pour l'imprimer si besoin.

Sub ListingVoulu()
' Activer Microsoft Outlook 11.0 Object Library
 
    Dim olApp As Outlook.Application
    Dim objDosContact As Outlook.MAPIFolder
    Dim objContact As Outlook.ContactItem
    Dim vntProp As Variant
    
    Set olApp = New Outlook.Application
    Set objDosContact = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
    'On se place sur le 1er contact par défaut, on considère qu'il en existe un !
    Set objContact = objDosContact.Items(1)
    For Each vntProp In objContact.ItemProperties
        Debug.Print vntProp.Name
    Next vntProp
End Sub

Sinon, aide VBA Outlook, ContactItem, objet et tu regardes dans Propriètés.

Sinon chez Microsoft :
http://msdn.microsoft.com/en-us/libr...ffice.11).aspx

Rajout pour s'amuser :

en mettant ce code dans un module d'un doc Word vierge, tu auras la liste imprimée direct

Sub ImpListingVoulu()
' Activer Microsoft Outlook 11.0 Object Library
 
    Dim olApp As Outlook.Application
    Dim objDosContact As Outlook.MAPIFolder
    Dim objContact As Outlook.ContactItem
    Dim vntProp As Variant
 
    Set olApp = New Outlook.Application
    Set objDosContact = olApp.GetNamespace("MAPI").GetDefaultFolder(olFolderContacts)
    'On se place sur le 1er contact par défaut, on considère qu'il en existe un !
    Set objContact = objDosContact.Items(1)
    For Each vntProp In objContact.ItemProperties
    With Selection
        .TypeText Text:=vntProp.Name
        .TypeParagraph
    End With
    Next vntProp
ActiveDocument.PrintOut
End Sub

cordialement,

Didier

[Oliv-]

Salut,
Merci pour ce code très pratique, je ne connaissais pas ItemProperties


On trouve notamment YomiCompanyName : l'équivalent phonétique japonais (yomigana) du nom de la société !!!

[sebinator]

Super génial... Merci

Je poste la liste générée par le code :

Application
Class
Session
Parent
Actions
Attachments
BillingInformation
Body
Categories
Companies
ConversationIndex
ConversationTopic
CreationTime
EntryID
FormDescription
GetInspector
Importance
LastModificationTime
MessageClass
Mileage
NoAging
OutlookInternalVersion
OutlookVersion
Saved
Sensitivity
Size
Subject
UnRead
UserProperties
Account
Anniversary
AssistantName
AssistantTelephoneNumber
Birthday
Business2TelephoneNumber
BusinessAddress
BusinessAddressCity
BusinessAddressCountry
BusinessAddressPostalCode
BusinessAddressPostOfficeBox
BusinessAddressState
BusinessAddressStreet
BusinessFaxNumber
BusinessHomePage
BusinessTelephoneNumber
CallbackTelephoneNumber
CarTelephoneNumber
Children
CompanyAndFullName
CompanyLastFirstNoSpace
CompanyLastFirstSpaceOnly
CompanyMainTelephoneNumber
CompanyName
ComputerNetworkName
CustomerID
Department
Email1Address
Email1AddressType
Email1DisplayName
Email1EntryID
Email2Address
Email2AddressType
Email2DisplayName
Email2EntryID
Email3Address
Email3AddressType
Email3DisplayName
Email3EntryID
FileAs
FirstName
FTPSite
FullName
FullNameAndCompany
Gender
GovernmentIDNumber
Hobby
Home2TelephoneNumber
HomeAddress
HomeAddressCity
HomeAddressCountry
HomeAddressPostalCode
HomeAddressPostOfficeBox
HomeAddressState
HomeAddressStreet
HomeFaxNumber
HomeTelephoneNumber
Initials
InternetFreeBusyAddress
ISDNNumber
JobTitle
Journal
Language
LastFirstAndSuffix
LastFirstNoSpace
LastFirstNoSpaceCompany
LastFirstSpaceOnly
LastFirstSpaceOnlyCompany
LastName
LastNameAndFirstName
MailingAddress
MailingAddressCity
MailingAddressCountry
MailingAddressPostalCode
MailingAddressPostOfficeBox
MailingAddressState
MailingAddressStreet
ManagerName
MiddleName
MobileTelephoneNumber
NetMeetingAlias
NetMeetingServer
NickName
OfficeLocation
OrganizationalIDNumber
OtherAddress
OtherAddressCity
OtherAddressCountry
OtherAddressPostalCode
OtherAddressPostOfficeBox
OtherAddressState
OtherAddressStreet
OtherFaxNumber
OtherTelephoneNumber
PagerNumber
PersonalHomePage
PrimaryTelephoneNumber
Profession
RadioTelephoneNumber
ReferredBy
SelectedMailingAddress
Spouse
Suffix
TelexNumber
Title
TTYTDDTelephoneNumber
User1
User2
User3
User4
UserCertificate
WebPage
YomiCompanyName
YomiFirstName
YomiLastName
Links
ItemProperties
LastFirstNoSpaceAndSuffix
DownloadState
IMAddress
MarkForDownload
IsConflict
AutoResolvedWinner
Conflicts
HasPicture