PDA

View Full Version : سوال: ایمیل به چه کسانی ارسال نشده یا به دست چه کسانی نرسیده(پس ارسال ایمیل به اعضای سایت)



Ehsan Zand
سه شنبه 19 آذر 1392, 11:02 صبح
سلام دوستان
من با این کد به اعضای سایت ایمیل میفرستم ولی تو قسمت catch که پیغام خطا میده معلوم نیست خطا از چی بوده و نمیگه به کدوم ایمیل ها نتونسته ارسال کنه. الان می خوام بدونم راهی هست که:
1- بتونم بفهمم دقیقا به چه کسانی نتونسته ایمیل ارسال کنه؟
2- حتی اگر ارسال کرده، ایمیل به دست چه کسانی نرسیده؟(مثل وقتی که آدرس ایمیل اشتباهه و پیغامی در اینباکس میاد که نتونستم ارسال کنم!)

Try
Dim msg As New MailMessage()
Dim obj As New SmtpClient("mail.MySite.com", 25)
msg.From = New MailAddress("info@MySite.com")
msg.Subject = TextBox1.Text
msg.BodyEncoding = System.Text.Encoding.UTF8
msg.BodyEncoding = System.Text.Encoding.UTF8
msg.Body = TextBox2.Text
msg.IsBodyHtml = True
msg.Headers.Add("WebSite", "www.MySite.com")
msg.Priority = MailPriority.High
msg.ReplyTo = New MailAddress("info@MySite.com")
Dim nc As New NetworkCredential("info@MySite.com", MyPassword)
obj.UseDefaultCredentials = False
obj.Credentials = nc
For i = 1 To L
msg.[To].Add(New MailAddress(Address(i)))
Next
obj.Send(msg)
Label1.Text = "پیام با موفقیت ارسال شد"
Catch ex As Exception
Label1.Text = ex.Message
End Try