Question

我想从Windows Server 2003 Standard Edition上的脚本发送邮件。我认为服务器设置非常开箱即用。

邮件服务器是Exchange服务器，当您在内部网络上时，可以使用普通的旧SMTP。我已经使用Perl在我的机器上完成了它，但遗憾的是服务器上没有Perl。

是否有一种简单的方法可以从.bat文件或其他不需要安装其他软件的方式执行此操作？

Edit:
感谢您的快速回复。 “blat”thingie可能会正常工作但是使用wscript我不必使用单独的二进制文件。

我第一次编辑和选择答案时没有看到PhiLho的帖子。我不需要在这里复制代码。

只需将脚本保存到文件中，例如sendmail.vbs，然后从命令提示符中调用它，如下所示：
wscript sendmail.vbs

Answer 1

使用CDO可以使用Wscript：

Dim objMail

Set objMail = CreateObject("CDO.Message")

objMail.From = "Me <Me@Server.com>"
objMail.To = "You <You@AnotherServer.com>"
objMail.Subject = "That's a mail"
objMail.Textbody = "Hello World"
objMail.AddAttachment "C:\someFile.ext"

---8<----- You don't need this part if you have an active Outlook [Express] account -----
' Use an SMTP server
objMail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

' Name or IP of Remote SMTP Server
objMail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
    "smtp.server.com"

' Server port (typically 25)
objMail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMail.Configuration.Fields.Update
----- End of SMTP usage ----->8---

objMail.Send

Set objMail=Nothing
Wscript.Quit

更新：在那里找到更多信息：VBScript To Send Email Using CDO 默认情况下，它似乎使用Outlook [Express]，因此它在我的计算机上不起作用，但您可以使用给定的SMTP服务器，这对我来说很好。

Answer 2

我不知道在.bat文件旁边删除二进制文件是否算作安装软件，但如果没有，则可以使用blat来执行此操作。

Answer 3

如果服务器发生（我意识到这个问题有多久）安装了Powershell v2，那么CmdLet Send-MailMessage就可以在一行中完成。

Send-MailMessage [-To] <string[]> [-Subject] <string> -From <string> [[-Body] <string>] [[-SmtpServer] <string>] [-Attachments <string[]>] [-Bcc <string[]>] [-BodyAsHtml] [-Cc <string[]>] [-Credential <PSCredential>] [-DeliveryNotficationOption {None | OnSuccess | OnFailure | Delay | Never}] [-Encoding <Encoding>] [-Priority {Normal | Low | High}] [-UseSsl] [<CommonParameters>]