چگونه پروکسی را در برنامه فرستادن ایمیل set کنیم؟

[sky1388]

من از این کد برای فرستادن ایمیل ا ستفاده کردم این کد به صورت dial up درست کار میکنه و mail رسال میشه اما اگر روی سیستم proxy داشته باشیم کار نمیکنه
من چطور می تونم proxy را برای ان تعریف کنم ؟؟


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