Application_ItemSend Doesn't Fire

D

dch3

The _ItemSend event doesn't fire. What am I missing? I vaguely recall
something about initializing the code at startup, however when I checked, all
of the references that I've found omit any information to the kind suggesting
that simply adding the procedure is sufficient.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

Debug.Print Now

If MsgBox("Request delivery and read receipts?", vbYesNo, "Freeman") =
vbYes Then
Item.ReadReceiptRequested = True
Item.OriginatorDeliveryReportRequested = True
Else
Item.ReadReceiptRequested = False
Item.OriginatorDeliveryReportRequested = False
End If

End Sub
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Making a macro only work on certain files 2
Application_ItemSend not firing even with low security 1
Read Receipt - VBA 5
Selective Read Receipts VBA using run a script rule 5
No Attachment Warning - VBA Code HELP 1
Selective read receipt Part 2 2
Missing attachment warning 1
Warning message 3

Top