Items.find criteria

Status
Not open for further replies.
R

R2l0Y2hlIEd1bWVl

I am using the following code to select a contact for updating.

Set myItem = myContacts.Items.Find("[FirstName] = " & strFirstName & " and

[LastName] = " & strLastName & "")

This works, but I also need to check that another field [Customer ID] is

null before making the update. Is that possible?
 
When Find has returned an item, check its property.

Best regards

Michael Bauer

Am Sat, 18 Apr 2009 17:12:01 -0700 schrieb Gitche Gumee:


> I am using the following code to select a contact for updating.

> Set myItem = myContacts.Items.Find("[FirstName] = " & strFirstName & " and
> [LastName] = " & strLastName & "")

> This works, but I also need to check that another field [Customer ID] is
> null before making the update. Is that possible?
 
This is helpful, but I'm still having trouble. I'm new to Outlook VBA; maybe

I don't know the right syntax.

Here's my code:

Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts)

Set myItem = myContacts.Items.Find("[FirstName] = " & strFirstName

& " and [LastName] = " & strLastName & "")

While TypeName(myItem) <> "Nothing"

If IsNull(myItem.CustomerID) Then

myItem.CustomerID = strCustomerID

myItem.User2 = strEntryID

myItem.Save

End If

Set myItem = myContacts.FindNext

Wend

The error number is 438, "Object doesn't support this property or method."

I have also tried <If myitem.CustomerID = "">, with same error.

"Michael Bauer " wrote:



> When Find has returned an item, check its property.

> > Best regards
> Michael Bauer

> > >

> Am Sat, 18 Apr 2009 17:12:01 -0700 schrieb Gitche Gumee:
>
> > I am using the following code to select a contact for updating.
> > Set myItem = myContacts.Items.Find("[FirstName] = " & strFirstName & " and
> > [LastName] = " & strLastName & "")
> > This works, but I also need to check that another field [Customer ID] is
> > null before making the update. Is that possible?

>
 
Got it. Here is the fixed code:

Set myContacts = myNamespace.GetDefaultFolder(olFolderContacts).Items

Set myItem = myContacts.Find("[FirstName] = """ & strFirstName &

""" and [LastName] = """ & strLastName & """"

While TypeName(myItem) <> "Nothing"

If myItem.CustomerID = "" Then

myItem.CustomerID = strCustomerID

myItem.User2 = strEntryID

myItem.Save

End If

Set myItem = myContacts.FindNext

Wend

"Michael Bauer " wrote:



> When Find has returned an item, check its property.

> > Best regards
> Michael Bauer

> > >

> Am Sat, 18 Apr 2009 17:12:01 -0700 schrieb Gitche Gumee:
>
> > I am using the following code to select a contact for updating.
> > Set myItem = myContacts.Items.Find("[FirstName] = " & strFirstName & " and
> > [LastName] = " & strLastName & "")
> > This works, but I also need to check that another field [Customer ID] is
> > null before making the update. Is that possible?

>
 
Status
Not open for further replies.
Similar threads
Thread starter Title Forum Replies Date
K Use VBA to find Sender and Recipient from Microsfot 365 Journaled Email Items Outlook VBA and Custom Forms 3
T "cannot find the calendar folder for this item" - calendar items stuck in outbox Using Outlook 0
J Outlook Mailbox cleanup; any way to change limit to find items older 999 days? Exchange Server Administration 2
H Outlook 2010 Advanced Find - Menu items missing Using Outlook 1
G Items.Find -> To -> With mutliple e-mails Outlook VBA and Custom Forms 1
H Macro to Delete Duplicate items in Outlook calendar where title is the same and date is the same Outlook VBA and Custom Forms 0
P turn off the default "all day" check box in new calendar items. How? Using Outlook 1
A Outlook 365 (OutLook For Mac)Move "On My Computer" Folder Items From Old To New Mac Computer Using Outlook 3
Kika Melo Outlook Calendar deleted appointments not in Deleted Items folder Using Outlook 3
icacream Outlook 2021 Win 10 - Nothing goes in my Drafts or Sent items folders ! Using Outlook 1
M using excel to sort outlook appointment items Outlook VBA and Custom Forms 4
K Changing the Deleted Items location in Outlook 2019 Using Outlook 2
R Adding Userform Dropdown List items from names of subfolders on network drive Outlook VBA and Custom Forms 10
C How to search for items in Outbox with multiple accounts? Using Outlook 20
N How to add or delete items to Move dropdown Menu Using Outlook 0
sophievldn Looking for a macro that moves completed items from subfolders to other subfolder Outlook VBA and Custom Forms 7
wayneame Changing the Form Used by Existing Task Items in a Folder Outlook VBA and Custom Forms 4
K How to share multiple calendar items Using Outlook 1
F Wishlist Outlook suddenly began synchronizing deleted items every time I delete a single email. Using Outlook 2
D Autosort macro for items in a view Outlook VBA and Custom Forms 2
J Names in sent items suddenly show as Bob Smith (bobsmith@sample.com) Using Outlook 3
M Messages Intermittently Dont Arrive In Sent Items After Sending Successfully Using Outlook 4
D Outlook 2016 Outlook not saving Sent Items Using Outlook 4
G Retention Policy for Outlook.com Deleted Items folder Using Outlook 0
M Outlook on 3 Computers Shows Different Total Items on Same Account Using Outlook 3
B oContacts.Items.Restrict Misses Some Contacts Outlook VBA and Custom Forms 3
T Changing Sent Items location in Outlook 2019 Using Outlook 0
A Connect to server to views items Using Outlook 0
D Mail in Sent Items Gone Using Outlook 12
R How to get the Items object of the default mailbox of a specific account in a multiple account Outlook? Outlook VBA and Custom Forms 0
A Cannot copy this folder because it may contain private items Using Outlook 0
GregS Outlook 2016 Sent Mail absent from Sent Mail or Sent Items Folders Using Outlook 4
C How to use VBA to show only items x days old or more Outlook VBA and Custom Forms 1
T Increasing the number of items that appear on the Categories list Using Outlook 2
T How can you include Junk Email in Search Results like you can include Deleted Items? Using Outlook 3
King Mustard Sort search groups by amount of items? Using Outlook 1
J Sent Items Folder NOT Showing Correct From Email Address Using Outlook 0
C Pull Outlook shared calendars items from Excel Outlook VBA and Custom Forms 4
J Outlook Reply > From > Other Email Address... > Address Not Showing in Sent Items... From Email Outlook VBA and Custom Forms 0
GregS Outlook 2016 Sent Items vs Sent Messages Using Outlook 2
M Sent mail not showing in Sent Items folder; but they can be found with Search Using Outlook 3
A Order of Recent Items in Attach File List Using Outlook 5
W Outlook 2010 some sent items marked unread now (was Ok before) Using Outlook 0
D Unopened message in inbox deleted and not in deleted items Using Outlook 3
R Exporting recovered Deleted Items outside the Inbox Using Outlook 1
Commodore Folders always closed in move/copy items dialog box Using Outlook 3
O Outlook 365 - Toolbar - Close all items - missing? Using Outlook 3
B Clear Offline Items (Mail Folder) via VBA Outlook VBA and Custom Forms 1
A Move email items based on a list of email addresses Outlook VBA and Custom Forms 40
R Retention periods and Deleted Items Using Outlook 7

Similar threads

Back
Top