If Not csentry("showInAddressBook").IsPresent Then

If mventry("mail").IsPresent Then
csentry("proxyAddresses").Values.Add("SMTP:" + mventry("mail").Value.ToString)
' Else
'csentry("proxyAddresses").Values.Clear()
End If
Else
If mventry("mail").IsPresent Then

If Not csentry("proxyAddresses").Values.Contains("SMTP:" + mventry("mail").Value.ToString) Then
'csentry("proxyAddresses").Values.Add("SMTP:" + mventry("mail").Value.ToString)

Try
For s As Integer = 0 To csentry("proxyAddresses").Values.Count - 1
WriteLog("proxyAddresses", csentry("displayname").Value, s, csentry("proxyAddresses").Values.Item(s).ToString)
Next s
Catch ee As Exception
WriteLog("proxyAddresses", csentry("displayname").Value, "ошибочка вышла", mventry("mail").Value.ToString)
End Try

End If
End If
End If