If one of the recipients is " then it turns
ReadReceiptRequested. What do you expect?


--
Viele Gruesse / Best regards
Michael Bauer - MVP Outlook
Quick-Cats - The most effective way to assign Outlook categories:
http://www.shareit.com/product.html?...4&languageid=1
(German: http://www.VBOffice.net/product.html?pub=6)

Am Thu, 12 Apr 2007 18:30:03 -0700 schrieb bhardwajrishi:

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