使用smtp的代理 私有函数sendmail（ByVal sendTo作为字符串，ByVal subject作为字符串）作为布尔值 尝试 “Dim cr作为新的System.Net.NetworkCredential（“me073055”、“me271288”） ''#Dim pr作为新系统.Net.WebProxy（“172.31.100.25”，3128） ''公共凭证=cr 将邮件设置为新邮件消息（） 邮件。[收件人]。添加（发送至） ''#MsgBox（邮件[To].ToString） mail.From=新邮件地址（TextBoxFromAddress.Text，“NyxSolutions”） mail.Subject=主题和“自动化系统” ''#MsgBox（邮件主题） Dim plainView As AlternateView=AlternateView.CreateAlternateViewFromString（“，无，“文本/普通”） Dim htmlView As AlternateView=AlternateView.createAlternateView-FromString（“”，无任何内容，“text/html”） 将徽标调暗为新的LinkedResource（TextBoxSelectPicture.Text） logo.ContentId=“companylogo” htmlView.LinkedResources.Add（徽标） mail.AlternateViews.Add（plainView） mail.AlternateViews.Add（htmlView） 将主体变暗为字符串=“” mail.Body=Body mail.Attachments.Add（新附件（TextBoxAttachment1.Text）） ''#mail.Attachments.Add（新附件（TextBoxAttachment2.Text）） ''#mail.Attachments.Add（新附件（TextBoxAttachment3.Text）） mail.IsBodyHtml=True Dim smtp作为新的SmtpClient（） smtp.Host=“smtp.gmail.com” smtp.Port=25 smtp.UseDefaultCredentials=True smtp.Credentials=新系统.Net.NetworkCredential（TextBoxFromAddress.Text，“vinson24”） smtp.EnableSsl=True smtp.Send（邮件） ''MsgBox（“已发送”） 捕获ex作为SmtpException MsgBox（例如消息） 结束尝试 端函数

我正在使用给定的代码发送电子邮件…我在代理服务器后面..有没有办法将代理设置提供给smtp客户端？如果没有，那么如何从代理服务器后面发送电子邮件

这些是我需要用来连接到internet的设置…我还需要在我的电子邮件客户端中设置这些设置

---

我曾经用过一个包来处理类似的事情，称为squid proxy。这对我很有用

---

我希望这能有所帮助。

我曾经用过一个软件包来处理类似的事情，叫做squid proxy。这对我很有用

---

我希望这有帮助。

SMTP代理？简单：将邮件发送到代理。他们的客户端是否在代理的后面？IE：使用outlook的办公室？如果是这样，询问他们是如何从代理背后进行身份验证的。。。在你的应用程序中使用相同的设置。可能是@ChaseFlorell的重复项我已经更新了问题…请检查。@AndrewBarber我已经更新了问题…请检查。SMTP代理？简单：将邮件发送到代理。他们的客户端是否在代理的后面？IE：使用outlook的办公室？如果是这样，询问他们是如何从代理背后进行身份验证的。。。在你的应用程序中使用相同的设置。可能重复@ChaseFlorell我已更新问题…请检查它。@AndrewBarber我已更新问题…请检查它。

Private Function SendEMail(ByVal sendTo As String, ByVal subject As String) As Boolean
        Try
            ''# Dim cr As New System.Net.NetworkCredential("me073055", "me271288")
            ''# Dim pr As New System.Net.WebProxy("172.31.100.25", 3128)
            ''# pr.Credentials = cr


            Dim mail As New MailMessage()
            mail.[To].Add(sendTo)

            ''# MsgBox(mail.[To].ToString)

            mail.From = New MailAddress(TextBoxFromAddress.Text, "NyxSolutions")
            mail.Subject = subject & " Automation System"
            ''#  MsgBox(mail.Subject)
            Dim plainView As AlternateView = AlternateView.CreateAlternateViewFromString("", Nothing, "text/plain")
            Dim htmlView As AlternateView = AlternateView.CreateAlternateViewFromString("<img src=cid:companylogo><br/><a href='http://www.nyxsolutions.in'>Click Here to visit our website</a><br/><a href='mailto:info@nyxsolutions.in'> Click Here to send us an email</a>", Nothing, "text/html")

            Dim logo As New LinkedResource(TextBoxSelectPicture.Text)
            logo.ContentId = "companylogo"
            htmlView.LinkedResources.Add(logo)

            mail.AlternateViews.Add(plainView)
            mail.AlternateViews.Add(htmlView)
            Dim Body As String = ""
            mail.Body = Body
            mail.Attachments.Add(New Attachment(TextBoxAttachment1.Text))
            ''# mail.Attachments.Add(New Attachment(TextBoxAttachment2.Text))
            ''# mail.Attachments.Add(New Attachment(TextBoxAttachment3.Text))

            mail.IsBodyHtml = True
            Dim smtp As New SmtpClient()
            smtp.Host = "smtp.gmail.com"
            smtp.Port = 25
            smtp.UseDefaultCredentials = True
            smtp.Credentials = New System.Net.NetworkCredential(TextBoxFromAddress.Text, "vinson24")
            smtp.EnableSsl = True
            smtp.Send(mail)
            ''# MsgBox("Sent")
        Catch ex As SmtpException
            MsgBox(ex.Message)
        End Try
    End Function