close

Set objEmail = CreateObject("CDO.Message")
objEmail.From = "john@mail.mydomain.corp"
objEmail.To = "bob@mail.mydomain.corp"
objEmail.Cc = "jack@mail.mydomain.corp"
objEmail.Subject = "Web Server Daily Report " & year(date) & Right("0" & Month(Date()),2) & Right("0" & Day(Date()),2)
objEmail.Textbody = "Web Server Daily Log Report "
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.mydomain.corp"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.AddAttachment"C:\report.txt"
objEmail.Send

 

 

如上sctipt ，可讓Windows 機器透過Mail Server 的SMTP發送信件

而信件中會夾帶檔案 report.txt

mail server 的位置：mail.mydomain.corp

若Mail server 需認證才能發信，要先在mail server 上先排除Windows 主機的IP

arrow
arrow
    全站熱搜

    Johnson 發表在 痞客邦 留言(0) 人氣()

    E-mail轉寄