I made another post concerning this yesterday but have yet to find a helpful answer.
I am trying create a page to allow people to submit resumes via our webpage. I decided it would be easiest to write it into a simpe cdo format, but I am getting an error whenever I attempt to attach a file and send.
Here is the error I am getting:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'Request.Form(...).AddAttachment'
Here is the code that I'm using:
<%
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 = Request.Form("email")
.To = "mail@mail.com"
.Subject = Request.Form("subject")
.TextBody = Request.Form("body")
.AddAttachment = Request.Form("resume")
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Any help would be greatly appreciated. Thanks in advance.
I am trying create a page to allow people to submit resumes via our webpage. I decided it would be easiest to write it into a simpe cdo format, but I am getting an error whenever I attempt to attach a file and send.
Here is the error I am getting:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method: 'Request.Form(...).AddAttachment'
Here is the code that I'm using:
<%
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 = Request.Form("email")
.To = "mail@mail.com"
.Subject = Request.Form("subject")
.TextBody = Request.Form("body")
.AddAttachment = Request.Form("resume")
.Send
End With
Set cdoMessage = Nothing
Set cdoConfig = Nothing
%>
Any help would be greatly appreciated. Thanks in advance.