Hi guys can you please help me where I am wrong in my code since I can get email but with no attachment.
Thanks,
Elham
----------------
<!--METADATA TYPE="typelib" UUID="CD000000-8B95-11D1-82DB-00C04FB1625D" NAME="CDO for Windows Library" -->
<!--METADATA TYPE="typelib" UUID="00000205-0000-0010-8000-00AA006D2EA4" NAME="ADODB Type Library" -->
<%
SUB sendmail( fromWho, toWho, Subject, Body )
Dim objCDO
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = MailServer
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
Set objCDO.Configuration = iConf
objCDO.From = fromWho
objCDO.To = toWho
objCDO.Subject = Subject
objCDO.TextBody = Body
objCDO.Send
END SUB
Dim Domainname
Dim MailServer
Dim From
Dim subject1
Domainname = "pinepress.com"
MailServer = Request.Form("MailServer")
subject1 = "IDS-7934969 - "
fromWho = Request.Form( "fromWho") + "@pinepress.com"
toWho = Request.Form( "toWho") + "@hotmail.com"
toAttachment= request.Form("toAttachment")
Subject = TRIM( Request.Form( "Subject" ) )
Body = TRIM( Request.Form( "Body") )
send_mail = Request.Form( "send_mail")
If send_mail <> "" THEN
sendMail fromWho, toWho, Subject, Body
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
END IF
%>
<HTML>
<HEAD><TITLE>Email Form</TITLE></HEAD>
<FORM METHOD="POST" ACTION="<%=Request.ServerVariables("SCRIPT_NAME")% >">
<BR>Server:
<SELECT NAME="MailServer">
<option value="mail-fwd">mail-fwd
<option value="mail-fwd.boca15-verio.com">mail-fwd.boca15-verio.com
</select>
<BR>TO: <INPUT NAME="toWho" TYPE="text" SIZE=10>@hotmail.com
<BR>FROM: <INPUT NAME="fromWho" TYPE="text" SIZE=10>@pinepress.com
<BR>Attachment : <input name="toAttachment" type="file" />
<BR>SUBJECT: <INPUT NAME="Subject" TYPE="text" SIZE=25>
<BR><TEXTAREA NAME="Body" COLS=50 ROWS=5>This is a test for pinepress.com.</TEXTAREA>
<BR><INPUT TYPE="SUBMIT" VALUE="SUBMIT" name="send_mail">
</FORM>
</HTML>
