خب اساتید گرامی بشتابیید. سورس کد ازسال ایمیل از جیمیل رو میخام لطفا. هرچی کد سرچ کردم یه مشکلی داشته جواب نگرفتم.
خب اساتید گرامی بشتابیید. سورس کد ازسال ایمیل از جیمیل رو میخام لطفا. هرچی کد سرچ کردم یه مشکلی داشته جواب نگرفتم.
کار خاصی نداره.
اول باید بروید تو اکانت جی میل تون در قسمت تنظیمات POP3 و SMTP، و فعالش کنید. پایین همون صفحه راهنمای اتصال که به چه پورتی و آدرسی به عنوان میل سرور وصل شوید رو براتون داخل یک لینک راهنما نوشته.
در سمت کد فقط باید در آبجکتی که از MailClient ساخته اید پراپرتی EnableSSL رو True کنید و شماره پورت ارسال رو هم 587 بدید.
نام کاربری و کلمه عبور اتصال به سرور هم همونی است که باهاش به جی میل تون لاگین می کنید. تمام.
ممنون. تنظیمات POP3 و SMTP رو پیدا نکردم! لطفا مسیر دقیقشو بفرمایید
و اینکه گفتین: "پایین همون صفحه راهنمای اتصال که به چه پورتی و آدرسی به عنوان میل سرور وصل شوید رو براتون داخل یک لینک راهنما نوشته" منظورتون از همون صفحه چیه؟ کدوم صفحه؟!
Allow less secure apps رو ON کردم ولی همچنان این پیغام رو میده:
Untitled.jpg
آخرین ویرایش به وسیله a.1397 : یک شنبه 28 مهر 1398 در 12:29 عصر
این تنظیمات ایمیلم :
Untitled.jpg
اینم کدهاست:
2.jpg
مشکل کجاست؟ اررور بالا رو میده!
مقدار 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
آخرین ویرایش به وسیله nima_8m : شنبه 11 آبان 1398 در 15:54 عصر