This VBA code checks all outgoing messages for attachments and asks if you send the message to all addressees.
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