RE: VB - Retrieving contacts from Exchange Server
strPager = .PagerNumber strPrimary = .PrimaryTelephoneNumber strRadio = .RadioTelephoneNumber strTelex = .TelexNumber strTTYTDD = .TTYTDDTelephoneNumber 'Business Address strBusinessAddress = .BusinessAddress strBusinessAddressStreet = .BusinessAddressStreet strBusinessAddressCity = .BusinessAddressCity strBusinessAddressState = .BusinessAddressState strBusinessAddressCountry = .BusinessAddressCountry strBusinessAddressPostalCode = .BusinessAddressPostalCode 'Home Address strHomeAddress = .HomeAddress strHomeAddressStreet = .HomeAddressStreet strHomeAddressCity = .HomeAddressCity strHomeAddressState = .HomeAddressState strHomeAddressPostalCode = .HomeAddressPostalCode strHomeAddressCountry = .HomeAddressCountry 'Other Address strOtherAddress = .OtherAddress strOtherAddressStreet = .OtherAddressStreet strOtherAddressCity = .OtherAddressCity strOtherAddressState = .OtherAddressState strOtherAddressPostalCode = .OtherAddressPostalCode strOtherAddressCountry = .OtherAddressCountry 'Email addresses strEMail1Address = .Email1Address strEMail2Address = .Email2Address strEMail3Address = .Email3Address 'WebPage strWebPage = .WebPage strLastModDate = .LastModificationTime chkIsMailingAddress = .MailingAddress Debug.Print .MailingAddress End If End With Next Next retrieve_contacts_alldone: Exit Sub error: MsgBox Err.Description End Sub -Original Message- From: Jon Hill [mailto:[EMAIL PROTECTED]] Sent: 02 July 2002 17:01 To: Exchange Discussions Subject: RE: VB - Retrieving contacts from Exchange Server Your code used the Outlook Object Model, so the following code should work: Set olNS = ol.GetNamespace(MAPI) Set olGAL = olNS.AddressLists(Global Address List) For Each olThisBox In olGAL.AddressEntries If olThisBox.DisplayType = olUser Then Set mailbox = olNS.CreateRecipient(outThisBox.Name) ...insert code here... End If Next It would probably run faster if you used the CDO model. The following might get you started: Sub FindMessageCDO() 'find all messages whose subject contains a particular line of text Dim strProfileInfo As String Dim cdoSession As New MAPI.Session Dim cdoGAL As MAPI.AddressList Dim cdoMailboxes As MAPI.AddressEntries Dim cdoThisBox As MAPI.AddressEntry Dim cdoInbox As MAPI.Folder Dim cdoInboxMsgs As MAPI.Messages Dim cdoInboxFilter As MAPI.MessageFilter Dim cdoThisMsg As MAPI.Message Dim cdoOtherSession As MAPI.Session Dim iBadMsgCount As Integer Dim dtmStart As Date Const strSUBJ = Homepage strExchServer=MyMailServer strMailbox = MyMailbox strProfileInfo = strExchServer + vbLf + strMailbox Set cdoGAL = cdoSession.AddressLists(Global Address List) For Each cdoThisBox In cdoGAL.AddressEntries With cdoThisBox If .DisplayType = olUser Then iBadMsgCount = 0 Set cdoOtherSession = Application.CreateObject(Mapi.Session) strProfileInfo = strExchServer + vbLf + .Address cdoOtherSession.Logon , , False, True, 0, True, strProfileInfo On Error Resume Next Set cdoInbox = cdoOtherSession.Inbox If Err = 0 Then On Error GoTo 0 Set cdoInboxMsgs = cdoOtherSession.Inbox.Messages ...insert code here... Set cdoInboxMsgs = Nothing End If End If End With Next End Sub _ 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]
RE: VB - Retrieving contacts from Exchange Server
sorry, justrealised a silly mistake!!! -Original Message- From: Jon Hill [mailto:[EMAIL PROTECTED]] Sent: 02 July 2002 17:01 To: Exchange Discussions Subject: RE: VB - Retrieving contacts from Exchange Server Your code used the Outlook Object Model, so the following code should work: Set olNS = ol.GetNamespace(MAPI) Set olGAL = olNS.AddressLists(Global Address List) For Each olThisBox In olGAL.AddressEntries If olThisBox.DisplayType = olUser Then Set mailbox = olNS.CreateRecipient(outThisBox.Name) ...insert code here... End If Next It would probably run faster if you used the CDO model. The following might get you started: Sub FindMessageCDO() 'find all messages whose subject contains a particular line of text Dim strProfileInfo As String Dim cdoSession As New MAPI.Session Dim cdoGAL As MAPI.AddressList Dim cdoMailboxes As MAPI.AddressEntries Dim cdoThisBox As MAPI.AddressEntry Dim cdoInbox As MAPI.Folder Dim cdoInboxMsgs As MAPI.Messages Dim cdoInboxFilter As MAPI.MessageFilter Dim cdoThisMsg As MAPI.Message Dim cdoOtherSession As MAPI.Session Dim iBadMsgCount As Integer Dim dtmStart As Date Const strSUBJ = Homepage strExchServer=MyMailServer strMailbox = MyMailbox strProfileInfo = strExchServer + vbLf + strMailbox Set cdoGAL = cdoSession.AddressLists(Global Address List) For Each cdoThisBox In cdoGAL.AddressEntries With cdoThisBox If .DisplayType = olUser Then iBadMsgCount = 0 Set cdoOtherSession = Application.CreateObject(Mapi.Session) strProfileInfo = strExchServer + vbLf + .Address cdoOtherSession.Logon , , False, True, 0, True, strProfileInfo On Error Resume Next Set cdoInbox = cdoOtherSession.Inbox If Err = 0 Then On Error GoTo 0 Set cdoInboxMsgs = cdoOtherSession.Inbox.Messages ...insert code here... Set cdoInboxMsgs = Nothing End If End If End With Next End Sub _ 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]
RE: VB - Retrieving contacts from Exchange Server
I'm interested, what was the mistake and your fix for this.
dot
-Original Message-
From: Sammy Rashid [SMTP:[EMAIL PROTECTED]]
Sent: Wednesday, July 03, 2002 5:17 AM
To: Exchange Discussions
Subject: RE: VB - Retrieving contacts from Exchange Server
I am trying to use the code you sent and it seems to fail on the line :
Set olGAL = olNS.AddressLists(Global Address List)
Here is my code, please advise me on what I am doing wrong:
Public objRecipients As MAPI.Recipients
Public olGal As Object
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 =
{04200600C046}0x802B '
Item.WebPage
Public Const CdoContact_FileUnder =
{04200600C046}0x8005'
Item.FileAs
Public Const CdoContact_CompanyAndFullName =
{04200600C046}0x8018 '
Item.CompanyAndFullName
Public Const CdoContact_CompanyLastFirstNoSpace =
{04200600C046}0x8032 '
Item.CompanyLastFirstNoSpace
Public Const CdoContact_CompanyLastFirstSpaceOnly =
{04200600C046}0x8033'
Item.CompanyLastFirstSpaceOnly
Public Const CdoContact_FullNameAndCompany =
{04200600C046}0x8019 '
Item.FullNameAndCompany
Public Const CdoContact_LastFirstAndSuffix =
{04200600C046}0x8036 '
Item.LastFirstAndSuffix
Public Const CdoContact_LastFirstNoSpace =
{04200600C046}0x8030 '
Item.LastFirstNoSpace
Public Const CdoContact_LastFirstNoSpaceCompany =
{04200600C046}0x8034 '
Item.LastFirstNoSpaceCompany
Public Const CdoContact_LastFirstSpaceOnly =
{04200600C046}0x8031 '
Item.LastFirstSpaceOnly
Public Const CdoContact_LastFirstSpaceOnlyCompany =
{04200600C046}0x8035'
Item.LastFirstSpaceOnlyCompany
Public Const CdoContact_LastNameAndFirstName =
{04200600C046}0x8017 '
Item.LastNameandFirstName
' Non-documented e-mail contact property tags
Public Const CdoContact_EmailOriginalDisplayName =
{04200600C046}0x8084 '
Item.EMail1DisplayName
Public Const CdoContact_EmailEmailAddress =
{04200600C046}0x8083'
Item.EMail1Address
Public Const CdoContact_EmailAddrType =
{04200600C046}0x8082'
Item.EMail1AddressType
Public Const CdoContact_EmailOriginalEntryID =
{04200600C046}0x8085 '
Item.EMail1EntryID
Public Const CdoContact_Email2OriginalDisplayName =
{04200600C046}0x8094' Item.EMail2DisplayName
Public Const
RE: VB - Retrieving contacts from Exchange Server
simple spelling mistake in the line:
Set olGal = olns.AddressLists(Gloabal Address List)
(Global)...
anyone have any ideas about my last problem? how to check if a folder is shared?
-Original Message-
From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED]]
Sent: 03 July 2002 12:12
To: Exchange Discussions
Subject: RE: VB - Retrieving contacts from Exchange Server
I'm interested, what was the mistake and your fix for this.
dot
-Original Message-
From: Sammy Rashid [SMTP:[EMAIL PROTECTED]]
Sent: Wednesday, July 03, 2002 5:17 AM
To: Exchange Discussions
Subject: RE: VB - Retrieving contacts from Exchange Server
I am trying to use the code you sent and it seems to fail on the line :
Set olGAL = olNS.AddressLists(Global Address List)
Here is my code, please advise me on what I am doing wrong:
Public objRecipients As MAPI.Recipients
Public olGal As Object
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 =
{04200600C046}0x802B '
Item.WebPage
Public Const CdoContact_FileUnder =
{04200600C046}0x8005'
Item.FileAs
Public Const CdoContact_CompanyAndFullName =
{04200600C046}0x8018 '
Item.CompanyAndFullName
Public Const CdoContact_CompanyLastFirstNoSpace =
{04200600C046}0x8032 '
Item.CompanyLastFirstNoSpace
Public Const CdoContact_CompanyLastFirstSpaceOnly =
{04200600C046}0x8033'
Item.CompanyLastFirstSpaceOnly
Public Const CdoContact_FullNameAndCompany =
{04200600C046}0x8019 '
Item.FullNameAndCompany
Public Const CdoContact_LastFirstAndSuffix =
{04200600C046}0x8036 '
Item.LastFirstAndSuffix
Public Const CdoContact_LastFirstNoSpace =
{04200600C046}0x8030 '
Item.LastFirstNoSpace
Public Const CdoContact_LastFirstNoSpaceCompany =
{04200600C046}0x8034 '
Item.LastFirstNoSpaceCompany
Public Const CdoContact_LastFirstSpaceOnly =
{04200600C046}0x8031 '
Item.LastFirstSpaceOnly
Public Const CdoContact_LastFirstSpaceOnlyCompany =
{04200600C046}0x8035'
Item.LastFirstSpaceOnlyCompany
Public Const CdoContact_LastNameAndFirstName =
{04200600C046}0x8017 '
Item.LastNameandFirstName
' Non-documented e-mail contact property tags
Public Const CdoContact_EmailOriginalDisplayName =
{04200600C046}0x8084 '
Item.EMail1DisplayName
Public Const CdoContact_EmailEmailAddress =
{04200600C046}0x8083'
Item.EMail1Address
Public Const CdoContact_EmailAddrType
RE: VB - Retrieving contacts from Exchange Server
How can i check if a folder is shared or not, can anyone help with the syntax I am getting an error on this line: Set employeefolder = olns.GetSharedFolder(mailbox, olFolderContacts) so i want to see if the folder (olfolder) is shareable for the mailbox -Original Message- From: Jon Hill [mailto:[EMAIL PROTECTED]] Sent: 02 July 2002 17:01 To: Exchange Discussions Subject: RE: VB - Retrieving contacts from Exchange Server Your code used the Outlook Object Model, so the following code should work: Set olNS = ol.GetNamespace(MAPI) Set olGAL = olNS.AddressLists(Global Address List) For Each olThisBox In olGAL.AddressEntries If olThisBox.DisplayType = olUser Then Set mailbox = olNS.CreateRecipient(outThisBox.Name) ...insert code here... End If Next It would probably run faster if you used the CDO model. The following might get you started: Sub FindMessageCDO() 'find all messages whose subject contains a particular line of text Dim strProfileInfo As String Dim cdoSession As New MAPI.Session Dim cdoGAL As MAPI.AddressList Dim cdoMailboxes As MAPI.AddressEntries Dim cdoThisBox As MAPI.AddressEntry Dim cdoInbox As MAPI.Folder Dim cdoInboxMsgs As MAPI.Messages Dim cdoInboxFilter As MAPI.MessageFilter Dim cdoThisMsg As MAPI.Message Dim cdoOtherSession As MAPI.Session Dim iBadMsgCount As Integer Dim dtmStart As Date Const strSUBJ = Homepage strExchServer=MyMailServer strMailbox = MyMailbox strProfileInfo = strExchServer + vbLf + strMailbox Set cdoGAL = cdoSession.AddressLists(Global Address List) For Each cdoThisBox In cdoGAL.AddressEntries With cdoThisBox If .DisplayType = olUser Then iBadMsgCount = 0 Set cdoOtherSession = Application.CreateObject(Mapi.Session) strProfileInfo = strExchServer + vbLf + .Address cdoOtherSession.Logon , , False, True, 0, True, strProfileInfo On Error Resume Next Set cdoInbox = cdoOtherSession.Inbox If Err = 0 Then On Error GoTo 0 Set cdoInboxMsgs = cdoOtherSession.Inbox.Messages ...insert code here... Set cdoInboxMsgs = Nothing End If End If End With Next End Sub _ 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]
RE: VB - Retrieving contacts from Exchange Server
You can't do it. Yes you can write code to get all your contacts [see below], but to get other peoples contacts you need one of two things: 1 - E-mail account name and NT Password for each and every account. 2 - Permissions set on each users account so that you can go and look at their e-mail. Even if you modify your access permissions to have everything, Exchange will still prevent you from abusing your position. If you can get around this, then you can go in and read everyones e-mail. [Below] If you (or anyone else) wants some simple code to list out the contacts, paste this snippet into a text file with a .VBS extension, and double click on the file. You don't need VB, just to have the scripting host enabled. set OutL=WScript.CreateObject(Outlook.Application) set mapi=OutL.GetNameSpace(MAPI) Set myItems = MAPI.GetDefaultFolder(10).Items for each myItem in MyItems msgbox FOUND IN: myItem.PARENT . myItem.FullName myItem.JobTitle myItem.Birthday next -Original Message- From: sammy rashid [mailto:[EMAIL PROTECTED]] Sent: 02 July 2002 10:13 To: Exchange Discussions 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]
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]
RE: VB - Retrieving contacts from Exchange Server
= {04200600C046}0x8051
' Item.UserField3
Public Const CdoContact_UserField4 = {04200600C046}0x8052
' Item.UserField4
Public Const CdoContact_Private = {08200600C046}0x8506
Public Const CdoContact_LinkNames = {08200600C046}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
Re: VB - Retrieving contacts from Exchange Server
Not sure. Maybe export all users name info using LDIFDE and use some sort of
merge utility to make a batch file? Just a WAG.
- Original Message -
From: Sammy Rashid [EMAIL PROTECTED]
To: Exchange Discussions [EMAIL PROTECTED]
Sent: Tuesday, July 02, 2002 9:36 AM
Subject: RE: VB - Retrieving contacts from Exchange Server
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 = {04200600C046}0x802B
' Item.WebPage
Public Const CdoContact_FileUnder =
{04200600C046}0x8005'
Item.FileAs
Public Const CdoContact_CompanyAndFullName =
{04200600C046}0x8018 '
Item.CompanyAndFullName
Public Const CdoContact_CompanyLastFirstNoSpace =
{04200600C046}0x8032 '
Item.CompanyLastFirstNoSpace
Public Const CdoContact_CompanyLastFirstSpaceOnly =
{04200600C046}0x8033'
Item.CompanyLastFirstSpaceOnly
Public Const CdoContact_FullNameAndCompany =
{04200600C046}0x8019 '
Item.FullNameAndCompany
Public Const CdoContact_LastFirstAndSuffix =
{04200600C046}0x8036 '
Item.LastFirstAndSuffix
Public Const CdoContact_LastFirstNoSpace =
{04200600C046}0x8030 '
Item.LastFirstNoSpace
Public Const CdoContact_LastFirstNoSpaceCompany =
{04200600C046}0x8034 '
Item.LastFirstNoSpaceCompany
Public Const CdoContact_LastFirstSpaceOnly =
{04200600C046}0x8031 '
Item.LastFirstSpaceOnly
Public Const CdoContact_LastFirstSpaceOnlyCompany =
{04200600C046}0x8035'
Item.LastFirstSpaceOnlyCompany
Public Const CdoContact_LastNameAndFirstName =
{04200600C046}0x8017 '
Item.LastNameandFirstName
' Non-documented e-mail contact property tags
Public Const CdoContact_EmailOriginalDisplayName =
{04200600C046}0x8084 ' Item.EMail1DisplayName
Public Const CdoContact_EmailEmailAddress =
{04200600C046}0x8083'
Item.EMail1Address
Public Const CdoContact_EmailAddrType =
{04200600C046}0x8082'
Item.EMail1AddressType
Public Const CdoContact_EmailOriginalEntryID =
{04200600C046}0x8085 ' Item.EMail1EntryID
Public Const CdoContact_Email2OriginalDisplayName =
{04200600C046}0x8094' Item.EMail2DisplayName
Public Const CdoContact_Email2EmailAddress =
{04200600C046}0x8093 '
Item.EMail2Address
Public Const CdoContact_Email2AddrType
RE: VB - Retrieving contacts from Exchange Server
DOes anybody know the VB to return the names of all mailboxes?
-Original Message-
From: Tony Hlabse [mailto:[EMAIL PROTECTED]]
Sent: 02 July 2002 15:05
To: Exchange Discussions
Subject: Re: VB - Retrieving contacts from Exchange Server
Not sure. Maybe export all users name info using LDIFDE and use some sort of
merge utility to make a batch file? Just a WAG.
- Original Message -
From: Sammy Rashid [EMAIL PROTECTED]
To: Exchange Discussions [EMAIL PROTECTED]
Sent: Tuesday, July 02, 2002 9:36 AM
Subject: RE: VB - Retrieving contacts from Exchange Server
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 = {04200600C046}0x802B
' Item.WebPage
Public Const CdoContact_FileUnder =
{04200600C046}0x8005'
Item.FileAs
Public Const CdoContact_CompanyAndFullName =
{04200600C046}0x8018 '
Item.CompanyAndFullName
Public Const CdoContact_CompanyLastFirstNoSpace =
{04200600C046}0x8032 '
Item.CompanyLastFirstNoSpace
Public Const CdoContact_CompanyLastFirstSpaceOnly =
{04200600C046}0x8033'
Item.CompanyLastFirstSpaceOnly
Public Const CdoContact_FullNameAndCompany =
{04200600C046}0x8019 '
Item.FullNameAndCompany
Public Const CdoContact_LastFirstAndSuffix =
{04200600C046}0x8036 '
Item.LastFirstAndSuffix
Public Const CdoContact_LastFirstNoSpace =
{04200600C046}0x8030 '
Item.LastFirstNoSpace
Public Const CdoContact_LastFirstNoSpaceCompany =
{04200600C046}0x8034 '
Item.LastFirstNoSpaceCompany
Public Const CdoContact_LastFirstSpaceOnly =
{04200600C046}0x8031 '
Item.LastFirstSpaceOnly
Public Const CdoContact_LastFirstSpaceOnlyCompany =
{04200600C046}0x8035'
Item.LastFirstSpaceOnlyCompany
Public Const CdoContact_LastNameAndFirstName =
{04200600C046}0x8017 '
Item.LastNameandFirstName
' Non-documented e-mail contact property tags
Public Const CdoContact_EmailOriginalDisplayName =
{04200600C046}0x8084 ' Item.EMail1DisplayName
Public Const CdoContact_EmailEmailAddress =
{04200600C046}0x8083'
Item.EMail1Address
Public Const CdoContact_EmailAddrType =
{04200600C046}0x8082'
Item.EMail1AddressType
Public Const CdoContact_EmailOriginalEntryID =
{04200600C046}0x8085 ' Item.EMail1EntryID
Public Const
RE: VB - Retrieving contacts from Exchange Server
Your code used the Outlook Object Model, so the following code should work: Set olNS = ol.GetNamespace(MAPI) Set olGAL = olNS.AddressLists(Global Address List) For Each olThisBox In olGAL.AddressEntries If olThisBox.DisplayType = olUser Then Set mailbox = olNS.CreateRecipient(outThisBox.Name) ...insert code here... End If Next It would probably run faster if you used the CDO model. The following might get you started: Sub FindMessageCDO() 'find all messages whose subject contains a particular line of text Dim strProfileInfo As String Dim cdoSession As New MAPI.Session Dim cdoGAL As MAPI.AddressList Dim cdoMailboxes As MAPI.AddressEntries Dim cdoThisBox As MAPI.AddressEntry Dim cdoInbox As MAPI.Folder Dim cdoInboxMsgs As MAPI.Messages Dim cdoInboxFilter As MAPI.MessageFilter Dim cdoThisMsg As MAPI.Message Dim cdoOtherSession As MAPI.Session Dim iBadMsgCount As Integer Dim dtmStart As Date Const strSUBJ = Homepage strExchServer=MyMailServer strMailbox = MyMailbox strProfileInfo = strExchServer + vbLf + strMailbox Set cdoGAL = cdoSession.AddressLists(Global Address List) For Each cdoThisBox In cdoGAL.AddressEntries With cdoThisBox If .DisplayType = olUser Then iBadMsgCount = 0 Set cdoOtherSession = Application.CreateObject(Mapi.Session) strProfileInfo = strExchServer + vbLf + .Address cdoOtherSession.Logon , , False, True, 0, True, strProfileInfo On Error Resume Next Set cdoInbox = cdoOtherSession.Inbox If Err = 0 Then On Error GoTo 0 Set cdoInboxMsgs = cdoOtherSession.Inbox.Messages ...insert code here... Set cdoInboxMsgs = Nothing End If End If End With Next End Sub _ 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]
