自由手記

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11

Set Mail2 = Server.CreateObject("Persits.MailSender")
  Mail2.Host   = "mail...tw"
  Mail2.From   = "@gmail.com"
  Mail2.FromName  = "服務"
  Mail2.Subject  = "[" & Date() & "]" & "系統"
  Mail2.Charset = "Big5"
  Mail2.IsHTML = True
  Mail2.AddAddress ""&email&"","u0116809@nkfust.edu.tw"
  Mail2.body = "已收。<br>日期"&datestr&"<br>:"&carid&"<br>:"&eventstr&"<br>:"&local&"<br>意見:"&content&""
  Mail2.Send
  set Mail2 = Nothing