PDA

View Full Version : كلاس System.Net.Mail و آمار



aliila
پنج شنبه 24 بهمن 1387, 17:27 عصر
سلام
چه كسي و در چه تاريخي توانسته با همان كدهاي مشهور ارسال ايميل


Dim SmtpSender As New System.Net.Mail.SmtpClient("127.0.0.1")
SmtpSender.Send(Email)

و يه چيزهاي با اين مايه ويا با هر كدي و در هر زباني و با هر كامپوننت فري
در سرورهاي smtp رايگان مثلا smtp.google يا iis محلي با valid ip ايميل بفرسته
وجدانا راست و حسيني اگر قطعا فرستاديد بگين نگين كه تكراري و ميشه و ....

دوسه روزيه سه چهار هزار وب پيج و كد و سمپل و رو سيستم خودمو و دوستمو و ويندوز و ويندوز سرورو و زبان دلفي و وي بي و سي شارپ و ... تو خونه و تو محل كارو و ....
دارم تست ميكنم تابه حال اينطوري نمونده بودم فقط با outlook تونستم

اگه اميد وارم نكنيد مي رم سراغ RFC 822 و MIME و RFC 1225 و پورت 25 و سوكت ها

و دايامونها و غيره و خط ميكشم رو هرچي System.Net.Mail و از اينا

mostafaaa
پنج شنبه 24 بهمن 1387, 19:00 عصر
سلام دوست من
والا من با كد مشهور شما تا به حال ايميل ارسال نكردم، ولي با كدهاي مشهور خودم چرا!
دوست عزيز مسئله به اين راحتي رو كه صد بار تاحالا جواب داده شده رو براي خودت اينقدر بغرنج نكن.
اين ساب روتين كه برات نوشتم به راحتي اين كار رو انجام ميده!!
فقط بايد توي تنظيمات gmail سرويس pop رو فعال كني!

Public Sub MailSender(ByVal [From] As String, ByVal [To] As String, ByVal Subject As String, _
ByVal DisplayName As String, ByVal MainText As String, _
ByVal EmailServer As String, ByVal Password As String)
Try
Dim msg As New MailMessage
Dim client As New SmtpClient
msg.To.Add([To])
msg.From = New MailAddress(From, DisplayName, System.Text.Encoding.UTF8)
msg.Subject = Subject
msg.SubjectEncoding = System.Text.Encoding.UTF8
msg.Body = MainText
msg.BodyEncoding = System.Text.Encoding.UTF8
msg.IsBodyHtml = False
msg.Priority = MailPriority.High


client.Credentials = New System.Net.NetworkCredential(From, Password)
client.Port = 587
client.Host = EmailServer
client.EnableSsl = True
client.Send(msg)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try

End Sub

MailSender("xxxxxxxxxxx@gmail.com", "yyyyyyyy@gmail.com", "for test", _
"Your name", "your message here", "smtp.gmail.com", "xyxyxyxyxyx")
يا علي

aliila
جمعه 25 بهمن 1387, 16:59 عصر
با تشكر از شما ولي باز نتوانستم
لطفا براي اطمينان من يك ايميل بمن با همين كد بفرستيد
aliila1359@gmail.com
aliila1359@yahoo.com

mostafaaa
جمعه 25 بهمن 1387, 18:27 عصر
سلام دوست من
اگه با استفاده از OutLook بتونيد بفرسيد با اين هم ميتونيد.
ايميل هم واستون با استفاده از همين كد فرستادم!!
يا علي

aliila
شنبه 26 بهمن 1387, 20:41 عصر
از اينكه كمك ميكنيد متشكرم ولي من outlook مي تونم ولي با اين كد باز نتوانستم ايميل بفرستم
براي همين يك حساب ايميل در گووگل درست كردم براي اين آزمايش با يوزر و پسورد
ffortest77@gmail.com
barayetest
شرمنده لطف كنيد و با اين يك ايميل براي من بفرستيد

aliila1359@gmail.com

mostafaaa
شنبه 26 بهمن 1387, 22:30 عصر
سلام دوست من

براي همين يك حساب ايميل در گووگل درست كردم براي اين آزمايش با يوزر و پسورد
فرقي نميكنه دوست من ، ولي براي اطمينان شما با اون هم فرستادم ، در ضمن برنامه اي رو هم كه باهاش فرستادم ضميمه كردم.