一个自动发邮件的脚本（转）

把以下文件存為vbs文件，雙擊就可運行，也可以放到Job里去運行。
    Set cdo = CreateObject("CDO.Message")
    strCfg = "http://schemas.microsoft.com/cdo/configuration/"
    With cdo
        .Sender = "發送者郵件地址"
        .From = "發送者郵件地址"
        .To = "接收者郵件地址"
        .Fields("urn:schemas:mailheader:X-Priority") = 1 
        .Fields.Update 
        .Subject = "郵件標題"
        .TextBody = "郵件內容"
        .Configuration(strCfg   &   "smtpauthenticate")=1
        .Configuration(strCfg & "SendUsing") = 2
        .Configuration(strCfg & "smtpserver") = "發送郵件服務器地址"
        .Configuration(strCfg & "sendusername") = "發送者郵箱帳號"
        .Configuration(strCfg & "sendpassword") = "發送者郵箱密碼"
        .Configuration.Fields.Update
.send
    End With 
msgbox "發送完成"


来源：http://bbs.csdn.net/topics/100177135