Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to update Outlook 98 Contacts in Public Folders
Message
From
29/08/2001 00:43:45
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Title:
How to update Outlook 98 Contacts in Public Folders
Miscellaneous
Thread ID:
00550152
Message ID:
00550152
Views:
51
I know how to access the Outlook Contacts list but i don't know how to
update info in it.

For expl:

loOutlook = CREATEOBJECT('Outlook.Application')
loNameSpace = loOutlook.GetNameSpace('MAPI')
loContacts = loNameSpace.folders('Public Folders').folders('All Public
Folders').folders('Pacom-Bell Contacts')

wait window 'Found ' + allt(str(loContacts.items.COUNT)) + ' contacts in
'+loContacts.NAME + ' folder ' timeout 2
ContactsMob = 0
nUpdated = 0
FOR j = 1 TO loContacts.items.COUNT
IF !EMPTY(loContacts.items.ITEM[j].MobileTelephoneNumber)
if loContacts.items.ITEM[j].MobileTelephoneNumber = '0011 '
lcMobileNo = STRTRAN(loContacts.items.ITEM[j].MobileTelephoneNumber,'0011
', '+')
loContacts.items.ITEM[j].MobileTelephoneNumber = lcMobileNo
loContacts.items.ITEM[j].save
nUpdated = nUpdated + 1
wait window 'Total contacts with Mobile No.s with 0011 replaced with + is
' + allt(str(nUpdated)) + ' in '+loContacts.NAME + ' folder ' nowait
exit
endif


oBject.Save or oBject.Update dosn't work .

I want to update field MobileTelephoneNumber and some other fields.

I made sure that have read/write access to this folder by network admin.

Can somebody help?

Thanks

Regards

Dejan
Next
Reply
Map
View

Click here to load this message in the networking platform