<%
Dim iMsg
Set iMsg = CreateObject("CDO.Message")
Dim iConf
Set iConf = CreateObject("CDO.Configuration")
Dim Flds
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "smtp.amplex.net"
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "kevdudley@hotmail.com"
.From = "webserver@amplex.net"
.Subject = "Message Subject"
.TextBody = "whatever you want in the body"
.Send
End With
%>
Contact Us
Office Hours: 8.30 a.m. - 4.00 p.m.
Church Office and St. Charbel Tel : 804.1305 Fax : 804.1306