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]
