Question

这是再次批量编写脚本。我尝试使用blat发送电子邮件，也尝试使用该组中某人提供的email.bat程序

使用mailto，我打开了窗口。但我真正想要的是将邮件自动发送给4个人。我有一个批处理脚本，每隔2小时检查一个特定文件的文件夹（例如.jpeg），如果文件出现，它应该向4个人发送电子邮件通知。

如果不是电子邮件，是否还有其他选项可以发送通知，以便可以通知用户jpeg文件已经出现？请帮忙。

Answer 1

这是VBScript，所以将它重命名为whatever.vbs

Set emailObj      = CreateObject("CDO.Message")
emailObj.From     = "dc@gail.com"
emailObj.To       = "dc@gail.com"
emailObj.Subject  = "Test CDO"
emailObj.TextBody = "Test CDO"

Set emailConfig = emailObj.Configuration
msgbox emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing")    = 2  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1  
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/smtpusessl")      = true 
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendusername")    = "YourUserName"
emailConfig.Fields("http://schemas.microsoft.com/cdo/configuration/sendpassword")    = "Password1"
emailConfig.Fields.Update

emailObj.Send

If err.number = 0 then Msgbox "Done"

通过批处理脚本

1 个答案: