工作中遇到了一个需要实现定期发邮件的功能,邮件的收件人和内容都不变,需要早晚发两封。有实现这一功能的邮箱,但是需要收费,于是搜到了这个帖子如何实现每天定时发送邮件?。跟着操作,处理了一些问题后确实实现了这一功能。
问题一:bat脚本中的代码有误,call之后的文件名称需要改为sendmail.vbs
sendmail.vbs中的内容为
Set objEmail = CreateObject("CDO.Message")
Call SendMail()
Sub SendMail
objEmail.From = " " '发件人
objEmail.To = " " '收件人
objEmail.Subject = " " '主题
objEmail.Textbody = " " '电子邮件内容
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.163.com" 'SMTP服务器地址
objEmail.Configuration.Fields.Item _