ارسال ایمیل فارسی با اکانت جیمیل

[Veteran]

سلام دوستان عزیز

من میخوام ایمیل فارسی با اکانت جیمیل ارسال کنم.
میشه راهنمایی بفرمائین.
به برنامه جیمیل و پسورد خودمون رو بدیم بعد برنامه با استفاده از اطلاعات داده شده
ایمیل رو به وسیله همون اکانت ارسال کنه
یک کد داشتم اما بعد ارسال به صورت ؟؟؟؟؟؟ در میومد
:اشتباه:
تشکر

[shahryari]

با سلام
از این سورس استفاده کنید


Imports System.Net.Mail
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles Button1.Click
Try
Dim SmtpServer As New SmtpClient() Dim mail As New MailMessage() SmtpServer.Credentials = New _ Net.NetworkCredential("username@gmail.com", "password") SmtpServer.Port = 587 SmtpServer.Host = "smtp.gmail.com" mail = New MailMessage() mail.From = New MailAddress("YOURusername@gmail.com") mail.To.Add("TOADDRESS") mail.Subject = "Test Mail" mail.Body = "This is for testing SMTP mail from GMAIL" SmtpServer.Send(mail) MsgBox("mail send") Catch ex As Exception MsgBox(ex.ToString) End Try End SubEnd Class

منبع :http://www.java-samples.com/showtutorial.php?tutorialid=1056

[Veteran]

ارور میده.:اشتباه:

[shahryari]

کد ها رو باید این جوری جایگزین کنید:


Imports System.Net.Mail
Public Class Form1
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Try
Dim SmtpServer As New SmtpClient()
Dim mail As New MailMessage()
SmtpServer.Credentials = New Net.NetworkCredential(Me.textbox.textgmail, Me.textboxpass.text) '
SmtpServer.EnableSsl = True
SmtpServer.Port = 587
SmtpServer.Host = "smtp.gmail.com"
mail = New MailMessage()
mail.From = New MailAddress(Me.textbox.textgmail) '
mail.To.Add(TextBox3.Text) '
mail.Subject = TextBox2.Text '
mail.Body = TextBox1.Text '
SmtpServer.Send(mail)
MsgBox(" ", MsgBoxStyle.Information, " ")
Catch ex As Exception
MsgBox(" ", MsgBoxStyle.Critical, "")
End Try
End Sub
End Class


اینم تصویرش
88387

[Veteran]

با تشکر.
اما.
سرعت پایین/رفتن به اسپم ها/نداشتن قسمت پیوست کردن فایل/
از مشکلات این سورس هست.
راه دیگه ای ندارید ؟

[shahryari]

سرعت پایین
اتفاقا سرعتش نسبت ساير روشها زياده

رفتن به اسپم ها
اگر براي تست كردن كاركترهاي الكي وارد كردين معلومه كه تو قسمت اسپم ذخيره ميشه!!!

نداشتن قسمت پیوست کردن فایل
با اضافه كردن چند خط كد ميتونيد اين قسمت رو اضافه كنيد


If textboxAtt.Text.Length > 0 Then
Dim attachFile As New Attachment(textboxAtt.Text)
mail.Attachments.Add(attachFile)
End If

مقدار textboxAtt.Text رو هم میتونید توسط یک openfiledialog مقدار دهی بکنید

[M.KH-SH]

http://barnamenevis.org/showthread.php?346657-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D8%A7%DB%8C%D9%85%DB%8C%D9%84-%D8%A7%D8%B2-%D8%B7%D8%B1%DB%8C%D9%82-%D9%88%D8%A8-%D8%B3%D8%B1%D9%88%DB%8C%D8%B3-%D8%A8%D8%A7-%D8%B3%D8%B1%D8%B9%D8%AA%DB%8C-%D8%A8%D8%A7%D9%84%D8%A7%D8%AA%D8%B1&p=1528710#post1528710