Function IsInInternalDomain(domain As String) As Boolean
	Dim internalDomains As Variant	
	Let internalDomains = Split(INTERNAL_DOMAINS, INTERNAL_DOMAIN_SEPARATOR)
	
	If Instr(domain, ".") Then
		'This is an internet address so we need to do a likewise comparison against internal domains
		Forall d In internalDomains
			If ("." & Lcase(domain)) Like ("*." & Lcase(d)) Then		'We are adding periods in here because
															'if we don't we will get false positives
															'on similar domains.
				Let IsInInternalDomain = True
				Exit Forall
			End If
		End Forall
	Else
		'This is a Notes name
		If Isnull(Arraygetindex(internalDomains, domain, 5)) Then
			Let IsInInternalDomain = False
		Else
			Let IsInInternalDomain = True
		End If
	End If
End Function