Question

我正在尝试制作一个通过电子邮件发送一些文本的vbs代码，但这里的网络是阻塞端口25有没有办法通过端口80或某种方式通过端口80发送消息至少。< / p>

我尝试时收到此错误代码：80040213

这是我的代码：

dim strSMTPFrom, strSMTPTo, strSMTPRelay, strTextBody, strSubject, oMessage
strSMTPFrom = "email@gmail.com"
strSMTPTo = "email@gmail.com"
strSMTPRelay = "smtp-relay.gmail.com"
strTextBody = "test"
strSubject = "test"
Set oMessage = CreateObject("CDO.Message")
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configurati on/sendusing") = 2
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTPRelay
oMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configurati on/smtpserverport") = 25
oMessage.Configuration.Fields.Update
oMessage.Subject = strSubject
oMessage.From = strSMTPFrom
oMessage.To = strSMTPTo
oMessage.TextBody = strTextBody
oMessage.Send

Answer 1

现在大多数ISP阻止了到端口25的传出连接，企图打击僵尸网络垃圾邮件。有两种处理方式的习惯方法：

通过ISP的邮件服务器发送邮件（如果ISP为其客户提供邮件网关）。
通过(authenticated) connection到端口587（提交）或端口465（smtps，已弃用）将邮件发送到由您自己或您的邮件提供商托管的邮件提交服务器。

从技术上讲，如果您设置的邮件服务器接受该端口上的邮件，则可以通过端口80发送邮件。但是，这样做并不常见（或推荐）。

你如何通过端口80发送电子邮件？

1 个答案: