hosein320
دوشنبه 28 مرداد 1392, 18:21 عصر
Function SendMail(Username As String, Pwd As String, Subject As String, Reciver As String) As Boolean
Dim Mail As New MailMessage
Try
Mail.Subject = Subject
Mail.To.Add(New MailAddress(Reciver))
Mail.From = New MailAddress(Username)
Mail.IsBodyHtml = True
Mail.Body = Body
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(Username, Pwd)
SMTP.Port = 587
SMTP.Send(Mail)
Mail = Nothing
Return True
Catch ex As Exception
Mail = Nothing
Return False
End Try
End Function
سلام
من از این تابع برای ارسال ایمیل استفاده میکنم
یه مشکل عجیب برام پیش اومده
بار اول ایمیل رو میفرسته
ولی دفعات بعد خطا میده که ایمیل مورد نظر قالب یه ایمیل رو نداره:افسرده: (خط 5)
مشکل کار از کجاست
Dim Mail As New MailMessage
Try
Mail.Subject = Subject
Mail.To.Add(New MailAddress(Reciver))
Mail.From = New MailAddress(Username)
Mail.IsBodyHtml = True
Mail.Body = Body
Dim SMTP As New SmtpClient("smtp.gmail.com")
SMTP.EnableSsl = True
SMTP.Credentials = New System.Net.NetworkCredential(Username, Pwd)
SMTP.Port = 587
SMTP.Send(Mail)
Mail = Nothing
Return True
Catch ex As Exception
Mail = Nothing
Return False
End Try
End Function
سلام
من از این تابع برای ارسال ایمیل استفاده میکنم
یه مشکل عجیب برام پیش اومده
بار اول ایمیل رو میفرسته
ولی دفعات بعد خطا میده که ایمیل مورد نظر قالب یه ایمیل رو نداره:افسرده: (خط 5)
مشکل کار از کجاست