John,
Okayyy.. Scratch one lunch obligation...
<g>
I have to admit that not giving an answer is a little less than what one would expect.
Best,
DD
>>>Sooo... Does this mean we have to buy your next book or lunch or something?
>
>No... In fact, often has been the case where I have lifted code out of the book and have posted it up here. I dunno...seems like the right thing to do. Then again, I am just evil person who is always at odds with public opinion..< bg >
>
>>John,
>>
>>Sooo... Does this mean we have to buy your next book or lunch or something?
>>
>>I dunno about this business of just helping a fellow developer out. Something fishy here... <g>
>>
>>Best,
>>
>>DD
>>
>>PS - Thanks John..
>>
>>>Or, they can go to my website and get the same info for free...< bg >....
>>>
>>>Hawk your book if want to.. However, I think the right thing to do is directly answer the question as opposed to just just pushing folks off to buy your book..< s >
>>>
>>>For the benefit of those lurking, here is code that adds Outlook Contacts to a VFP cursor. For brevity, I only included 2 fields. I have a complete set of classlibraries that encapsulates this process. If you want them, just send me an email. I will also upload them here and will post a link to my web site.
>>>
>>>Sorry folks, I have a problem with folks who could, or at least should be able to answer a question without forcing somebody to buy one's book...< s >.. Don't get me wrong... I encourage folks to purchase the books they believe they need to do their jobs. However, when somebody steers you to a website to buy their book as opposed to answering the question, this IMO, goes over the line. This is after all, a VOLUNTEER SUPPORT FORUM.
>>>
>>>Again, this and many more samples like it are available for free on my web site.
>>>
>>>
>>>
>>>
>>>#Define olFolderContacts 10
>>>oOutlook = createobject("outlook.application")
>>>oNameSpace = oOutlook.GetNameSpace("MAPI")
>>>oContacts = oNameSpace.GetDefaultFolder(olFolderContacts).Items
>>>count = 0
>>>create cursor contacts ;
>>> (fullname c(50),email1address c(50))
>>>For Each Contact In oContacts
>>> m.fullname = contact.fullname
>>> m.email1address = contact.email1address
>>> Insert Into Contacts From Memvar
>>>Next Contact
>>>
>>>
>>>
>>>
>>>>>
>>>In addition, you can write code that reads the Outlook address book. The new book that Della Martin and I have coming out this month (Microsoft Office Automation with Visual FoxPro) includes an example that reads the Contacts folder from Outlook and creates a VFP cursor. You can check the book out at
www.hentzenwerke.com. (PUTM members also get a discount. Go through the link on the main UT page.)
>>><<
Best,
DD
A man is no fool who gives up that which he cannot keep for that which he cannot lose.
Everything I don't understand must be easy!
The difficulty of any task is measured by the capacity of the agent performing the work.