تشخیص صحیح بدون ایمیل ( جیمیل)

[Veteran]

سلام دوسان مخواستم بدونم به چه صورت میتونیم بفهمیم که یک ایمیل و پسورد درست هست

[hasht.rood]

خوب برو از سایت www.gmail.com چک کن

[just4froum]

با سلام :

از كد زير استفاده كن :





Private Sub Command1_Click()
Dim Email As String
Dim Password As String
Email = "sobhan93@gmail.com"
Password = "123456"
MsgBox Check_Gmail(Email, Password)
End Sub

Private Function Check_Gmail(Email As String, Pass As String) As Boolean
Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message
On Error GoTo Error
lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort ) = 465
lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = True
lobj_cdomsg.Configuration.Fields(cdoSMTPAuthentica te) = 1
lobj_cdomsg.Configuration.Fields(cdoSendUserName) = Email
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = Pass
lobj_cdomsg.Configuration.Fields(cdoSMTPConnection Timeout) = 30
lobj_cdomsg.Configuration.Fields(cdoSendUsingMetho d) = 2
lobj_cdomsg.Configuration.Fields.Update

lobj_cdomsg.To = "just4froum@just4froum.com"
lobj_cdomsg.From = "just4froum@just4froum.com"
lobj_cdomsg.Send
Set lobj_cdomsg = Nothing

Check_Gmail = True
Exit Function
Error:
Check_Gmail = False
End Function










موفق باشيد

[Veteran]

این کد که گذاشتین مشکل داره خودتون تست کنین

[M.T.P]

این کد که گذاشتین مشکل داره خودتون تست کنین
کد دوستمون درسته فقط شما Microsoft CDO for windows 2000 رو تو Refrences اضافه کنید.

[Veteran]

مشاهده کنید

[M.T.P]

فاصله هایی که بین کد افتاده رو حذف کن درست میشه ، مشکل از تگ کد سایت هست.


Private Sub Command1_Click()
Dim Email As String
Dim Password As String
Email = "sobhan93@gmail.com"
Password = "123456"
MsgBox Check_Gmail(Email, Password)
End Sub

Private Function Check_Gmail(Email As String, Pass As String) As Boolean
Dim lobj_cdomsg As CDO.Message
Set lobj_cdomsg = New CDO.Message
On Error GoTo Error
lobj_cdomsg.Configuration.Fields(cdoSMTPServer) = "smtp.gmail.com"
lobj_cdomsg.Configuration.Fields(cdoSMTPServerPort ) = 465
lobj_cdomsg.Configuration.Fields(cdoSMTPUseSSL) = True
lobj_cdomsg.Configuration.Fields(cdoSMTPAuthentica te) = 1
lobj_cdomsg.Configuration.Fields(cdoSendUserName) = Email
lobj_cdomsg.Configuration.Fields(cdoSendPassword) = Pass
lobj_cdomsg.Configuration.Fields(cdoSMTPConnection Timeout) = 30
lobj_cdomsg.Configuration.Fields(cdoSendUsingMetho d) = 2
lobj_cdomsg.Configuration.Fields.Update

lobj_cdomsg.To = "just4froum@just4froum.com"
lobj_cdomsg.From = "just4froum@just4froum.com"
lobj_cdomsg.Send
Set lobj_cdomsg = Nothing

Check_Gmail = True
Exit Function
Error:
Check_Gmail = False
End Function

[Veteran]

باز ارور میده اون همون ارور عکس دوم
sub or function not defined

[M.T.P]

به کدوم قسمت کد گیر میده؟

[Veteran]

مشاهده کنید

[M.T.P]

تابع Check_Gmail که همراهش هست!! :متفکر:
احتمالا تابع Check_Gmail رو تو ماژول نبردید؟ چون بصورت Private هست اگه تو ماژول بزارید نمیشه تو فرم ازش استفاده کرد مگه اینکه Private رو به Public تغییر بدهید.

[M_P_1374]

اصلا چرا كل كدي كه در اختيارتون گذاشتن رو تو فرم اصلي نميذاريد؟ من تست كردم جواب داد
ولي اگه يوزرنيم و پسورد رو عوض كني كه خودم اينكارو كردم تابع شايد ساعت ها محاسبه بي سرانجام انجام بده
چرا؟

[M_P_1374]

اصلا چرا كل كدي كه در اختيارتون گذاشتن رو تو فرم اصلي نميذاريد؟ من تست كردم جواب داد
ولي اگه يوزرنيم و پسورد رو عوض كني كه خودم اينكارو كردم تابع شايد ساعت ها محاسبه بي سرانجام انجام بده
چرا؟

[Veteran]

بله حق با شما بود من توی مازول گذاشته بودم
الان که private رو کردمpublick درست شد