IsSameAs Method (AddressEntry Object)
IsSameAs Method (AddressEntry Object)
The IsSameAs method returns True if the AddressEntry object is the same as the AddressEntry object being compared against.
Syntax
boolSame = objAddressEntry.IsSameAs(objAddrEntry2)
boolSame
On successful return, contains True if the two objects are the same.
objAddressEntry
Required. This AddressEntry object.
objAddrEntry2
Required. The AddressEntry object being compared against.
Remarks
Two AddressEntry objects are considered to be the same if and only if they are instantiations of the same physical (persistent) object in the underlying messaging system. Two objects with the same value are still considered different if they do not instantiate the same physical object, for example if one is a copy of the other. In such a case IsSameAs returns False.
The IsSameAs method ultimately calls one of the MAPI CompareEntryIDs methods to determine if two objects are the same. This is necessary because, although MAPI requires all entry identifiers to be unique, it does not require two of them identifying the same object to be identical. A generic comparison of any two objects' unique identifiers is available with the Session object's CompareIDs method.
Example
This code fragment uses IsSameAs to verify that the sender of a message is the same messaging user as is found in the receiver's personal address book (PAB):
Dim objMessage As Message
Dim objSender As AddressEntry
Dim colAEs As AddressEntries
Dim objAEFilt As AddressEntryFilter
Dim objUser As AddressEntry
' assume objMessage received without error
Set objSender = objMessage.Sender
' construct sender's full address
strSender = objSender.Type & ":" & objSender.Address
' get the Personal Address Book the easy way (1 = CdoAddressListPAB)
Set colAEs = objSession.GetAddressList(1).AddressEntries
Set objAEFilt = colAEs.Filter
objAEFilt.Address = strSender ' look for sender's full address
For Each objUser in colAEs
If objUser.IsSameAs(objSender) Then
MsgBox "Sender found in PAB"
End If
Next