initial-emailaddresspresent-adma-import.vb

initial-emailaddresspresent-adma-import.vb

 Case "emailAddressPresent-ADMA-Import"
    'AD attributes required: mail and msExchHomeServerName
    ' Default setting = False
    mventry("emailAddressPresent").Value = "False"
    If csentry("mail").IsPresent And csentry("msExchHomeServerName").IsPresent Then
        Dim suffix() As String = Split((csentry("mail").Value), "@")
        'Valid/allowed email suffixes are defined in the following array (amend as appropriate):
        Dim validMailAddresses() As String = {"blah.ac.uk", "foo.ac.uk", "bar.ac.uk", "otherorg.ac.uk"}
        If (Array.IndexOf(validMailAddresses, suffix(1).ToLower) <> -1) Then
			mventry("emailAddressPresent").Value = "True"
        Else
			'If a suffix from the array is not found - raise an error, so that the suffix can be added to the array or simply sorted out - where a mistake was made. Rare!
			Throw New Exception("Invalid email suffix found: " & suffix(1))
        End If
	ElseIf csentry("mail").IsPresent And csentry("mailNickName").IsPresent Then
			'This person is a mail enabled user, maybe with an island site email address or just something else, so we want them to be able to be added to distribution lists....
			mventry("emailAddressPresent").Value = "True"
    End If