خطا در ارسال ایمیل

[hosein320]

Function SendMail(Username As String, Pwd As String, Subject As String, Reciver As String) As Boolean
Dim Mail As New MailMessage
Try
Mail.Subject = Subject
Mail.To.Add(New MailAddress(Reciver))

Mail.From = New MailAddress(Username)
Mail.IsBodyHtml = True
Mail.Body = Body

Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True

SMTP.Credentials = New System.Net.NetworkCredential(Username, Pwd)

SMTP.Port = 587

SMTP.Send(Mail)
Mail = Nothing
Return True
Catch ex As Exception
Mail = Nothing
Return False
End Try

End Function
سلام
من از این تابع برای ارسال ایمیل استفاده میکنم
یه مشکل عجیب برام پیش اومده
بار اول ایمیل رو میفرسته
ولی دفعات بعد خطا میده که ایمیل مورد نظر قالب یه ایمیل رو نداره:افسرده: (خط 5)
مشکل کار از کجاست

[ali.rk]

این خط رو میگی ؟
Mail.Body = Body

اگه آره این رو امتحان کن ?
Mail.Body = New Body

[hosein320]

نه دست عزیز
روی خط اضافه کردن ایمیل خطا میده Mail.To.Add(New MailAddress(Reciver))

[barnamenevisjavan]

http://barnamenevis.org/showthread.php?411104-%D8%AF%D8%B1%D8%AE%D9%88%D8%A7%D8%B3%D8%AA-%D8%B3%D9%88%D8%B1%D8%B3-%D8%A7%D8%B1%D8%B3%D8%A7%D9%84-%D8%A7%DB%8C%D9%85%DB%8C%D9%84-%D9%88-%D8%AC%DB%8C%D9%85%DB%8C%D9%84

[hosein320]

ممنون متوجه شدم مشکل از کجا بود
چون آدرس های ایمیل رو از یه فایل میگرفتم یه کارکتر اول همه ایمیل ها بود
اونو پاک کردم درست شد:چشمک: