Option Explicit
Sub Test()
Dim vntAllowedDomains As Variant
Dim vntRecipients As Variant
Set vntAllowedDomains = New VBA.Collection
Set vntRecipients = New VBA.Collection
vntAllowedDomains.Add "@my-company.com"
vntAllowedDomains.Add "@a-partnered-company.de"
#If True Then
vntRecipients.Add "max.mustermann@mircosoft.com"
vntRecipients.Add "bla.blub@my-company.com"
vntRecipients.Add "eva.mustermann@data.com"
vntRecipients.Add "uwe.hübner@a-partnered-company.de"
vntRecipients.Add "inge.schubert@web.de"
#Else
vntRecipients.Add "uwe.hübner@a-partnered-company.de"
vntRecipients.Add "bla.blub@my-company.com"
vntRecipients.Add "mein.name@my-company.com"
#End If
Dim vntDomain As Variant
Dim vntRecipient As Variant
Dim blnForeignDomain As Boolean
For Each vntRecipient In vntRecipients
blnForeignDomain = True
For Each vntDomain In vntAllowedDomains
If CBool(InStr(LCase$(vntRecipient), LCase$(vntDomain))) Then
blnForeignDomain = False
Exit For
End If
Next
Debug.Print "'"; vntRecipient; "' => "; IIf(blnForeignDomain, "not_ok", "ok"); ""
If blnForeignDomain Then
Debug.Print " -> exit_for"
Exit For
End If
Next
If blnForeignDomain Then
MsgBox "Sind sie sicher ~bla-blah, dass sie sicherlicher sicher sicher sind?", _
vbQuestion + vbYesNo + vbDefaultButton2
End If
End Sub