VBScript 寄送Email

strUser = "寄件者帳號"
strPasswd = "寄件者密碼"
strLogFile = "附件檔案路徑名稱"
strSMTP = "SMTP Server FQDN or IP"
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "寄信者信箱"
objEmail.To = "收信者信箱"
objEmail.Subject = "主旨：3DS檔案"
objEmail.Textbody = "信件內文"
objEmail.Addattachment strLogFile
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = strSMTP
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = strUser
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = strPasswd
objEmail.Configuration.Fields.Update
objEmail.Send

‘ 刪除已寄出的 Log File
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile(strLogFile)

以上轉至

http://122.147.149.155/ce4u/?p=361

以上轉至