saminjoon
دوشنبه 19 آبان 1393, 15:20 عصر
سلام به همه
کدهای ارسال ایمیلی که من استفاده کردم به شرح زیر است
ولی موقع ارسال ایمیل time out میده.یعنی خیلی طول میکشه و بعدم هیچ...(The operation has timed out)
کسی میدونه مشکل چیه؟
Imports System.Net
Imports System.Net.Mail
Partial Class SendMail
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim message As New MailMessage()
Dim smtpClient As New SmtpClient()
Dim msg As String = String.Empty
Try
Dim fromAddress As New MailAddress("MyMail@gmail.com")
message.From = fromAddress
message.[To].Add("MyMail@gmail.com")
message.Subject = "salam"
message.IsBodyHtml = True
message.Body = "hi"
smtpClient.Host = "smtp.gmail.com"
' We use gmail as our smtp client
smtpClient.Port = 465
smtpClient.EnableSsl = True
smtpClient.UseDefaultCredentials = True
smtpClient.Credentials = New System.Net.NetworkCredential("MyMail@gmail.com", "123")
smtpClient.Send(message)
lblpm.Text = "Successful<BR>"
Catch ex As Exception
lblpm.Text = ex.Message
End Try
End Sub
کدهای ارسال ایمیلی که من استفاده کردم به شرح زیر است
ولی موقع ارسال ایمیل time out میده.یعنی خیلی طول میکشه و بعدم هیچ...(The operation has timed out)
کسی میدونه مشکل چیه؟
Imports System.Net
Imports System.Net.Mail
Partial Class SendMail
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Dim message As New MailMessage()
Dim smtpClient As New SmtpClient()
Dim msg As String = String.Empty
Try
Dim fromAddress As New MailAddress("MyMail@gmail.com")
message.From = fromAddress
message.[To].Add("MyMail@gmail.com")
message.Subject = "salam"
message.IsBodyHtml = True
message.Body = "hi"
smtpClient.Host = "smtp.gmail.com"
' We use gmail as our smtp client
smtpClient.Port = 465
smtpClient.EnableSsl = True
smtpClient.UseDefaultCredentials = True
smtpClient.Credentials = New System.Net.NetworkCredential("MyMail@gmail.com", "123")
smtpClient.Send(message)
lblpm.Text = "Successful<BR>"
Catch ex As Exception
lblpm.Text = ex.Message
End Try
End Sub