当前位置:  开发笔记 > 开发工具 > 正文

从Windows脚本发送邮件

如何解决《从Windows脚本发送邮件》经验,为你挑选了2个好方法。

我想从Windows Server 2003 Standard Edition上的脚本发送邮件.我认为服务器设置几乎是开箱即用的.

邮件服务器是Exchange服务器,当您在内部网络上时,可以使用普通的旧SMTP.我用我的机器用Perl完成了它,但不幸的是服务器上没有Perl.

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

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

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

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



1> PhiLho..:

使用CDO可以使用Wscript:

Dim objMail

Set objMail = CreateObject("CDO.Message")

objMail.From = "Me "
objMail.To = "You "
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使用CDO发送电子邮件 默认情况下,它似乎使用Outlook [Express],因此它在我的计算机上不起作用,但您可以使用给定的SMTP服务器,这对我来说很好.



2> Jacek Szymań..:

我不知道是否将.bat文件旁边的二进制文件计为安装软件,但如果没有,则可以使用blat来执行此操作.

推荐阅读
贾志军
这个屌丝很懒,什么也没留下!
DevBox开发工具箱 | 专业的在线开发工具网站    京公网安备 11010802040832号  |  京ICP备19059560号-6
Copyright © 1998 - 2020 DevBox.CN. All Rights Reserved devBox.cn 开发工具箱 版权所有