hi experts,
i am using cdonts object to send mails to our registered users.everthing is working good.but now we want to put a page in our site to send the viewers contribution as attachment to my email id.
here is my code
*******************************8
pfrom="pto="raghuram23@hotmail.com"
psubject=Request.Form("subject"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
attach= Request.Form("files"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
pbody=Request.Form("body"
dim objCDO
dim sendhtml
dim reshtml
set objCDO =server.CreateObject("CDONTS.NewMail"![Wink ;) ;)](data:image/gif;base64,R0lGODlhAQABAIAAAAAAAP///yH5BAEAAAAALAAAAAABAAEAAAIBRAA7)
objCDO.To=pto
objCDO.From=pfrom
objCDO.Subject=psubject
objCDO.BodyFormat = 0
objCDO.MailFormat = 1
objCDO.Body=pbody
if len(attach)>0 then
objCDO.AttachFile attach
end if
objCDO.send
set objCDO=nothing
***************************
but it shows error on line objCDO.AttachFile. If i remove that line it works fine.
i need to gave option to send attachments.
please help me to solve this problem
thanx
with regards
webspy
i am using cdonts object to send mails to our registered users.everthing is working good.but now we want to put a page in our site to send the viewers contribution as attachment to my email id.
here is my code
*******************************8
pfrom="pto="raghuram23@hotmail.com"
psubject=Request.Form("subject"
attach= Request.Form("files"
pbody=Request.Form("body"
dim objCDO
dim sendhtml
dim reshtml
set objCDO =server.CreateObject("CDONTS.NewMail"
objCDO.To=pto
objCDO.From=pfrom
objCDO.Subject=psubject
objCDO.BodyFormat = 0
objCDO.MailFormat = 1
objCDO.Body=pbody
if len(attach)>0 then
objCDO.AttachFile attach
end if
objCDO.send
set objCDO=nothing
***************************
but it shows error on line objCDO.AttachFile. If i remove that line it works fine.
i need to gave option to send attachments.
please help me to solve this problem
thanx
with regards
webspy