|
| If this is your first visit, be sure to check out the FAQ by clicking the link above. You may have to register before you can post: click the register link above to proceed. To start viewing messages, select the forum that you want to visit from the selection below. |
|
|||||||
|
|
Thread Tools | Search this Thread | Display Modes |
|
#1
June 12th 09, 04:14 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
How to replace getcontactsfolder (ol2007) in Outlook 2003
Hi,
I use the getcontactsfolder in my code. but it don't work in ol2003 How I can replace it ? ' Create an Outlook application. Dim oApp 'As Outlook.Application Set oApp = CreateObject("Outlook.Application") ' Get the MAPI namespace. Dim oNS 'As Outlook.NameSpace Set oNS = oApp.Session ' Get the AddressLists collection. Dim oALs 'As Outlook.AddressLists Set oALs = oNS.AddressLists ' Loop through the AddressLists collection. Dim i 'As Integer Dim reponse Dim oAL 'As Outlook.AddressList Dim oAF For i = 1 To oALs.Count Set oAL = oALs.Item(i) ' oAl.GetContactsFolder is not available in ol2003 Set oAF = oAL.GetContactsFolder oAF.ShowAsOutlookAB=False Next Thanks for your help 
|
| Ads |
|
#2
June 12th 09, 06:34 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
How to replace getcontactsfolder (ol2007) in Outlook 2003
You have to use hacks such as getting a few AddressEntry objects from that
list and iterating all the contacts folders until you find one that has those AddressEntry objects as matching ContactItem objects. -- Ken Slovak [MVP - Outlook] http://www.slovaktech.com Author: Professional Programming Outlook 2007. Reminder Manager, Extended Reminders, Attachment Options. http://www.slovaktech.com/products.htm "Anthony_fr" wrote in message ... Hi, I use the getcontactsfolder in my code. but it don't work in ol2003 How I can replace it ? ' Create an Outlook application. Dim oApp 'As Outlook.Application Set oApp = CreateObject("Outlook.Application") ' Get the MAPI namespace. Dim oNS 'As Outlook.NameSpace Set oNS = oApp.Session ' Get the AddressLists collection. Dim oALs 'As Outlook.AddressLists Set oALs = oNS.AddressLists ' Loop through the AddressLists collection. Dim i 'As Integer Dim reponse Dim oAL 'As Outlook.AddressList Dim oAF For i = 1 To oALs.Count Set oAL = oALs.Item(i) ' oAl.GetContactsFolder is not available in ol2003 Set oAF = oAL.GetContactsFolder oAF.ShowAsOutlookAB=False Next Thanks for your help
|
|
#3
June 14th 09, 09:22 PM
posted to microsoft.public.outlook.program_vba
|
|||
|
|||
|
How to replace getcontactsfolder (ol2007) in Outlook 2003
plug In Redemption RDOAddressList.GetContactsFolder works in any version
of Outlook - http://www.dimastr.com/redemption/rd...ddressList.htm /plug -- Dmitry Streblechenko (MVP) http://www.dimastr.com/ OutlookSpy - Outlook, CDO and MAPI Developer Tool - "Anthony_fr" wrote in message ... Hi, I use the getcontactsfolder in my code. but it don't work in ol2003 How I can replace it ? ' Create an Outlook application. Dim oApp 'As Outlook.Application Set oApp = CreateObject("Outlook.Application") ' Get the MAPI namespace. Dim oNS 'As Outlook.NameSpace Set oNS = oApp.Session ' Get the AddressLists collection. Dim oALs 'As Outlook.AddressLists Set oALs = oNS.AddressLists ' Loop through the AddressLists collection. Dim i 'As Integer Dim reponse Dim oAL 'As Outlook.AddressList Dim oAF For i = 1 To oALs.Count Set oAL = oALs.Item(i) ' oAl.GetContactsFolder is not available in ol2003 Set oAF = oAL.GetContactsFolder oAF.ShowAsOutlookAB=False Next Thanks for your help
|
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| Outlook 2007 and Exchange Server 2003 - No end dates in OL2007 | Stephen White | Outlook - Calandaring | 1 | August 11th 08 10:00 PM |
| find-replace in Outlook contacts? | glassofpinot | Outlook - Using Contacts | 1 | April 17th 08 06:43 AM |
| Search and replace in Outlook fields | Anne | Outlook - Using Contacts | 1 | October 5th 07 02:10 PM |
| Install Outlook 2007 to replace 2003 | fjs001 | Outlook - Installation | 3 | September 10th 07 04:03 PM |
| How can I do a global find & replace in Outlook? | JMDouble | Outlook - Using Contacts | 3 | November 1st 06 02:13 PM |
Linear Mode
