Hi,
Hoping someone can help. I have a form that i have created and i need it to that the user can attach a file then get the form to send the file.
Please have a look at my current code:
[code]
<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=1
cdoConfig.Fields.Item(theSchema & "smtpserver")="***"
cdoConfig.Fields.Update
set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig
cdoMessage.From="**@**.com"
cdoMessage.To="**@**.com"
cdoMessage.Subject="EMAIL FORM"
strBody = "User: " & request.form("name") & vbCrLf & "Ext: " & request.form("ext") & vbCrLf & "Problem: " & request.form("problem")
cdoMessage.TextBody=strBody
cdoMessage.Send
Set cdoMessage=Nothing
Set cdoConfig=Nothing
%>
Hoping someone can help. I have a form that i have created and i need it to that the user can attach a file then get the form to send the file.
Please have a look at my current code:
[code]
<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=1
cdoConfig.Fields.Item(theSchema & "smtpserver")="***"
cdoConfig.Fields.Update
set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig
cdoMessage.From="**@**.com"
cdoMessage.To="**@**.com"
cdoMessage.Subject="EMAIL FORM"
strBody = "User: " & request.form("name") & vbCrLf & "Ext: " & request.form("ext") & vbCrLf & "Problem: " & request.form("problem")
cdoMessage.TextBody=strBody
cdoMessage.Send
Set cdoMessage=Nothing
Set cdoConfig=Nothing
%>
