Dim ContactName, Email, Message, sch
Dim OBJ_EMAIL
ContactName = Request.Form("op1")
Email = Request.Form("op2")
Message = Request.Form("op3")
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2
.Item(sch & "smtpserver") = "relay-hosting.secureserver.net"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = ContactName &"<"& Email &">"
.To = "[email protected]"
.Subject = "Contact Us"
.HTMLBody = "" & Message & ""
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
|