خب اساتید گرامی بشتابیید. سورس کد ازسال ایمیل از جیمیل رو میخام لطفا. هرچی کد سرچ کردم یه مشکلی داشته جواب نگرفتم. :ناراحت:
Printable View
خب اساتید گرامی بشتابیید. سورس کد ازسال ایمیل از جیمیل رو میخام لطفا. هرچی کد سرچ کردم یه مشکلی داشته جواب نگرفتم. :ناراحت:
کار خاصی نداره.
اول باید بروید تو اکانت جی میل تون در قسمت تنظیمات POP3 و SMTP، و فعالش کنید. پایین همون صفحه راهنمای اتصال که به چه پورتی و آدرسی به عنوان میل سرور وصل شوید رو براتون داخل یک لینک راهنما نوشته.
در سمت کد فقط باید در آبجکتی که از MailClient ساخته اید پراپرتی EnableSSL رو True کنید و شماره پورت ارسال رو هم 587 بدید.
نام کاربری و کلمه عبور اتصال به سرور هم همونی است که باهاش به جی میل تون لاگین می کنید. تمام.
ممنون. تنظیمات POP3 و SMTP رو پیدا نکردم! لطفا مسیر دقیقشو بفرمایید
و اینکه گفتین: "پایین همون صفحه راهنمای اتصال که به چه پورتی و آدرسی به عنوان میل سرور وصل شوید رو براتون داخل یک لینک راهنما نوشته" منظورتون از همون صفحه چیه؟ کدوم صفحه؟!
Allow less secure apps رو ON کردم ولی همچنان این پیغام رو میده:
ضمیمه 150839
این تنظیمات ایمیلم :
ضمیمه 150845
اینم کدهاست:
ضمیمه 150846
مشکل کجاست؟ اررور بالا رو میده!
مقدار UseDefaultCredntials رو true کنید.
با درود
یک سوال
شما تایید دو مرحله ای را برای ایمیلتون فعال نکردید؟
من این مدلی انجامش میدم
و فکر نکنم به تایید دو مرحله ای نیاز باشه شما داری با استفاده از اکانت گوگل از سرویس SMTP برای ارسال استفاده میکنی مثل کاری که تو وب سایت انجلم میدیم برای ارسال فرم ها و صفحات تماس وقتی میخوایم از PHPMAIL استفاده نکنیم و یا هاست غیر فعالش کرده
Dim smtpserver As New SmtpClient()
Dim mail As New MailMessage()
smtpserver.EnableSsl = True
'user an pass gmail khodetoon
smtpserver.Credentials = New Net.NetworkCredential(txtusername.Text, txtpassword.Text)
smtpserver.Host = "smtp.gmail.com"
smtpserver.Port = "587"
mail = New MailMessage
mail.From = New MailAddress(txtusername.Text)
mail.To.Add(txtTo.Text)
mail.Subject = txtSubject.Text
mail.Body = txtMessage.Text
If Not txtAttach.Text = Nothing Then
Dim attach As New Attachment(txtAttach.Text)
mail.Attachments.Add(attach)
End If
smtpserver.EnableSsl = True
Try
smtpserver.Send(mail)
MessageBox.Show("Message sent", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As SmtpException
MessageBox.Show("Sending failed", "Message", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End Try
End Sub