里歐's 布拉格

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "helpdesk@domain.com"
objEmail.To = "leo@domain.com"
objEmail.Cc = "leo@domain.com"
objEmail.Subject = "Web Server Daily Report " & year(date) & Right("0" & Month(Date()),2) & Right("0" & Day(Date()-1),2) 
objEmail.Textbody = "Sir, Web Server Daily (" & year(date) & Right("0" & Month(Date()),2) & Right("0" & Day(Date()-1),2) & ") Log Report As http://office/webtrends/Daily/" & year(date) & Right("0" & Month(Date()),2) & Right("0" & Day(Date()-1),2)  & "/index.html "
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
        "ms1.domain.com"
objEmail.Configuration.Fields.Item _
    ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update

objEmail.Send