Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

If InStr(1, Item.Body, "anbei", vbTextCompare) Or InStr(1, Item.Body, "Anhang", vbTextCompare) > 0 Then

If Item.Attachments.Count = 0 Then

answer = MsgBox("Kein Anhang. Dennoch senden?", vbYesNo)

If answer = vbNo Then Cancel = True

End If

End If

End Sub