[ تمت الإجابة ]أرجو المساعدة: كود التحقق من صحة الإيميل

ليــــــــــــــــــــش المشــــــــــــآآهدآت 15 و مـــآآآفيه ردوووود :unsure:

,,,,,

واللـــــــــــــــــــــــــــــه أني محتــــــــــــــــــاجه الحـــــــــــــــــــــــــــــــــــــــــــل ,,,,

لطفـــــــاً لا أمـــــــــــــــراً ,,,,

على الأقــــــــــــل اللي يدخل يرد علي يعرف ولا لا ,,,,

الله يوفقكم دنيــــــــــــآآآآ و آآخـــــــــره ,,,

,,,,

شــــــــــآآكره لك ,,,

وأنــــــا مو متعوده آخذ الحــــل جــآآهز ,,

حـــآآولت و عرفت كيــف أطلع مسج للمستخدم ,, بس ما عرفت كيــف أخليه يشيك ع الايميـــــــــــــل ,,,

وهــذا سؤالي ,, هل هي داله ؟؟تشيـــك ع الايميل ولا غير كذا ,,,

,,,,

شـــاكرهـ لكم ردودكمـ ,,

و جزآآكم الله ألــــــــف خيـــر ,,

والله يوفقكم دنيا وآخــرهـ ,,,

أريد أسم الداله اللي تتأكد من صحه الايميــــل ,,,

و جزآآآكمـ الله خيـر ,,

1.  
2. Private Function isValidEmail(s As String) As Boolean
3. If s Like "*@*.*" And IsNumeric(Left$(s, 1)) = False Then
4. isValid = True
5. Else
6. isValid = False
7. End If
8. End Function
9.  
   
   

1. If InStr(1, dEmail.Text, "@", vbTextCompare) = 0 Then
2. MsgBox "Invalid Email Address", vbInformation, Me.Caption
3. dEmail.SetFocus
4. Exit Function
5. End If
6.  
7.  
   
   

المبرمج أحمد ,,

المتورطه ,,

الله يجــــــــزآآكم ألــــــــف خير ,,,

والحمد لله عرفت أحـــل الوآآجب ,,

مشكوورين ,,,