When i send bulk mails when i want to switch it Off. When i select No while selecting the macro directly. It gets into a phase where for all emails sent it asks for delivery and read receiptiant.

Hi,

Below code is from David.

The below code ask's me if i want a delivery notice and read notice on each email sent it pop's up.

When i send bulk mails when i want to switch it Off. When i select No while selecting the macro directly. It gets into a phase where for all emails sent it asks for delivery and read receiptiant.
When i say No i want it to stop requesting for receptiants and when i selected Yes it has to ask for all without prompting each time. On Close and open of Outlook it has to get back to the normal phase of asking me on each mail sent.

Regards
Sharath

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

Select allOpen in new window