mahesha - 2006-08-13 05:41:43

Hi all,

I need to send a file attachment with my email to the selected users here mail sending works properly
but i can't send the attached file with that can anyone help me on this

here is my coding :

Code::

Dim obj
subject = Request.Form("subject")
body = Request.Form("body")

if subject <> "" then

str3=split(session("data"),",")
response.write(session("data"))
for i =0 to ubound(str3) 
set obj = server.CreateObject("Cdonts.Newmail") 
obj.To = str3(i)
obj.From ="mahesha@webcaresys.net" 
obj.Subject = subject
obj.Body = body 
'FreeTools = Request.Form("T2")
'obj.AttachFile(FreeTools)
obj.Send


Next 


end if

//-----------------
this is the field to fasilitate the file attachment

//-----------------------
<td width="115" bgcolor="#fffdf0"><font class="smalltxt"> </font><font class="smalltxt">Attach File</font></td>
<td width="495" bgcolor="#fffdf0">  <input type="file" name="T2" size="23" class="design"></td>
//---------------------------------

Need ur help