I am tyring to setup a form that will create an email. The email is being sent find but the email subject and email body is not being placed into the email.
Here is my current code:
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 'CDO SEND USING PORT NUMBER
.Item(sch & "smtpserver") = "smtp.server.net"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "me@me.com"
.To = "you@you.com"
.Subject = Request.Form('subject")
.TextBody = Request.Form("body")
.AddAttachment "c:\access\resume.txt"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Thanks in advance for any help.
Here is my current code:
<%
sch = "http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig = CreateObject("CDO.Configuration")
With cdoConfig.Fields
.Item(sch & "sendusing") = 2 'CDO SEND USING PORT NUMBER
.Item(sch & "smtpserver") = "smtp.server.net"
.update
End With
Set cdoMessage = CreateObject("CDO.Message")
With cdoMessage
Set .Configuration = cdoConfig
.From = "me@me.com"
.To = "you@you.com"
.Subject = Request.Form('subject")
.TextBody = Request.Form("body")
.AddAttachment "c:\access\resume.txt"
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Thanks in advance for any help.