To require confirmation when sending file attachments

Code Sample

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim intRes As Integer Dim strMsg As String If Item.Attachments.Count > 0 Then strMsg = "Your " & Chr(34) & Item.Subject & Chr(34) & " message to " & _ Item.Recipients.Count & " recipient(s) including " & _ Item.Recipients.Item(1).Name & _ " contains at least one attachment. " & vbCrLf & vbCrLf & _ "Do you want to send this message?" intRes = MsgBox(strMsg, vbYesNo + vbExclamation, "Confirm File Send") If intRes = vbNo Then ' cancel send Cancel = True End If End If End Sub

Notes

You could enhance this code by checking only for certain types of attachments. See To quarantine application file attachments with Microsoft Outlook 2000 VBA for sample code that works with a list of "bad" file extensions.  

More Information

• Outlook Attachment Checker -- another sample along similar lines

More samples for the Application.ItemSend event:

• To automatically add an e-mail address as a Bcc to all outgoing messages
• To set the storage folder for an outgoing message
• To require confirmation when sending to an Exchange distribution list
• Don't send message if attachment is missing -- or Subject is blank
• Set properties on outgoing messages

• Protecting Microsoft Outlook against Viruses
• Viruses Affecting Microsoft Outlook
• Outlook Anti-Virus Tools - Other Personal Tools