If Send_Attachment > "" Then Email.AddAttachment Send_Attachment '郵件附件 End If
With Email.Configuration.Fields .Item(MS_Space"sendusing") = 2 '發信端口 .Item(MS_Space"smtpserver") = "smtp."You_ID(1) 'SMTP服務器地址 .Item(MS_Space"smtpserverport") = 25 'SMTP服務器端口 .Item(MS_Space"smtpauthenticate") = 1 'cdobasec .Item(MS_Space"sendusername") = You_ID(0) '你的郵件帳號 .Item(MS_Space"sendpassword") = You_Password '你的郵件密碼 .Update End With Email.Send '發送郵件 Set Email=Nothing '關閉組件
Send_Mail=True '如果沒有任何錯誤信息，則表示發送成功,否則發送失敗 If Err Then Err.Clear Send_Mail=False End If End Function
'以下是利用上面的函數發送帶附件的郵件例子 If Send_Mail("test@163.com","test","test2@163.com","","郵件主題","郵件內容","d:\test.exe")=True Then Wscript.Echo "發送成功" Else Wscript.Echo "發送失敗" End If
