مشکل در ارسال ایمیل با vb.net همراه با فایل ضمیمه

[reza4359]

سلام دوستان من در یک فرم چهار تکس باکس دارم
ارسال به:
ایمیل:
موضوع:
سوال:
و خاصیت تکس باکس اونو readonly کردم و ایمیل گیرنده رو گذاشتم وقتی که send میکنم بدون اینکه پیغام خطایی بده send میشه ولی وقتی ایمیلمو چک میکنم نیستش واضافه نمیشه کدها رو هم ضمیمه کردم ممنون

[reza4359]

سلام دوستان من در یک فرم چهار تکس باکس دارم
ارسال به:
ایمیل:
موضوع:
سوال:
و خاصیت تکس باکس اونو readonly کردم و ایمیل گیرنده رو گذاشتم وقتی که send میکنم بدون اینکه پیغام خطایی بده send میشه ولی وقتی ایمیلمو چک میکنم نیستش واضافه نمیشه کدها رو هم ضمیمه کردم ممنون
کسی جواب نمیده؟

[reza4359]

کسی جواب نمیده؟
بابا تورو هر کی دوست دارید کمک کنید شدیدا بهش نیاز دارم****

[reza4359]

بابا تورو هر کی دوست دارید کمک کنید شدیدا بهش نیاز دارم****
یعنی واقعا اینقدر سخته..........

[reza4359]

یعنی واقعا اینقدر سخته..........
باور کنید دیگه روم نمیشه پست بزنم......

[roomezonline]

بابا تورو هر کی دوست دارید کمک کنید شدیدا بهش نیاز دارم****


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





Imports System.Data
Imports System.Web.Mail
Imports System.Configuration
Imports System.Web
Imports System.Web.Security
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System.Web.UI.WebControls.WebParts
Imports System.Web.UI.HtmlControls

Partial Public Class _Default
Inherits System.Web.UI.Page


Protected Sub btnSend_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSend.Click
Try
MailSender.SendEmail(txtGmailmail.Text , txtPassword.Text, txtto.text, txtSubject.Text, txtMessage.Text, System.Web.Mail.MailFormat.Text, _
"")
lblError.Text = "Mail sent successfully."
Catch ex As Exception
lblError.Text = ex.Message
End Try
End Sub


End Class

Public Class MailSender
Public Shared Function SendEmail(ByVal pGmailEmail As String, ByVal pGmailPassword As String, ByVal pTo As String, ByVal pSubject As String, ByVal pBody As String, ByVal pFormat As System.Web.Mail.MailFormat, _
ByVal pAttachmentPath As String) As Boolean
Try
Dim myMail As New System.Web.Mail.MailMessage()
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserver", "smtp.gmail.com")
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpserverport", "465")
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusing", "2")

myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate", "1")

myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendusername", pGmailEmail)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/sendpassword", pGmailPassword)
myMail.Fields.Add("http://schemas.microsoft.com/cdo/configuration/smtpusessl", "true")
myMail.From = pGmailEmail
myMail.[To] = pTo
myMail.Subject = pSubject
myMail.BodyFormat = pFormat
myMail.Body = pBody
If pAttachmentPath.Trim() <> "" Then
Dim MyAttachment As New MailAttachment(pAttachmentPath)
myMail.Attachments.Add(MyAttachment)
myMail.Priority = System.Web.Mail.MailPriority.High
End If

System.Web.Mail.SmtpMail.SmtpServer = "smtp.gmail.com:465"
System.Web.Mail.SmtpMail.Send(myMail)
Return True
Catch ex As Exception
Throw
End Try
End Function
End Class