[VBS]使用腳本自動發送郵件

 'Ok

NameSpace="http://schemas.microsoft.com/cdo/configuration/"

Set Email=CreateObject("CDO.Message")

Email.From="[email protected]"        '發件人地址
Email.To="[email protected]"                '收件人地址
Email.Subject="Mail"                        '郵件標題

Email.Textbody="test"                    '郵件正文

Email.AddAttachment "C:/abc.txt"    '附件

With Email.Configuration.Fields
    .Item(NameSpace & "sendusing") = 2
    .Item(NameSpace & "smtpserver") = "smtp.mail.com"        '發件人SMTP服務器地址
    .Item(NameSpace & "smtpserverport") = 25                        '發件人SMTP服務器端口
    .Item(NameSpace & "smtpauthenticate")=1                        '郵箱需要身份驗證
    .Item(NameSpace & "sendusername") = "[email protected]"    '發件人地址
    .Item(NameSpace & "sendpassword") = "password"            '發件人郵箱密碼
    .Update
End With

Email.Configuration.Fields.Update

Email.Send

Set Email=Nothing