Hello, I don't know but try these groups I use them when developing in Outlook. http://groups.yahoo.com/group/outlook-dev http://groups.yahoo.com/group/mscollaboration
and these website http://www.slipstick.com http://www.cdolive.com/start.htm Thanks, Toby "If you can put it on a T-shirt, it's speech." -Carnegie Mellon Professor David Touretzky -----Original Message----- From: Sammy Rashid [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 17, 2002 9:31 AM To: Exchange Discussions Subject: RE: Contact item or distribution list / running from another account Thanks for your help.... At the moment, my code retrieves all contacts for all users in the GAL. But, as it runs from my machine, whetehr i set contacts as private or not, it retrives all of my contacts. How can i set it to run as another profile, so as not to run from my account Set objSession = CreateObject("MAPI.session") Dim EmployeeFolder As Object Dim ol As New outlook.Application Dim iGalCount As Integer Set olns = ol.GetNamespace("MAPI") Set olgal = olns.AddressLists("Global Address List") Set contact = New clsContact Set ContactDB = New clsContactDB 'objSession.Logon -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: 17 July 2002 13:24 To: Exchange Discussions Subject: RE: Contact item or distribution list Wow only 7 Out of Office Replies for this message. Thanks, Toby The problem with the gene pool is that there is no lifeguard. -----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]] Sent: Wednesday, July 17, 2002 8:17 AM To: Exchange Discussions Subject: RE: Contact item or distribution list check the messageclass of the item. objcontactitem(i).MessageClass should be either "IPM.Contact" or "IPM.DistList" Thanks, Toby And the donkeys frolicked with the waffles, joyously. -----Original Message----- From: Sammy Rashid [mailto:[EMAIL PROTECTED]] Sent: Tuesday, July 16, 2002 11:49 AM To: Exchange Discussions Subject: RE: Contact item or distribution list yes programatically...at the moment i have the following code which works to pull all contact info out, but i want to do a check if the contact item is a distribution list Dim intContactItems As Integer Dim i As Integer On Error GoTo ReadFolder_err intContactItems = EmployeeFolder.Items.Count Set objcontactitem = EmployeeFolder.Items For i = 1 To intContactItems With objcontactitem(i) 'Code errors for Paul B's PBTeam dist list- even though marked private!!! If objcontactitem(i) = "PBTeam" Then GoTo NextContactitem End If 'If (DateDiff("d", .LastModificationTime, Now) < 7) Then 'Name details contact.FullName = .FullName contact.Title = .Title contact.FirstName = .FirstName contact.MiddleName = .MiddleName contact.LastName = .LastName contact.Suffix = .Suffix 'FileAs contact.FileAs = .FileAs 'Business Details contact.JobTitle = .JobTitle contact.Company = .CompanyName 'Telephone/contact information contact.MobilePhone = .MobileTelephoneNumber contact.BusinessPhone = .BusinessTelephoneNumber contact.AssistantPhone = .AssistantTelephoneNumber contact.Business2Phone = .Business2TelephoneNumber contact.BusinessFax = .BusinessFaxNumber 'Business Address contact.BusinessAddressStreet = .BusinessAddressStreet contact.BusinessAddressCity = .BusinessAddressCity contact.BusinessAddressState = .BusinessAddressState contact.BusinessAddressCountry = .BusinessAddressCountry contact.BusinessAddressPostalCode = .BusinessAddressPostalCode 'Email addresses contact.Email1Address = .Email1Address 'WebPage contact.WebPage = .WebPage contact.LastModDate = .LastModificationTime contact.Mailbox = Mailbox 'End If -----Original Message----- From: Chris Scharff [mailto:[EMAIL PROTECTED]] Sent: 16 July 2002 16:47 To: Exchange Discussions Subject: RE: Contact item or distribution list Programmatically or? > -----Original Message----- > From: Sammy Rashid [mailto:[EMAIL PROTECTED]] > Sent: Tuesday, July 16, 2002 10:36 AM > To: Exchange Discussions > Subject: Contact item or distribution list > > How do you check if a contact item is a distribution list or a standard > contact? com _________________________________________________________________ List posting FAQ: http://www.swinc.com/resource/exch_faq.htm Archives: http://www.swynk.com/sitesearch/search.asp To unsubscribe: mailto:[EMAIL PROTECTED] Exchange List admin: [EMAIL PROTECTED] _________________________________________________________________ List posting FAQ: http://www.swinc.com/resource/exch_faq.htm Archives: http://www.swynk.com/sitesearch/search.asp To unsubscribe: mailto:[EMAIL PROTECTED] Exchange List admin: [EMAIL PROTECTED] _________________________________________________________________ List posting FAQ: http://www.swinc.com/resource/exch_faq.htm Archives: http://www.swynk.com/sitesearch/search.asp To unsubscribe: mailto:[EMAIL PROTECTED] Exchange List admin: [EMAIL PROTECTED] _________________________________________________________________ List posting FAQ: http://www.swinc.com/resource/exch_faq.htm Archives: http://www.swynk.com/sitesearch/search.asp To unsubscribe: mailto:[EMAIL PROTECTED] Exchange List admin: [EMAIL PROTECTED] _________________________________________________________________ List posting FAQ: http://www.swinc.com/resource/exch_faq.htm Archives: http://www.swynk.com/sitesearch/search.asp To unsubscribe: mailto:[EMAIL PROTECTED] Exchange List admin: [EMAIL PROTECTED] _________________________________________________________________ List posting FAQ: http://www.swinc.com/resource/exch_faq.htm Archives: http://www.swynk.com/sitesearch/search.asp To unsubscribe: mailto:[EMAIL PROTECTED] Exchange List admin: [EMAIL PROTECTED]