Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 255
  • Last Modified:

Searching Outlook Contacts from VBA fails

Attached is some code I am running to check for duplicate contacts in Outlook 2003 before inserting a new one from Access 2003. The adding part works fine so I have not included it here.
The problem is that the find method (Line 20) fails with the error:

The property "FirstName" in the condition is not valid.

Any example code I can find (even with this same property used in the search) seems to do the finding in exactly the same way as this, but mine won't work!
Any thoughts on what is wrong here?
Dim rst As New ADODB.Recordset
    Dim cnn As New ADODB.Connection
    Dim appOutlook As New Outlook.Application
    Dim ns As Outlook.Namespace
    Dim fldContacts As Outlook.MAPIFolder
    Dim itms As Outlook.Items, itm As Outlook.ContactItem
    Dim objContactFolder As Object
    Dim findstr As String
    
    Set cnn = CurrentProject.Connection
    Set appOutlook = CreateObject("Outlook.Application")
    Set ns = appOutlook.GetNamespace("MAPI")
    Set fldContacts = ns.GetDefaultFolder(olFolderContacts)
    Set itms = fldContacts.Items
 
    rst.Open "SELECT Employees.* FROM Employees WHERE Employees.EmployeeID=" & EmpID, cnn, adOpenKeyset, adLockOptimistic
    rst.MoveFirst
    
    'Prevent duplicate contacts in Outlook.
    findstr = "[FirstName] = """ & rst!FirstName & """ and [LastName] = """ & rst!LastName & """"
    Set itm = itms.Find(findstr)
    If Not TypeName(itm) = "Nothing" Then
      Rem dupicate
      If MsgBox("Do you want to update the information for " & rst!FirstName & " " & rst!LastName & "?", vbApplicationModal + vbYesNo + vbQuestion + vbDefaultButton1) = vbNo Then
          itm = Nothing
      End If
    End If

Open in new window

0
allaboutmike
Asked:
allaboutmike
1 Solution
 
Chris BottomleyCommented:
Nothing obviously wrong ... are you sure firstname and lastname are valid fields in your database record?

Chris
0
 
allaboutmikeAuthor Commented:
Chris, thanks for the answer, but it seems that Outlook had some issue. I have gone back to get an exact dump of the error for you and now it works with no code changes!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Easily Design & Build Your Next Website

Squarespace’s all-in-one platform gives you everything you need to express yourself creatively online, whether it is with a domain, website, or online store. Get started with your free trial today, and when ready, take 10% off your first purchase with offer code 'EXPERTS'.

Tackle projects and never again get stuck behind a technical roadblock.
Join Now