Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olkRecipient As Outlook.Recipient
If Item.Class = olMail Then
For Each olkRecipient In Item.Recipients
Select Case LCase(olkRecipient.AddressEntry.Address)
'Edit the address(es) on the next line as needed'
Case "[email protected]","[email protected]","[email protected]"
If msgbox("Are you sure you want to send this message?", vbQuestion + vbYesNo, "Confirm Message Send") = vbNo Then
Cancel = True
End If
End Select
Next
End If
Set olkRecipient = Nothing
End Sub
|