Hello Matt, the problem is solved:
If IsArray(MyUnerwuenschtArray) Then
For MyOuterRow = 0 To UBound(MyUnerwuenschtArray)
If Len(MyUnerwuenschtArray(MyOuterRow)) > 0 Then
If InStr(1, LCase(oMessage.Subject), LCase(MyUnerwuenschtArray(MyOuterRow)), vbTextCompare) <> 0 Then
'
oMessage.AddRecipient "", "
Postmaster@MyDomain.de"
oMessage.Save
Exit For
ElseIf InStr(1, LCase(MyBody), LCase(MyUnerwuenschtArray(MyOuterRow)), vbTextCompare) <> 0 Then
'
oMessage.AddRecipient "", "Postmaster@MyDomain"
oMessage.Save
Exit For
End If
End If
Next
End If
Kind Regards
