I took out the actual email addresses, but this is a sample from
Microsofts' site. I also tried the sample codes on that ASP site you
referred me to earlier.
<%
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "emailaddiereplaced here"
objEmail.To = "emailaddiereplaced here"
objEmail.Subject = "Server down"
objEmail.Textbody = "Server1 is no longer accessible over the network."
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
"MySMTPHost"
objEmail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
%>
*** Sent via Developersdex
http://www.developersdex.com ***