PDA

View Full Version : ارسال ایمیل



a.1397
چهارشنبه 24 مهر 1398, 15:00 عصر
خب اساتید گرامی بشتابیید. سورس کد ازسال ایمیل از جیمیل رو میخام لطفا. هرچی کد سرچ کردم یه مشکلی داشته جواب نگرفتم. :ناراحت:

مهدی کرامتی
چهارشنبه 24 مهر 1398, 16:18 عصر
کار خاصی نداره.
اول باید بروید تو اکانت جی میل تون در قسمت تنظیمات POP3 و SMTP، و فعالش کنید. پایین همون صفحه راهنمای اتصال که به چه پورتی و آدرسی به عنوان میل سرور وصل شوید رو براتون داخل یک لینک راهنما نوشته.
در سمت کد فقط باید در آبجکتی که از MailClient ساخته اید پراپرتی EnableSSL رو True کنید و شماره پورت ارسال رو هم 587 بدید.
نام کاربری و کلمه عبور اتصال به سرور هم همونی است که باهاش به جی میل تون لاگین می کنید. تمام.

a.1397
یک شنبه 28 مهر 1398, 11:00 صبح
ممنون. تنظیمات POP3 و SMTP رو پیدا نکردم! لطفا مسیر دقیقشو بفرمایید
و اینکه گفتین: "پایین همون صفحه راهنمای اتصال که به چه پورتی و آدرسی به عنوان میل سرور وصل شوید رو براتون داخل یک لینک راهنما نوشته" منظورتون از همون صفحه چیه؟ کدوم صفحه؟!

a.1397
یک شنبه 28 مهر 1398, 11:10 صبح
Allow less secure apps رو ON کردم ولی همچنان این پیغام رو میده:

150839

a.1397
دوشنبه 29 مهر 1398, 10:16 صبح
این تنظیمات ایمیلم :
150845

اینم کدهاست:
150846

مشکل کجاست؟ اررور بالا رو میده!

مهدی کرامتی
دوشنبه 29 مهر 1398, 23:49 عصر
مقدار UseDefaultCredntials رو true کنید.

a.1397
سه شنبه 30 مهر 1398, 10:28 صبح
مقدار UseDefaultCredntials رو true کنید.

عرض ادب. ممنون از پیگیری تون. ولی فایده نداشت و هنوز همون پیغام رو میده :اشتباه:

abdullah20
چهارشنبه 01 آبان 1398, 16:15 عصر
با درود
یک سوال
شما تایید دو مرحله ای را برای ایمیلتون فعال نکردید؟

a.1397
پنج شنبه 09 آبان 1398, 12:55 عصر
با درود
یک سوال
شما تایید دو مرحله ای را برای ایمیلتون فعال نکردید؟

منظورتون از تایید دو مرحله ای چیه؟؟ تنظیمات ایمیلم به همون صورتیه که در بالا عکسشو گزاشتم.

abdullah20
پنج شنبه 09 آبان 1398, 16:59 عصر
منظورتون از تایید دو مرحله ای چیه؟؟ تنظیمات ایمیلم به همون صورتیه که در بالا عکسشو گزاشتم.

یعنی برای ورود به حساب خودتون علاوه بر کلمه عبور به موبایل شما یا یک ایمیل دیگر یک کد ارسال بشه و شما باید برای ورود کد مربوطه را نیز وارد کنید

a.1397
شنبه 11 آبان 1398, 13:17 عصر
یعنی برای ورود به حساب خودتون علاوه بر کلمه عبور به موبایل شما یا یک ایمیل دیگر یک کد ارسال بشه و شما باید برای ورود کد مربوطه را نیز وارد کنید

نه اصلا همچین چیزی فعال نیست برا ایمیلم

nima_8m
شنبه 11 آبان 1398, 14:43 عصر
من این مدلی انجامش میدم
و فکر نکنم به تایید دو مرحله ای نیاز باشه شما داری با استفاده از اکانت گوگل از سرویس 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

vape60
شنبه 11 آبان 1398, 17:59 عصر
من این مدلی انجامش میدم
و فکر نکنم به تایید دو مرحله ای نیاز باشه شما داری با استفاده از اکانت گوگل از سرویس 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



عالی بود


ویپ ('https://vape-60.com/')
کویل ویپ ('https://vape-60.com/%d9%84%d9%88%d8%a7%d8%b2%d9%85-%d8%ac%d8%a7%d9%86%d8%a8%db%8c/%da%a9%d9%88%db%8c%d9%84-%d9%88%db%8c%d9%be/')
جویس ('https://vape-60.com/')

abdullah20
یک شنبه 12 آبان 1398, 10:37 صبح
و فکر نکنم به تایید دو مرحله ای نیاز باشه


بنده نگفتم به تایید دومرحله ای نیاز است
گفتم این گزینه را اگر فعال کردید باید یک کلمه عبور ثانویه دریافت و استفاده کرد