ارسال ایمیل از طریق برنامه

[mvb_mehran]

با سلام خدمت دوستان محترم
من می خواهم برنامه ای بنویسم که با اون بتونم ایمیل ارسال کنم.
اگه میشه مرا در این مسئله راهنمایی کنید؟
با تشکر از دوستان:لبخند::لبخندساده:

[mvb_mehran]

کسی نیست کمک کنه؟(فوری)

[ehsan21]

Dim FROM As New MailAddress("sender@yahoo.com") ' ایمیل فرستنده
Dim RECIVER As New MailAddress("reciver@yahoo.com") 'ایمیل دریافت کننده
Dim MY_EMAIL As New MailMessage(FROM, RECIVER)
MY_EMAIL.BodyEncoding = System.Text.Encoding.Default
'_________________send mail
MY_EMAIL.Subject = "test"
MY_EMAIL.BodyEncoding = System.Text.Encoding.Default
MY_EMAIL.Body = "helo"
'Dim MY_ATTACH As New Attachment("file name")
'MY_EMAIL.Attachments.Add(MY_ATTACH)
Dim SmtpMail As New SmtpClient
SmtpMail.Host = "smtp.mail.yahoo.com"
Dim theCredential As New System.Net.NetworkCredential("sender", "your password") ' ایمیل و پسورد فرستنده
SmtpMail.Credentials = theCredential
SmtpMail.Send(MY_EMAIL)

[mvb_mehran]

کد اول تا سوم خطا دارد. mailadress و mailmassage رو خطا میگیره.
لطفا راهنمایی کنید.

[mvb_mehran]

کسی نیست کمک کنه؟(فوری)

[mvb_mehran]

کمک کنید:متفکر:

[nokhodsiah2001]

درود
این رو به اولش اضافه کن

Imports System.Net.Mail

[mvb_mehran]

وقتی که ایمیل ارسال می شود به یاهو ارور میده : failure notice
باید چه کاری انجام بدم.

[mvb_mehran]

کمک....................... Help

[alimanam]

با سلام

دوست عزیز اگه یه مقدار سرچ می کردی این همه سورس تو همین سایت پیدا می کردین !

فایل ضمیمه رو یه نگاه بندازی متوجه مشکلت میشی . یا علی

http://1imagehosting.com/images/8668.png