Exchange 2000
at the moment,I have the follwing code, which will get me all of my contacts, but how
do i automatically get it for everyone in the company?
Public objRecipients As MAPI.Recipients
Public objSession As MAPI.Session
' MAPI session object
Public objInfoStore As MAPI.InfoStore ' Infostore object
Public objInbox As MAPI.Folder ' Folder object
Public objFolder As MAPI.Folder ' Folder object
Public objAddressLists As MAPI.AddressLists ' Address list collection
Public objAddressList As MAPI.AddressList ' Address list object
Public objAddressEntries As MAPI.AddressEntries ' Address entry collection
Public objAddressEntry As MAPI.AddressEntry ' Address entry object
Public objContactEntry As MAPI.AddressEntry ' Contact address entry
object ' Recipients collection
Public objRecipient As MAPI.Recipient ' Recipient object
Public objMessages As MAPI.Messages ' Message collection
Public objMessage As MAPI.Message ' Message object
Public objFields As MAPI.Fields ' Fields collection
Public objField As MAPI.Field ' Field object
Public Const CdoPR_DISPLAY_NAME = &H3001001F
Public Const CdoPR_ENTRYID = &HFFF0102
' Entry ID
Public Const CdoPR_STORE_ENTRYID = &HFFB0102
' Information store entry ID
Public Const CdoPR_CONTAINER_CLASS = &H3613001E
' Folder type
' Name MAPI property tags
Public Const CdoPR_TITLE = &H3A17001F
' Item.JobTitle
Public Const CdoPR_COMPANY_NAME = &H3A16001F
' Item.CompanyName
Public Const CdoPR_DISPLAY_NAME_PREFIX = &H3A45001E
' Item.Title
Public Const CdoPR_SURNAME = &H3A11001E
' Item.LastName
Public Const CdoPR_MIDDLE_NAME = &H3A44001F
' Item.MiddleName
Public Const CdoPR_GIVEN_NAME = &H3A06001F
' Item.FirstName
Public Const CdoPR_GENERATION = &H3A05001E
' Item.Suffix
Public Const CdoPR_BUSINESS_HOME_PAGE = &H3A51001F
' Item.BusinessHomePage
Public Const CdoPR_PERSONAL_HOME_PAGE = &H3A50001F
' Item.PersonalHomePage
Public Const CdoPR_FTP_SITE = &H3A4C001E
' Item.FTPSite
Public Const CdoPR_INITIALS = &H3A0A001E
' Item.Initials
' Non-documented name contact property tags
Public Const CdoContact_WebPage = "{0420060000000000C000000000000046}0x802B"
' Item.WebPage
Public Const CdoContact_FileUnder = "{0420060000000000C000000000000046}0x8005"
' Item.FileAs
Public Const CdoContact_CompanyAndFullName =
"{0420060000000000C000000000000046}0x8018" ' Item.CompanyAndFullName
Public Const CdoContact_CompanyLastFirstNoSpace =
"{0420060000000000C000000000000046}0x8032" ' Item.CompanyLastFirstNoSpace
Public Const CdoContact_CompanyLastFirstSpaceOnly =
"{0420060000000000C000000000000046}0x8033" ' Item.CompanyLastFirstSpaceOnly
Public Const CdoContact_FullNameAndCompany =
"{0420060000000000C000000000000046}0x8019" ' Item.FullNameAndCompany
Public Const CdoContact_LastFirstAndSuffix =
"{0420060000000000C000000000000046}0x8036" ' Item.LastFirstAndSuffix
Public Const CdoContact_LastFirstNoSpace = "{0420060000000000C000000000000046}0x8030"
' Item.LastFirstNoSpace
Public Const CdoContact_LastFirstNoSpaceCompany =
"{0420060000000000C000000000000046}0x8034" ' Item.LastFirstNoSpaceCompany
Public Const CdoContact_LastFirstSpaceOnly =
"{0420060000000000C000000000000046}0x8031" ' Item.LastFirstSpaceOnly
Public Const CdoContact_LastFirstSpaceOnlyCompany =
"{0420060000000000C000000000000046}0x8035" ' Item.LastFirstSpaceOnlyCompany
Public Const CdoContact_LastNameAndFirstName =
"{0420060000000000C000000000000046}0x8017" ' Item.LastNameandFirstName
' Non-documented e-mail contact property tags
Public Const CdoContact_EmailOriginalDisplayName =
"{0420060000000000C000000000000046}0x8084" ' Item.EMail1DisplayName
Public Const CdoContact_EmailEmailAddress = "{0420060000000000C000000000000046}0x8083"
' Item.EMail1Address
Public Const CdoContact_EmailAddrType = "{0420060000000000C000000000000046}0x8082"
' Item.EMail1AddressType
Public Const CdoContact_EmailOriginalEntryID =
"{0420060000000000C000000000000046}0x8085" ' Item.EMail1EntryID
Public Const CdoContact_Email2OriginalDisplayName =
"{0420060000000000C000000000000046}0x8094" ' Item.EMail2DisplayName
Public Const CdoContact_Email2EmailAddress =
"{0420060000000000C000000000000046}0x8093" ' Item.EMail2Address
Public Const CdoContact_Email2AddrType = "{0420060000000000C000000000000046}0x8092"
' Item.EMail2AddressType
Public Const CdoContact_Email2OriginalEntryID =
"{0420060000000000C000000000000046}0x8095" ' Item.EMail2EntryID
Public Const CdoContact_Email3OriginalDisplayName =
"{0420060000000000C000000000000046}0x80A4" ' Item.EMail3DisplayName
Public Const CdoContact_Email3EmailAddress =
"{0420060000000000C000000000000046}0x80A3" ' Item.EMail3Address
Public Const CdoContact_Email3AddrType = "{0420060000000000C000000000000046}0x80A2"
' Item.EMail3AddressType
Public Const CdoContact_Email3OriginalEntryID =
"{0420060000000000C000000000000046}0x80A5" ' Item.EMail3EntryID
' Note that the selected phone property is a multivalued property and needs special
handling
Public Const CdoContact_ItemData = "{0420060000000000C000000000000046}0x8007"
' Phone MAPI property tags
Public Const CdoPR_ASSISTANT_TELEPHONE_NUMBER = &H3A2E001F
' Item.AssistantTelephoneNumber
Public Const CdoPR_BUSINESS_TELEPHONE_NUMBER = &H3A08001F
' Item.BusinessTelephoneNumber
Public Const CdoPR_BUSINESS2_TELEPHONE_NUMBER = &H3A1B001F
' Item.Business2TelephoneNumber
Public Const CdoPR_BUSINESS_FAX_NUMBER = &H3A24001F
' Item.BusinessFaxNumber
Public Const CdoPR_CALLBACK_TELEPHONE_NUMBER = &H3A02001F
' Item.CallbackTelephoneNumber
Public Const CdoPR_CAR_TELEPHONE_NUMBER = &H3A1E001F
' Item.CarTelephoneNumber
Public Const CdoPR_COMPANY_MAIN_PHONE_NUMBER = &H3A57001F
' Item.CompanyMainTelephoneNumber
Public Const CdoPR_HOME_TELEPHONE_NUMBER = &H3A09001F
' Item.HomeTelephoneNumber
Public Const CdoPR_HOME2_TELEPHONE_NUMBER = &H3A2F001F
' Item.Home2TelephoneNumber
Public Const CdoPR_HOME_FAX_NUMBER = &H3A25001F
' Item.HomeFaxNumber
Public Const CdoPR_ISDN_NUMBER = &H3A2D001F
' Item.ISDNNumber
Public Const CdoPR_MOBILE_TELEPHONE_NUMBER = &H3A1C001F
' Item.MobileTelephoneNumber
Public Const CdoPR_OTHER_TELEPHONE_NUMBER = &H3A1F001F
' Item.OtherTelephoneNumber
Public Const CdoPR_PRIMARY_FAX_NUMBER = &H3A23001F
' Item.OtherFaxNumber
Public Const CdoPR_PAGER_TELEPHONE_NUMBER = &H3A21001F
' Item.PagerNumber
Public Const CdoPR_PRIMARY_TELEPHONE_NUMBER = &H3A1A001F
' Item.PrimaryTelephoneNumber
Public Const CdoPR_RADIO_TELEPHONE_NUMBER = &H3A1D001F
' Item.RadioTelephoneNumber
Public Const CdoPR_TELEX_NUMBER = &H3A2C001F
' Item.TelexNumber
Public Const CdoPR_TTYTDD_PHONE_NUMBER = &H3A4B001F
' Item.TTYTDDTelephoneNumber
' Address MAPI property tags
Public Const CdoPR_POSTAL_ADDRESS = &H3A15001F
' Item.PostalAddress
Public Const CdoPR_HOME_ADDRESS_CITY = &H3A59001E
' Item.HomeAddressCity
Public Const CdoPR_HOME_ADDRESS_STREET = &H3A5D001E
' Item.HomeAddressStreet
Public Const CdoPR_HOME_ADDRESS_STATE_OR_PROVINCE = &H3A5C001E
' Item.HomeAddressState
Public Const CdoPR_HOME_ADDRESS_COUNTRY = &H3A5A001E
' Item.HomeAddressCountry
Public Const CdoPR_HOME_ADDRESS_POST_OFFICE_BOX = &H3A5E001E
' Item.HomeAddressPostOfficeBox
Public Const CdoPR_HOME_ADDRESS_POSTAL_CODE = &H3A5B001E
' Item.HomeAddressPostalCode
Public Const CdoPR_OTHER_ADDRESS_CITY = &H3A5F001E
' Item.OtherAddressCity
Public Const CdoPR_OTHER_ADDRESS_STREET = &H3A63001E
' Item.OtherAddressStreet
Public Const CdoPR_OTHER_ADDRESS_STATE_OR_PROVINCE = &H3A62001E
' Item.OtherAddressState
Public Const CdoPR_OTHER_ADDRESS_COUNTRY = &H3A60001E
' Item.OtherAddressCountry
Public Const CdoPR_OTHER_ADDRESS_POSTAL_CODE = &H3A61001E
' Item.OtherAddressPostalCode
Public Const CdoPR_OTHER_ADDRESS_POST_OFFICE_BOX = &H3A64001E
' Item.OtherAddressPostOfficeBox
' Non-documented address contact property tags
Public Const CdoContact_HomeAddress = "{0420060000000000C000000000000046}0x801A"
' Item.HomeAddress
Public Const CdoContact_BusinessAddress = "{0420060000000000C000000000000046}0x801B"
' Item.BusinessAddress
Public Const CdoContact_OtherAddress = "{0420060000000000C000000000000046}0x801C"
' Item.OtherAddress
Public Const CdoContact_BusinessAddressCity =
"{0420060000000000C000000000000046}0x8046" ' Item.BusinessAddressCity
Public Const CdoContact_BusinessAddressStreet =
"{0420060000000000C000000000000046}0x8045" ' Item.BusinessAddressStreet
Public Const CdoContact_BusinessAddressState =
"{0420060000000000C000000000000046}0x8047" ' Item.BusinessAddressState
Public Const CdoContact_BusinessAddressCountry =
"{0420060000000000C000000000000046}0x8049" ' Item.BusinessAddressCountry
Public Const CdoContact_BusinessAddressPostalCode =
"{0420060000000000C000000000000046}0x8048" ' Item.BusinessAddressPostalCode
Public Const CdoContact_BusinessAddressPostOfficeBox =
"{0420060000000000C000000000000046}0x804A" ' Item.BusinessAddressPostOfficeBox
' Misc MAPI property tags
Public Const CdoPR_DEPARTMENT_NAME = &H3A18001F
' Item.Department
Public Const CdoPR_MANAGER_NAME = &H3A4E001F
' Item.ManagerName
Public Const CdoPR_OFFICE_LOCATION = &H3A19001F
' Item.Location
Public Const CdoPR_ASSISTANT = &H3A30001F
' Item.AssistantName
Public Const CdoPR_PROFESSION = &H3A46001F
' Item.Profession
Public Const CdoPR_NICKNAME = &H3A4F001F
' Item.NickName
Public Const CdoPR_BIRTHDAY = &H3A420040
' Item.Birthday
Public Const CdoPR_SPOUSE_NAME = &H3A48001F
' Item.SpouseName
Public Const CdoPR_WEDDING_ANNIVERSARY = &H3A410040
' Item.Anniversary
Public Const CdoPR_ACCOUNT = &H3A00001E
' Item.Account
Public Const CdoPR_COMPUTER_NETWORK_NAME = &H3A49001E
' Item.ComputerNetworkName
Public Const CdoPR_CHILDRENS_NAMES = &H3A58101E
' Item.Children
Public Const CdoPR_CUSTOMER_ID = &H3A4A001E
' Item.CustomerID
Public Const CdoPR_GENDER = &H3A4D0002
' Item.Gender
Public Const CdoPR_GOVERNMENT_ID_NUMBER = &H3A07001E
' Item.GovernmentIDNumber
Public Const CdoPR_HOBBIES = &H3A43001E
' Item.Hobby
Public Const CdoPR_LANGUAGE = &H3A0C001E
' Item.Language
Public Const CdoPR_LOCATION = &H3A0D001E
' Item.OfficeLocation
Public Const CdoPR_ORGANIZATIONAL_ID_NUMBER = &H3A10001E
' Item.OrganizationalIDNumber
Public Const CdoPR_REFERRED_BY_NAME = &H3A47001E
' Item.ReferredBy
' Non-documented misc. contact property tags
Public Const CdoContact_SelectedAddress = "{0420060000000000C000000000000046}0x8022"
Public Const CdoContact_BillingInformation =
"{0820060000000000C000000000000046}0x8535" ' Item.BillingInformation
Public Const CdoContact_InternetFreeBusyAddress =
"{0420060000000000C000000000000046}0x80D8" ' Item.InternetFreeBusyAddress
Public Const CdoContact_Mileage = "{0820060000000000C000000000000046}0x8534"
' Item.Milage
Public Const CdoContact_UserField1 = "{0420060000000000C000000000000046}0x804F"
' Item.UserField1
Public Const CdoContact_UserField2 = "{0420060000000000C000000000000046}0x8050"
' Item.UserField2
Public Const CdoContact_UserField3 = "{0420060000000000C000000000000046}0x8051"
' Item.UserField3
Public Const CdoContact_UserField4 = "{0420060000000000C000000000000046}0x8052"
' Item.UserField4
Public Const CdoContact_Private = "{0820060000000000C000000000000046}0x8506"
Public Const CdoContact_LinkNames = "{0820060000000000C000000000000046}0x8586"
'STRING VALUES
Public strAddressListDN As String
Public strFullName As String
Public strFirstName As String
Public strLastName As String
Public strMiddleName As String
Public strTitle As String
Public strSuffix As String
Public strJobTitle As String
Public strCompany As String
Public strFileAs As String
Public strAssistantPhone As String
Public strBusinessPhone As String
Public strBusiness2Phone As String
Public strBusinessFax As String
Public strCallbackPhone As String
Public strCarPhone As String
Public strCompanyPhone As String
Public strHomePhone As String
Public strHome2Phone As String
Public strHomeFax As String
Public strISDNPhone As String
Public strMobilePhone As String
Public strOtherPhone As String
Public strOtherFax As String
Public strPager As String
Public strPrimary As String
Public strRadio As String
Public strTelex As String
Public strTTYTDD As String
Public strPostalAddress As String
Public strBusinessAddress As String
Public strBusinessAddressStreet As String
Public strBusinessAddressCity As String
Public strBusinessAddressState As String
Public strBusinessAddressPostalCode As String
Public strBusinessAddressCountry As String
Public strHomeAddress As String
Public strHomeAddressStreet As String
Public strHomeAddressCity As String
Public strHomeAddressState As String
Public strHomeAddressPostalCode As String
Public strHomeAddressCountry As String
Public strOtherAddress As String
Public strOtherAddressStreet As String
Public strOtherAddressCity As String
Public strOtherAddressState As String
Public strOtherAddressPostalCode As String
Public strOtherAddressCountry As String
Public strEMail1DisplayName As String
Public strEMail1Address As String
Public strEMail1AddressType As String
Public strEMail1EntryID As String
Public strEMail2DisplayName As String
Public strEMail2Address As String
Public strEMail2AddressType As String
Public strEMail2EntryID As String
Public strEMail3DisplayName As String
Public strEMail3Address As String
Public strEMail3AddressType As String
Public strEMail3EntryID As String
Public strWebPage As String
Public strDepartment As String
Public strLinkNames As String
Public strOffice As String
Public strProfession As String
Public strManager As String
Public strAssistant As String
Public strNickName As String
Public datBirthday As Date
Public datAnniversary As Date
Public strNetMeetingServer As String
Public strNetMeetingAlias As String
Public intPhoneSelector As Integer
Public varNetMeeting As Variant
Public varPhoneSelection() As Variant
Public varCategories() As Variant
Sub Retrieve_Contacts()
Set ol = New Outlook.Application
Set olns = ol.GetNamespace("MAPI")
On Error GoTo error
Dim intContactItems As Integer
Dim i As Integer
Dim strmessageid As String
Dim strContactname As String
Dim strWebPage As String
Set mailbox = olns.CreateRecipient("sammy rashid")
mailbox.Resolve
If mailbox.Resolved Then
Set employeefolder = olns.GetSharedDefaultFolder(mailbox, olFolderContacts)
End If
intContactItems = employeefolder.Items.Count
'Set myitems = Employeefolder.Items
'Employeefolder.Display
Debug.Print myRecipient
For i = 1 To intContactItems
Debug.Print employeefolder.Items(i).FullName
Debug.Print employeefolder.Items(i).CompanyName
Debug.Print employeefolder.Items(i).WebPage
strWebPage = employeefolder.Items(i).FullName
Next
retrieve_contacts_alldone:
Exit Sub
error:
MsgBox Err.Description
End Sub
-----Original Message-----
From: Tony Hlabse [mailto:[EMAIL PROTECTED]]
Sent: 02 July 2002 14:37
To: Exchange Discussions
Subject: Re: VB - Retrieving contacts from Exchange Server
Which version of Exchange?
----- Original Message -----
From: "sammy rashid" <[EMAIL PROTECTED]>
To: "Exchange Discussions" <[EMAIL PROTECTED]>
Sent: Tuesday, July 02, 2002 5:12 AM
Subject: VB - Retrieving contacts from Exchange Server
> I want to ue VB to retrieve retrieve all contacts from everybodys
> mailboxes in the organisation and then put those into a SQL Server
> database. Any ideas?
>
> _________________________________________________________________
> 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]
