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

[Ali_M.Eghbaldar]

درود
برای ارسال ایمیل از کد زیر استفاده میکردم (درگذشته)، و درست کار میکرد، بدون هیچ مشکلی:



Dim mTo As String = "MailTo"
Dim mFrom As String = "MyFmail"
Dim mSubject As String = subject_
Dim mMsg As String = ""
Dim mMailServer As String = ConfigurationManager.AppSettings.Get("MyMailServer")
Dim mPort As Integer = ConfigurationManager.AppSettings.Get("MyMailServerPort")
Try
Dim message As New MailMessage(mFrom, mTo, mSubject, mMsg)
message.From = New MailAddress("MyEmail", "")
'If fileAttachments.HasFile Then
' Dim attached As New Attachment(Trim(fileAttachments.PostedFile.FileNam e.ToString()))
' message.Attachments.Add(attached)
'End If


'If mCC <> "" Or mCC <> String.Empty Then
' Dim strCC() As String = Split(mCC, ";")
' Dim strThisCC As String
' For Each strThisCC In strCC
' message.CC.Add(Trim(strThisCC))
' Next
'End If
message.IsBodyHtml = True
Dim mySmtpClient As New SmtpClient("Host") 'How get this? "nslookup -q=mx geranit.com"
mySmtpClient.UseDefaultCredentials = False
mySmtpClient.Credentials = New NetworkCredential("MyEmail", "MyPassword")
mySmtpClient.Send(message)
Catch ex As FormatException
End Try


در پروژه ی جدیدی که دارم روش میکنم همین کدهارو کپی کردم ولی خطای زیر میده:


A connection attempt failed because the connected party did not properly respond after a period of time, or established connection failed because connected host has failed to respond 185.94.98.228:25



حالا جالب اینجاست که پروژه ی قدیمی (که البته هنوزم هم Up هست و در حال کار هم هست) تست کردم دیدم اونم همین خطارو میده!
با هاست صحبت کردم گفت مشکل ما نیست!
چطور ی کدی قبلا درست کار میکردم الان کار نمیکنه؟
آیا مشکل از کدهاست؟

من جهت تست دو تا مدل کد دیگه هم تست کردم که بازم همون خطارو میده:
1)


Dim Mail As MailMessage = New MailMessage() Mail.To.Add("MailTo")
Mail.From = New MailAddress("MyFmail")
Dim smtp As SmtpClient = New SmtpClient()
smtp.Host = "Host"
smtp.Port = 25
Mail.Subject = "Verification Link"
Mail.Body = "Your body Part"
Mail.IsBodyHtml = True
smtp.Credentials = New System.Net.NetworkCredential("MyFmail", "MyPassword")
smtp.EnableSsl = False
smtp.Send(Mail)

2)


Dim myMessage As MailMessage = New MailMessage() myMessage.From = New MailAddress("MyFmail", " ")
myMessage.To.Add("MailTo")
myMessage.Subject = "Subject"
myMessage.IsBodyHtml = True


myMessage.Body = "Message Body"


Dim mySmtpClient As SmtpClient = New SmtpClient()
Dim myCredential As System.Net.NetworkCredential = New System.Net.NetworkCredential("MyFmail", "MyPassword")
mySmtpClient.Host = "Host"
mySmtpClient.UseDefaultCredentials = False
mySmtpClient.Credentials = myCredential
mySmtpClient.ServicePoint.MaxIdleTime = 1


mySmtpClient.Send(myMessage)
myMessage.Dispose()

و اینو هم بگم برای گرفتن آدرس Host از دستور زیر توی cmd استفاده میکنم:


"nslookup -q=mx geranit.com

[Tekyegah]

منم همین مشکل رو داشتم ، به خود هاست گفتم یه sample بدم بده ، مشکلم با اون حل شد .