作者 主題: 粉方便的寄信程式  (閱讀 5325 次)

0 會員 與 1 訪客 正在閱讀本文。

duncanlo

  • SA 苦力組
  • 俺是博士!
  • *****
  • 文章數: 7311
    • 檢視個人資料
粉方便的寄信程式
« 於: 2002-07-04 12:37 »
從MS TechNet看到的,
不過附檔的方法還沒找到,
存成 .vbs 就行了,
直接執行就可以了...
記得改一下Form,To及smtp_server哦!

已設outlook
代碼: [選擇]
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test@mail.com.tw"
objEmail.To = "user@mail.com.tw"
objEmail.Subject = "Atl-dc-01 down"
objEmail.Textbody = "Atl-dc-01 is no longer accessible over the network."
objEmail.Send


未設outlook或smtp主機
代碼: [選擇]
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "test@mail.com.tw"
objEmail.To = "user@mail.com.tw"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
    ("smtp_server") = 2
objEmail.Configuration.Fields.Item _
    ("stmp_server") = _
        "smarthost"
objEmail.Configuration.Fields.Item _
    ("smtp_server") = 25
objEmail.Configuration.Fields.Update
objEmail.Send