'durchsuche zu sendende Mails nach den Schlüsselwörtern und warne vor dem absenden, wenn vorhanden aber kein Anhang ausgewählt
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim retMB As Variant
Dim strBody As String
Dim iIndex As Long
Dim findArr As Variant
 
'hier die Suchbegriffe eingeben:
findArr = Split("attach,anhang,anbei,datei,file,xlsx,docx", ",")
 
On Error GoTo handleError
 
For i = 0 To UBound(findArr)
 
iIndex = InStr(UCase(Item.Body), UCase(CStr(findArr(i))))
 
    If iIndex > 0 And Item.Attachments.Count = 0 Then
 
        retMB = MsgBox("You may have forgotten to attach a file." & vbCrLf & vbCrLf & "Do you still want to continue?", vbQuestion + vbYesNo + vbMsgBoxSetForeground)
            If retMB = vbNo Then Cancel = True
            End If
 
Next
 
handleError:
 
 If Err.Number <> 0 Then
    MsgBox "Outlook Attachment Alert Error: " & Err.Description, vbExclamation, "Outlook Attachment Alertr Error"
 End If
 
End Sub