|
 |
asp_cdo thread: creating an email
Message #1 by sunraytherapy@y... on Wed, 23 May 2001 15:46:28
|
|
hi folks
i have been too busy dealing with recordset and sql while managing my
company's web site. however they need is an email platform and i guess i
dont have much experience in that object. so how do i create an email
platform offcourse the form page is out of question. i ve written this
code it aint working meaning it does not access anything.
here is the code
what it does is that it collects the form collection
/////////////////////////////////////////////////////////////
<%Dim CR , strfrom, strto, strsub, strmsg
strfrom=request.form("from")
strto=request.form("to")
strsub=request.form("sub")
strmsg=request.form("message")
response.write strfrom&"<br>"&strto&"<br>"&strsub&"<br>"&strmsg
Dim MailText
Dim oCDONTSMail
CR = Chr(10) & Chr(13)
Set oCDONTSMail= CreateObject("CDONTS.NewMail")
oCDONTSMail.From= strfrom
oCDONTSMail.To= session(""&strto&"")
oCDONTSMail.Cc= "info@v..."
oCDONTSMail.Subject=strsub
MailText= strmsg & CR
oCDONTSMail.Body= MailText
oCDONTSMail.Send
set oCDONTSMail=nothing
%>
///////////////////////////////////////////////////////////////////////
what do i need to get my email working
thanx
Message #2 by Eli Schilling <eschilli@t...> on Wed, 23 May 2001 09:44:15 -0700
|
|
Do you have an SMPT service of some sort running on the web server?
-----Original Message-----
From: sunraytherapy@y... [mailto:sunraytherapy@y...]
Sent: Wednesday, May 23, 2001 8:46 AM
To: ASP CDO
Subject: [asp_cdo] creating an email
hi folks
i have been too busy dealing with recordset and sql while managing my
company's web site. however they need is an email platform and i guess i
dont have much experience in that object. so how do i create an email
platform offcourse the form page is out of question. i ve written this
code it aint working meaning it does not access anything.
here is the code
what it does is that it collects the form collection
/////////////////////////////////////////////////////////////
<%Dim CR , strfrom, strto, strsub, strmsg
strfrom=request.form("from")
strto=request.form("to")
strsub=request.form("sub")
strmsg=request.form("message")
response.write strfrom&"<br>"&strto&"<br>"&strsub&"<br>"&strmsg
Dim MailText
Dim oCDONTSMail
CR = Chr(10) & Chr(13)
Set oCDONTSMail= CreateObject("CDONTS.NewMail")
oCDONTSMail.From= strfrom
oCDONTSMail.To= session(""&strto&"")
oCDONTSMail.Cc= "info@v..."
oCDONTSMail.Subject=strsub
MailText= strmsg & CR
oCDONTSMail.Body= MailText
oCDONTSMail.Send
set oCDONTSMail=nothing
%>
///////////////////////////////////////////////////////////////////////
what do i need to get my email working
thanx
|
|
|
View Cart
