电子邮件未发送

Question

我想从我的vbscript代码发送一封电子邮件，下面的代码在我的机器上正常工作，但是当我更换机器时，代码不再能够发送电子邮件了。 运行期间没有发生任何错误或问题，但没有发送/发送电子邮件。 还有其他人遇到过像这样的问题吗？

Set objMessage = CreateObject("CDO.Message") 

With objMessage
    .From = SendFrom
    .To   = SendTo
    .Subject  = "Subject"
    .Textbody = ""
    .HTMLBody = "<b>Body</b>"
    With .Configuration.Fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing")      = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver")     = "SMTP.Gmail.Com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername")   = "Username"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword")   = "Password"
        .Update
    End With

    .Send
End With

Answer 1

我认为这是一个权限问题或防火墙问题，如果它在您的机器上工作但不在生产机器上。 仔细看看有什么不同，是防火墙后面的其他不是吗？

Answer 2

首先，由于您没有发布整个代码，请检查您的脚本是否包含一行

On Error Resume Next

如果是：删除该行并再试一次。

如果您的脚本中没有该行， 并且脚本没有引发错误， 并且您可以telnet mailserver 25那么几乎可以肯定邮件服务器接受了邮件以进行传递，并且问题出在上游某处。 检查邮件服务器日志。

您可以验证服务器是否实际接受这样的邮件：

C:\\> telnet mailserver 25
220 mailserver ESMTP
HELO clientname
250 mailserver
MAIL FROM:<joe.average@example.com>
250 2.1.0 Ok
RCPT TO:<joe.average@example.com>
250 2.1.5 Ok
DATA
354 End data with <CR><LF>.<CR><LF>
Subject: test

test
.
250 2.0.0 Ok: queued as 4541E2227
QUIT

QUIT命令之前的行表示服务器接受了邮件。 实际的响应文本可能会根据使用的MTA而有所不同，但每个MTA都会在接受消息时响应某些行。

Answer 3

您需要先安装CDonts库。 在microsoft.com上搜索CDONTS库并安装相同的文件。

如果您想在没有安装的情况下发送，请尝试第二种方法。 你必须初始化对象。 在该示例中，我删除链接中的h，因为我无法发布链接

1. CDO.MESSAGE

   '通过QTP发送电子邮件的脚本很好设置oMessage = CreateObject（“CDO.Message”）

   '==此部分提供远程SMTP服务器的配置信息。 '==通常您只会更改服务器名称或IP。 oMessage.Configuration.Fields.Item _（“ttp：//schemas.microsoft.com/cdo/configuration/sendusing”）= 2

   '远程SMTP服务器的名称或IP oMessage.Configuration.Fields.Item _（“ttp：//schemas.microsoft.com/cdo/configuration/smtpserver”）=“”

   '服务器端口（通常为25）oMessage.Configuration.Fields.Item _（“ttp：//schemas.microsoft.com/cdo/configuration/smtpserverport”）= 25

   oMessage.Configuration.Fields.Update oMessage.Subject =“Test Mail”oMessage.Sender =“”oMessage.To =“”'oMessage.CC =“”'oMessage.BCC =“”oMessage.TextBody =“来自QTP的测试邮件“＆vbcrlf＆”问候，“＆vbcrlf＆”测试“oMessage.Send

   设置oMessage = Nothing