Главная страницаОбратная связьКарта сайта

Проверяет, является ли строка E-mail адресом



'В случае успеха, возвращает True

Private Function IsValidEmailAddress(AddressString As String) As Boolean
Dim i As Integer
Dim sRecipArray() As String
Dim sTmp() As String

IsValidEmailAddress = True

sRecipArray = Split(AddressString, psDelimiter) ' psDelimiter = "," - по умолчанию
For i = 0 To UBound(sRecipArray)
'должен иметь только один знак "@"
sTmp = Split(sRecipArray(i), "@")
If UBound(sTmp) <> 1 Then
IsValidEmailAddress = False
Exit Function
End If
Next
End Function


Обсудить статью на форуме


Если Вас заинтересовала или понравилась информация программирование на Visual Basic - "Проверяет, является ли строка E-mail адресом", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу:

Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!
   


Copyright © 2008 - 2017 Дискета.info