Error using AddressEntry.GetContact - need help

Not open for further replies.


Outlook version
Outlook 2010 32 bit
Email Account
I am trying to do some automation on distribution lists, but am running into a snag. In a distribution list the GetMember method returns a Recipient object which has a limited amount of information and I want to get the Contact object represented by the Recipient. I test to make sure the recipient is resolved, but when I attempt to use the AddressEntry.GetContact method I get a run time error. What am I doing wrong or what else do I need to do?

Set myNameSpace = Application.GetNamespace("MAPI")
Set myFolder = myNameSpace.GetDefaultFolder(olFolderContacts)
Set myFolderItems = myFolder.Items
iCount = myFolderItems.Count
For x = 1 To iCount
If TypeName(myFolderItems.Item(x)) = "DistListItem" Then
Set myDistList = myFolderItems.Item(x)
For y = 1 To myDistList.MemberCount
Set myRecipient = myDistList.GetMember(y)
RecipientIsResolved = myRecipient.Resolved
If RecipientIsResolved = True Then
Set myAddressEntry = myRecipient.AddressEntry
Set myContactItem = myAddressEntry.GetContact '<Errors here with "The item could not be found"
With myContactItem
'Here I would be able to access all of the contact's information
End With
End If

Debug.Print myDistList.GetMember(y).Name
' If myDistList.GetMember(y).Name = myNameSpace.CurrentUser.Name Then
' MsgBox "Your are a member of " & myDistList.DLName
' End If
Next y
End If
Next x

I could never figure when that function works and when it doesn´t. I´d use the Items.Find function of the contacts folder and search the email address myself.
I actually came at the problem from a different angle and got what I needed. I used the Restrict method on the contacts folder and then looped the restricted contact items. The Outlook object model is so convoluted compared to the Excel OM.
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
S Autosave attachments error using Len Outlook VBA and Custom Forms 2
B 0x800CCC0F Error using POP3 in Outlook 2010 and 2013 Using Outlook 1
H Send/Receive Error Sending E-Mails Using POP3 GMail Account Using Outlook 2
A Synchronization Error of contacts and calender using Outlook connector Using accounts in Outlook 12
A Error: 3033 when trying to OpenDatabase using DAO Outlook VBA and Custom Forms 3
S Outlook 2007 error message using the TASK feature Using Outlook 6
G Error - "Customized functionality in this application will not work because the certificate" Outlook VBA and Custom Forms 0
L Error when exporting Sent Mail to Excel Outlook VBA and Custom Forms 6
G Outlook 365 My iCloud Outlook doesn’t work after reinstalling Microsoft365 on Windows 10 PC – now I get error message on contacts and calendar Using Outlook 1
V Outlook Error The Attempted operation Failed. An Object Could Not be found Outlook VBA and Custom Forms 0
S macro error 4605 Outlook VBA and Custom Forms 0
humility36 Cannot move emails to archive - 440 error Outlook VBA and Custom Forms 1
D.Moore Strange VBA error Outlook VBA and Custom Forms 4
T Event Error on non existent Event. Using Outlook 2
P now on office 365 but getting error messages about missing Outlook 2013 cache folders Using Outlook 2
W Outlook 365 I am getting the "Either there is no default mail client" error when I try to send an email on excel Office 365 Using Outlook 1
A Links in email getting error message about group policy Using Outlook 4
Aussie Outlook 365 Rule runs manually but returns the error code "an unexpected error has occurred" when incoming mail arrives Using Outlook 1
Cathy Rhone Mail merge error message Using Outlook 1
U Outlook 2019 VBA run-time error 424 Outlook VBA and Custom Forms 2
V Outlook error 500 Using Outlook 2
O Comma Separated Values.ADR and A file error has occurred in the translator Using Outlook 6
D We're sorry but outlook has run into an error Using Outlook 6
D Outlook 2016 Outlook Error Msg "The operation cannot be performed ..." How to Stop it Using Outlook 4
P Outlook 2013 All imported Mail Rules in error when imported into new profile Using Outlook 5
H Outlook 2019 Certificate error Using Outlook 2
V Date and/or time error in Outlook Form Outlook VBA and Custom Forms 0
A Run-time error '430' on certain emails when trying to set "Outlook.mailitem" as "ActiveExplorer.Selection.Item" Outlook VBA and Custom Forms 2
E Complite error on SaveAsFile method Outlook VBA and Custom Forms 2
I Error saving screenshots in a custom form in outlook 2016, outlook 365 - ok in outlook 2013, outlook 2010 Outlook VBA and Custom Forms 5
D Outlook VBA error extracting property data from GetRules collection Outlook VBA and Custom Forms 10
A Unable to save recurring Meeting to Documents folder due to error Using Outlook 2
M Compile error: User-defined type not defined Outlook VBA and Custom Forms 0
R Error when trying to forward current email item Outlook VBA and Custom Forms 7
M ERROR: None of your email accounts could send to this recipient Using Outlook 2
J OLADD.FAE Error When Exporting Contacts Using Outlook 6
C Send/receive error 80040119 Using Outlook 2
W error with the permission for the file Outlook VBA and Custom Forms 0
L Outlook 2019 MAC sync error after working for 4 hours Using Outlook 1
A Run time error 424. object required in outlook 2013 Outlook VBA and Custom Forms 10
M error code 0x8DE00006 Using Outlook 1
M Desktop Version Of Outlook Generating Error Using Outlook 4
M Send/Receive error 0x800CCC0F Using Outlook 0
T Outlook 2016 CSV Translator Import Error Using Outlook 6
ManaarZakaria I'm afraid of this issue, cause of strange error Exchange Server Administration 2
P Suppress dialog box on email check error? Using Outlook 5
vodkasoda Object could not be found Error in Outlook 2007 Outlook VBA and Custom Forms 5
S VBA Macro - Run-time error '424': object required - Help Please Outlook VBA and Custom Forms 3
avant-guvnor Outlook.Application now produces error Outlook VBA and Custom Forms 5
P Run Time Error 91 when linking contact to task in VBA Outlook VBA and Custom Forms 1

Similar threads