实用VBS发电子邮件代码，windows都可用

实用的VBS发送邮件，可以用于任务调度…… 部分代码如下 sFM = "eugene@163.com" sTO = "eugene@163.com" sFile = "C:\setuplog.txt" 'Call SendMailCDO(sFM,sTO,sTO,sTO,"Test Mail CDONTS","How are You!",sFile) Call SendMailCDO(sFM,sTo,"","","Test Mail CDO","How are You!",sFile) 'Call SendMailCDONTS(sFM,sTO,sTO,sTO,"Test Mail CDONTS","How are You!",sFile) WScript.Quit Sub SendMailCDONTS(sFM,sTO,sCC,sBCC,sSubject,sBody,sAttFile) Dim ObjMail Set ObjMail = CreateObject("cdonts.NewMail") ObjMail.From = sFM ObjMail.To = sTO ObjMail.CC = sCC ObjMail.BCC = sBCC