Does it work better if you instantiate a Recipient object and then resolve
it?

Set oRecip = ")
oRecip.Resolve

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Absolute Beginner's Guide to Microsoft Office Outlook 2003
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


" wrote in
message ...
Hello all,

I have the following code but I can not seemt to get it working. I am
still
missing something very basic. Sue you will see this is still mostly the
code
you gave me. I am just trying to add my email address to the recipients
collection if it is not already there. My problem is it goes to everyone
in
the collection but me. By the way your book should arrive at my house
tomorrow. Thanks in advance.

Function Item_Send()
Dim blnOKToSend
blnOKToSend = False
For Each recip in Item.Recipients
MsgBox "The current recip is: " & recip.Address
If recip.Address = "/o=BP/ou=USAHOU/cn=Users/cn=rilej3" Then
blnOKToSend = True
Exit For
End If
Next
If blnOKToSend = False Then
")
blnOKToSend = True
MsgBox "The current to list is: " & Item.To
End If
Item_Send = False
End Function