Hi All,

Can some one please check .. what is wrong with this .. I am using it on
outlook 2003 and it does not work ..

' ThisOutlookSession:

Option Explicit

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
If Item.Class olMail Then Exit Sub
Dim r As Recipient
For Each r In Item.Recipients
If StrComp(r.Address, ", vbTextCompare) = 0
Then
Item.ReadReceiptRequested = True
MsgBox "Requesting Read Receipt from " & r.Name
End If
Next
End Sub