اشکال در ارسال ایمیل

[farbod61]

سلام دوستان
یک مشکلی دارم
چرا تو بعضی سیستمها ایمیل ارسال میشه و تو بعضیا نه و ارور میگیره؟
از این کد استفاده کردم
تو سیستم خودم ارسال نمیشه ولی تو سیستم یکی از همکاران راحت میفرسته
چرا؟
Try



SmtpServer.Credentials = New Net.NetworkCredential(Trim(txtID.Text) + "@yahoo.com", Trim(txtPassword.Text))

SmtpServer.Port = "587"

SmtpServer.Host = "smtp.mail.yahoo.com"

mail.From = New MailAddress(Trim(txtID.Text) + "@yahoo.com")

mail.To.Add(Trim(txtTo.Text))

mail.Subject = Trim(txtSubject.Text)

mail.Body = Trim(txtBody.Text)

If Me.TextBox3.Text <> "" Then

Dim mail_att As New Attachment(Me.TextBox3.Text)

mail.Attachments.Add(mail_att)

End If

SmtpServer.Send(mail)

MsgBox("پيام شما با موفقيت ارسال شد", MsgBoxStyle.Information, "نتيجه ارسال")

Me.Text = "ارسال ايميل با ياهو ميل"

Me.Refresh()

Catch ex As Exception



MsgBox("خطا در ارسال" + vbCrLf + vbCrLf + "لطفا ايميل و پسوردتان را كنترل كنيد", MsgBoxStyle.Critical, "خطا")

MsgBox(ex.ToString)

Me.Text = "ارسال ايميل با ياهو ميل"

Me.Refresh()

End Try