B
bbnimda
Outlook 2003 + Sbs 2003
Hi All,
I'm trying to make a search using entry ID, but I didn't success
here's my code
Set myFolder =
Application.GetNamespace("MAPI").Folders("").Folders("").......
Set myItems = myFolder.Items
strFind = "[EntryID]= " & Chr(34) & iDSoc & Chr(34)
set myItem = myItems.Find(strFind)
If not (myItem Is Nothing) then
=> here i realise my condition if I found my contact
end if
What's wrong with my code ?
Hi All,
I'm trying to make a search using entry ID, but I didn't success
here's my code
Set myFolder =
Application.GetNamespace("MAPI").Folders("").Folders("").......
Set myItems = myFolder.Items
strFind = "[EntryID]= " & Chr(34) & iDSoc & Chr(34)
set myItem = myItems.Find(strFind)
If not (myItem Is Nothing) then
=> here i realise my condition if I found my contact
end if
What's wrong with my code ?