farbod61
دوشنبه 07 مرداد 1392, 09:49 صبح
سلام دوستان
یک مشکلی دارم
چرا تو بعضی سیستمها ایمیل ارسال میشه و تو بعضیا نه و ارور میگیره؟
از این کد استفاده کردم
تو سیستم خودم ارسال نمیشه ولی تو سیستم یکی از همکاران راحت میفرسته
چرا؟
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
یک مشکلی دارم
چرا تو بعضی سیستمها ایمیل ارسال میشه و تو بعضیا نه و ارور میگیره؟
از این کد استفاده کردم
تو سیستم خودم ارسال نمیشه ولی تو سیستم یکی از همکاران راحت میفرسته
چرا؟
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