Üye kayıt, tavsiye, yorum vb. gibi forumlarda kullanıcının mail adresinin doğru olup olmadığını kontrol etmek için aşağıdaki fonksiyon ve kodlar kullanılır...

Fonksiyon

FUNCTION KONTROL(STR)
ET = INSTR(2, STR , "@" )
IF ET = VBISNULL THEN
KONTROL = FALSE
ELSE
ETK = ET
ET = TRUE
END IF
IF ET = TRUE THEN
NKT = INSTR(ETK + 2, STR , "." )
IF NKT = VBISNULL THEN
KONTROL = FALSE
ELSE
KONTROL = TRUE
END IF
ELSE
KONTROL = FALSE
END IF
END FUNCTION

Kod:



Kullanıcının girdiği adres geçerli ise " E-Mail Doğrudur.", mail geçerli değil ise " E-Mail Doğru Değildir."diyerek bildirim yapacaktır.