Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Outlook phone book
Message
From
22/11/2006 12:21:09
 
 
To
22/11/2006 11:19:27
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01171640
Message ID:
01171843
Views:
15
Thanks. I will read up on it.

>It's what MS calls security.
>There is a product called 'Redemtion' which get you around it...
>
>
>Peter
>
>>I like this approach. But, I receive a dialog tell me that an attempt to access outlook is being done, and if I wish to allow it to occur. Do you know any way around this dialog? (it coming from Outlook 2003, and not my anti-virus application).
>>
>>>would this do? you wil have to modify the code slightly
>>>
>>>CREATE CURSOR emaillist ;
>>> (Firstname C(30), Lastname C(30), email C(30))
>>>
>>>
>>>#define olFolderContacts 10
>>>
>>>outlook = CreateObject("Outlook.Application")
>>>namesp = outlook.GetNamespace("MAPI")
>>>folder = namesp.GetDefaultFolder(olFolderContacts)
>>>contacts = folder.Items
>>>cnt = contacts.Count
>>>
>>>SELECT 0
>>>SELECT emaillist
>>>
>>>For i = 1 To cnt
>>>	contact = contacts.Item(i)
>>>	
>>>	IF contact->FirstName = ' ' OR contact->LastName = ' ' OR contact->Email1Address = ' '
>>>		* do nothing
>>>	ELSE
>>>		APPEND BLANK
>>>		REPLACE Firstname WITH contact->FirstName
>>>		REPLACE Lastname WITH contact->LastName
>>>		REPLACE email WITH contact->Email1Address
>>>	ENDIF
>>>	****? contact->FirstName, contact->LastName, contact->Email1Address
>>>Next i
>>>
>>>BROWSE TITLE 'Contact list'
>>>outlook.Quit()
>>>
>>>~M
>>>
>>>>How can I call the outlook phonebook and get the email address ?
>>>>thanks a lot
Greg Reichert
Previous
Reply
Map
View

Click here to load this message in the networking platform