تحديد ما إذا كان البريد الإلكتروني صحيحًا

<٪

تحديد ما إذا كان البريد الإلكتروني صحيحًا

وظيفة isValidemail (البريد الإلكتروني)

أسماء خافتة ، الاسم ، أنا ، ج

isValidemail = صحيح

أسماء = انقسام (البريد الإلكتروني ، "@")

إذا كان Ubound (أسماء) <> 1 ثم

isValidemail = خطأ

وظيفة الخروج

إنهاء إذا

لكل اسم في الأسماء

إذا كان len (name) <= 0 ثم

isValidemail = خطأ

وظيفة الخروج

إنهاء إذا

لأني = 1 إلى لين (الاسم)

C = LCASE (MID (الاسم ، i ، 1))

إذا instr ("" abcdefghijklmnopqrstuvwxyz_-. "، c) <= 0 وليس isnumeric (c) ثم

isValidemail = خطأ

وظيفة الخروج

إنهاء إذا

التالي

إذا تركت (الاسم ، 1) = "."

isValidemail = خطأ

وظيفة الخروج

إنهاء إذا

التالي

إذا instr (أسماء (1) ، ".") <= 0 ثم

isValidemail = خطأ

وظيفة الخروج

إنهاء إذا

i = len (أسماء (1)) -instrrev (أسماء (1) ، ".")

إذا كنت <> 2 وأنا <> 3 ثم

isValidemail = خطأ

وظيفة الخروج

إنهاء إذا

إذا instr (البريد الإلكتروني ، "..")> 0 ثم

isValidemail = خطأ

إنهاء إذا

وظيفة نهاية

٪>