We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Sub ReceiptSwitch() 'Read and delivery report swtch bolReadReceipt = Not bolReadReceipt bolDeliveryReceipt = Not bolDeliveryReceipt MsgBox "Read and delivery receipts are now " & IIf(bolReadReceipt, "on", "off") End Sub Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim olkRecipient As Outlook.Recipient For Each olkRecipient In Item.Recipients LogAddress olkRecipient.Name, olkRecipient.Address Next Set olkRecipient = Nothing toMe Item If (Not bolReadReceipt) And (Not bolDeliveryReceipt) Then If MsgBox("Do you want receipts for this message?", vbQuestion + vbYesNo, "Request Receipts") = vbYes Then Item.ReadReceiptRequested = True Item.OriginatorDeliveryReportRequested = True End If Else Item.ReadReceiptRequested = bolReadReceipt Item.OriginatorDeliveryReportRequested = bolDeliveryReceipt End If 'CheckFollowUp Item, Cancel Item.Save End Sub