Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Appointment contacts
Message
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Environment versions
Visual FoxPro:
VFP 9 SP1
OS:
Windows XP SP2
Network:
Windows XP
Database:
Visual FoxPro
Miscellaneous
Thread ID:
01189052
Message ID:
01189119
Views:
16
>Hi
>
>How do I access/set the contacts field from an appointment object? Contacts and diary events are currently be synchronised but I have been trying to set the companies property to link to contact to the diary event. I have a feeling there is more to this possible the links? Any help is very much appreciated.

Paul,

untested but something like this...
#DEFINE olFolderCalendar 9
#DEFINE olFolderContacts 10

oOutlook = CREATEOBJECT('outlook.application')
oNameSpace = oOutlook.getnamespace('MAPI')
oDefaultContactFolder=oNameSpace.GetDefaultFolder(olFolderContacts)
oDiaryFolder=oNameSpace.GetDefaultFolder(olFolderCalendar)

oItems = oDiaryFolder.items
FOR EACH oItem IN oItems
	FOR EACH oLink IN oItem.links
		oLinkItem = oLink.ITEM && this is the contact item
	NEXT
NEXT

&& to add a contact
oLinkItem = oDefaultContactFolder.items.FIND('[Lastname]='+"Bloggs")
oItem.links.ADD(oLinkItem)
hth

Nigel
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform