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

[arsalansalar]

با سلام
من برای ارسال ایمیل از کد زیر استفاده می کنم ولی خطای زیر را می دهد:


Dim FROM As New MailAddress("info@tir84.ir")
Dim RECIVER As MailAddress
Dim MY_EMAIL As MailMessage
Dim SmtpMail As New SmtpClient
SmtpMail.Host = "http://mail.tir84.ir"
Dim theCredential As New System.Net.NetworkCredential("user", "pass")
SmtpMail.Credentials = theCredential
Dim emailaddress As String
emailaddress = "arsalan_feizii@yahoo.com"
RECIVER = New MailAddress(emailaddress)
MY_EMAIL = New MailMessage(FROM, RECIVER)
MY_EMAIL.Subject = "h"
MY_EMAIL.Body = "hjjj"
MY_EMAIL.IsBodyHtml = True
SmtpMail.Send(MY_EMAIL)

خطا:Failure sending mail.

[peymannaji]

http://barnamenevis.org/forum/showthread.php?t=83752

[arsalansalar]

من این تایپیک و قبلا دیدم ولی مشکلم حل نشد.
اگه لطف کنید بگبد اشکال من تو کجاست ممنون می شوم.

[peymannaji]

خوب اول بگید خطا تو کدوم خط هست ؟ اگر خط آخره ؟ ممکنه مشکل از میل سرور یا user و pass اشتباه هست یا آدرس میل سرور درست نیست و شایدم اصلا ایمیل info@tir84.ir تو سرور ایجاد نشده ...

[arsalansalar]

متن خطا رو که تو پست اول نوشتم.

هم ایمیل ایجاد شده و هم user,pass درست است.

[rezaei manesh]

سلام
من هم همين مشکل رو دارم تو خط آخر Failure sending mail رو ميده من هم از صحت ايميل و smtp و يوز و پسورد اطمينان دارم؟!
اينم کد:


Dim obj As New SmtpClient
Dim Mailmsg As New MailMessage
Mailmsg.To.Clear()
Mailmsg.To.Add(New MailAddress(StrUserMail))
Mailmsg.From = New MailAddress("info@mysite.Com")

Mailmsg.Body = "test"
Mailmsg.Subject = "test"
Mailmsg.BodyEncoding = System.Text.Encoding.UTF8
Mailmsg.IsBodyHtml = True

obj.Host = "mail.mysite.Com"
Dim basicAuthenticationInfo As New System.Net.NetworkCredential("SMTPusername", "SMTPpassword")
obj.UseDefaultCredentials = False
' obj.UseDefaultCredentials = True

obj.Credentials = basicAuthenticationInfo
obj.Send(Mailmsg)