Can't send form values using CDO
Gang:
Here is code:
<%
msgSubject = "test"
msgBody = Request.form("WebsiteAddress")
sch = "http://schemas.microsoft.com/cdo/configuration/"
set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 ' cdoSendUsingPort
.Item(sch & "smtpserver") = "IP ADDR"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
set .Configuration = cdoConfig
.From = ""
.To = "EM ADDR"
' .Cc = ""
.Subject = msgSubject
.TextBody = msgBody
.Send
End With
set cdoMessage = Nothing
set cdoConfig = Nothing
%>
I can send text, but not form values. What am I missing?
Thank you in advance for prompt professional reply.
|