自動メールのスクリプト(転送)

       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