B
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, "(e-mail address removed)", vbTextCompare) = 0
Then
Item.ReadReceiptRequested = True
MsgBox "Requesting Read Receipt from " & r.Name
End If
Next
End Sub
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, "(e-mail address removed)", vbTextCompare) = 0
Then
Item.ReadReceiptRequested = True
MsgBox "Requesting Read Receipt from " & r.Name
End If
Next
End Sub