طلب قناع إدخال للبريد الالكتروني

حياك الله واهلا وسهلا بك .

البريد الالكتروني يختلف اختلافا شاسعا في عدد حروف الاسم وعدد حروف الشركة واللاحقة ولم أجد شيء متقارب بينه سوى في

@ و .

والتي أظن أنه لا يخلوا بريد منها ، لذلك جعلت كود بسيط للبحث عنها في النص ويظهر رسالة إذا لم يجدها .

في حدث عند الخروج من مربع النص الذي يكتب فيه البريد اكتب :

If InStr([بريد], "@") = 0 Or _
InStr([بريد], ".") = 0 Then
MsgBox "كتابة البريد خطأ ."
Cancel = -1
End If

إذا كانت لديك ملاحظات أو فكرة أخرى أذكرها .

ولك تحياتي