Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Outlook Contacts field names
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
01438135
Message ID:
01438138
Vues:
64
>I want to import my data into Outlook.
>Is there anywhere I could find the complete list of field names for the Outlook Contacts database?
>
>Many tks
>Raymond Larche

Raymond,

Try this code:
Local myOLapp As Outlook.Application
Local myNamespace As Outlook.NameSpace
Local myContacts As Outlook.MAPIFolder
myOLapp = Createobject("Outlook.Application")
myNamespace = myOLapp.GetNamespace("MAPI")
Local prp As Outlook.ItemProperty
Local itm As Outlook.ContactItem

Local strFields As String, strTemp As String

myContacts = myNamespace.Folders("Personal Folders").Folders("Contacts")

itm = myContacts.Items.GetFirst
If Not Isnull(itm)
	For Each prp In itm.ItemProperties
		? prp.Name
		strTemp = prp.Name
		If strTemp <> "" Then
			strFields = strFields + strTemp + Chr(13) + Chr(10)
		Endif
		strTemp = ""
	Next


	strFields = Left(strFields, Len(strFields) - 1)

	_Cliptext = strFields
Endif
to get field names.

See also ROC - Raid Outlook Contacts Download #9587
If it's not broken, fix it until it is.


My Blog
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform