Do you want to send an attachment?

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