Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim m As Variant Dim strBody As String Dim intIn As Long Dim intAttachCount As Integer, intStandardAttachCount As Integer On Error GoTo handleError 'Edit the following line if you have a signature on your email that includes images or other files. Make intStandardAttachCount equal the number of files in your signature. intStandardAttachCount = 0 strBody = LCase(Item.Body) If (Len(Item.ConversationIndex) = 44) Then intIn = Len(strBody) intIn = InStr(1, Left(strBody, intIn), "attach") + InStr(1, Left(strBody, intIn), "bijlage") intAttachCount = Item.Attachments.Count If intIn > 0 And intAttachCount <= intStandardAttachCount Then m = MsgBox("It appears that you mean to send an attachment," & vbCrLf & "but there is no attachment to this message." & vbCrLf & vbCrLf & "Do you still want to send?", vbQuestion + vbYesNo + vbMsgBoxSetForeground) End If If m = vbNo Then Cancel = True End If End If handleError: If Err.Number <> 0 Then MsgBox "Outlook Attachment Reminder Error: " & Err.Description, vbExclamation, "Outlook Attachment Reminder Error" End If End Sub