سورس کد ارسال ایمیل

[عرفان طباطبایی]

سلام دوستان می شه لطف کنید یه کد برای ارسال ایمیل با توضیح کامل بدهید.

[aliagamon]

سورسی که میدم رو من ننوشتم اما توضیح رو بهت میدم:http://www.tutorialspoint.com/vb.net/vb.net_send_email.htm

Dim Smtp_Server As New SmtpClient
Dim e_mail As New MailMessage()
Smtp_Server.UseDefaultCredentials = False
Smtp_Server.Credentials = New Net.NetworkCredential("username@gmail.com", "password")
Smtp_Server.Port = 587
Smtp_Server.EnableSsl = True
Smtp_Server.Host = "smtp.gmail.com"

e_mail = New MailMessage()
e_mail.From = New MailAddress(txtFrom.Text)
e_mail.To.Add(txtTo.Text)
e_mail.Subject = "Email Sending"
e_mail.IsBodyHtml = False
e_mail.Body = txtMessage.Text
Smtp_Server.Send(e_mail)

خط اول و دوم که تعریف smtpclint و MailMessage هست هیچی...
خط بعدی استفاده از Credentials پیشفرض رو غیرفعال میکنیم و خودمون مقدار میدیم ...
خط بعد هم معلوم پورت رو معلوم میکنیم (پورت smtp سرور گوگل)....
خط بعد هم ssl رو فعال میکنیم ...
در نهایت هم host رو هم معلوم میکنیم که smtp گوگل هست ...
خط بعد به e_mail مقدار میده ...
بعد میاد اطلاعاتی مثل فرستنده ، گیرنده،عتنوان،نوع پیام(اچ تی ام ال داشته باشه یا نه )و خود پیام رو از تکست باکس ها میگیره (شما میتونی استرینگ بدی) ...در خط بعد هم میاد و ایمیل (همون e_mail ) رو از طریق smtpclient که ساختیم سند میکنه...