bigger_david

' *********************  SENDING EMAIL HERE  ****************************

Dim MyMail
Email = (Request.Form("Email"))
Set MyMail = CreateObject("CDO.Message")

	MyMail.From = "OCTC Alerts"
	MyMail.To ="david.bigger@kctcs.edu"
	MyMail.Subject = "CONFIRMATION - Signing up for text alerts"
	MyMail.TextBody = "This email is to confirm you signed up for Text Alerts from Owensboro Community & Technical College. If you did not sign up for this service please contact octc.webmaster@kctcs.edu. Thank You!"

	MyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network).
	MyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ezsmtp.kctcs.edu"
	MyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
	MyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)
	MyMail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60

	MyMail.Configuration.Fields.Update
	
	MyMail.Send

Set MyMail = nothing

%>