با سلام
من يه هاست مجاني از somee گرفتم بعد تصميصم گرفتم يه برنامه براي ارسال ايميل بنويسم کد هاي زيادي را ديدم که شبيه کد زير بود اما کار نمي کند و پيغام Failure sending mail مي دهد کسي مي تونه به من کمک کنه متشکر
Dim obj As New Net.Mail.SmtpClient
Dim Mailmsg As New MailMessage
Dim smtp As New Net.Mail.SmtpClient
Mailmsg.To.Clear()
Mailmsg.From = New MailAddress("[email protected]")
Mailmsg.Subject = TextBox1.Text
Mailmsg.Body = TextBox2.Text
Mailmsg.BodyEncoding = System.Text.Encoding.UTF8
Mailmsg.IsBodyHtml = True
obj.Host = "mail.yahoo.com"
Dim basicAuthenticationInfo As New System.Net.NetworkCredential("saiasmail", "xxxxxxxx")
obj.UseDefaultCredentials = False
obj.Credentials = basicAuthenticationInfo
Try
Mailmsg.To.Add(New MailAddress("[email protected]"))
obj.Send(Mailmsg)
Catch ex As Exception
Me.Response.Write(ex.Message)
End Try
من يه هاست مجاني از somee گرفتم بعد تصميصم گرفتم يه برنامه براي ارسال ايميل بنويسم کد هاي زيادي را ديدم که شبيه کد زير بود اما کار نمي کند و پيغام Failure sending mail مي دهد کسي مي تونه به من کمک کنه متشکر
Dim obj As New Net.Mail.SmtpClient
Dim Mailmsg As New MailMessage
Dim smtp As New Net.Mail.SmtpClient
Mailmsg.To.Clear()
Mailmsg.From = New MailAddress("[email protected]")
Mailmsg.Subject = TextBox1.Text
Mailmsg.Body = TextBox2.Text
Mailmsg.BodyEncoding = System.Text.Encoding.UTF8
Mailmsg.IsBodyHtml = True
obj.Host = "mail.yahoo.com"
Dim basicAuthenticationInfo As New System.Net.NetworkCredential("saiasmail", "xxxxxxxx")
obj.UseDefaultCredentials = False
obj.Credentials = basicAuthenticationInfo
Try
Mailmsg.To.Add(New MailAddress("[email protected]"))
obj.Send(Mailmsg)
Catch ex As Exception
Me.Response.Write(ex.Message)
End Try