Skip to content

Instantly share code, notes, and snippets.

Created November 8, 2017 21:18
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
What would you like to do?
Case "emailAddressPresent-ADMA-Import"
'AD attributes required: mail and msExchHomeServerName
If csentry("mail").IsPresent And csentry("msExchHomeServerName").IsPresent Then
Dim mail As String = csentry("mail").Value
Dim suffix() As String = mail.Split("@")
'Valid/allowed email suffixes are defined in the following array (amend as appropriate):
Dim validMailAddresses() As String = {"", "", "", ""}
If (Array.IndexOf(validMailAddresses, suffix(1).ToLower) > -1) Then
mventry("emailAddressPresent").Value = "True"
'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.
Throw New Exception("Invalid email suffix found: " & suffix(1))
End If
ElseIf Not csentry("msExchHomeServerName").IsPresent Then
mventry("emailAddressPresent").Value = "False"
End If
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment