martha
10-06-2004, 05:40 PM
Please, help me out, is there anything wrong with the code I'm using?
<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.freemail.gr"
cdoConfig.Fields.Update
set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig
cdoMessage.From=Request.Form("mail_address")
cdoMessage.To="antonioum@freemail.gr"
cdoMessage.Subject=Request.Form("subject")
cdoMessage.TextBody=Request.Form("message")
cdoMessage.Send
Set cdoMessage=Nothing
Set cdoConfig=Nothing
%>
It just won't work
<%
theSchema="http://schemas.microsoft.com/cdo/configuration/"
Set cdoConfig=server.CreateObject("CDO.Configuration")
cdoConfig.Fields.Item(theSchema & "sendusing")=2
cdoConfig.Fields.Item(theSchema & "smtpserver")="smtp.freemail.gr"
cdoConfig.Fields.Update
set cdoMessage=Server.CreateObject("CDO.Message")
cdoMessage.Configuration=cdoConfig
cdoMessage.From=Request.Form("mail_address")
cdoMessage.To="antonioum@freemail.gr"
cdoMessage.Subject=Request.Form("subject")
cdoMessage.TextBody=Request.Form("message")
cdoMessage.Send
Set cdoMessage=Nothing
Set cdoConfig=Nothing
%>
It just won't work