Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Outlook phone book
Message
 
To
22/11/2006 10:36:33
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
01171640
Message ID:
01172047
Views:
12
Greg,
this "security" came in with the xp version i think, it wasn't there on 2000 anyway. It is very annoying and i dont't think that there is a way around it.
~M

>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
Go raibh maith agat

~M
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform