Public Function FinalEmail(ByRef workingEmail As String) As Boolean
FinalEmail = True
If this.DevelopmentMode Then
workingEmail = Tools.ThisUserName & EMAIL_DOMAIN
ElseIf Len(this.WorkEmail) > 0 Then
workingEmail = this.WorkEmail
ElseIf Len(this.PersonalEmail) > 0 Then
workingEmail = this.PersonalEmail
Else
workingEmail = Tools.ThisUserName & EMAIL_DOMAIN
FinalEmail = False
End If
End Function