ASP.NET Forum

**elham** · 04-13-2006, 09:35 PM

Hi guys,
I am trying to send an email with attachment and finally with your help it works fine, file uploads to server first and then goes to email as an attachment but I did "hard code" the file name, and I don't know how to get the file name from

objCDO.AddAttachment Server.MapPath("\contact\footer.htm")
server for attach part!

I really appreciate if you help me on this part.

Many thanks,
Elham

------------ code ------------






<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("C:\Inetpub\wwwroot\stecs-dev\contact\")
Response.Write Count & " file(s) uploaded to C:\Inetpub\wwwroot\stecs-dev\contact\"
Response.write("<hr>")
%>
<%
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.AddAttachment (Server.MapPath("\contact\")& Upload.Form("toAttachment"))
objCDO.AddAttachment Server.MapPath("\contact\footer.htm")
objCDO.TextBody = Body
objCDO.Send
END SUB
Dim Domainname
Dim MailServer
Dim From
Dim subject1
Domainname = "webdev.stecs.com"
MailServer = Upload.Form("MailServer")
subject1 = "IDS-7934969 - "
fromWho = Upload.Form( "fromWho") + "@hotmail.com"
toWho = Upload.Form( "toWho") + "@stecs.com"
AddAttachment= Upload.Form("toAttachment")
Subject = TRIM( Upload.Form( "Subject" ) )
Body = TRIM( Upload.Form( "Body") )
send_mail = Upload.Form( "send_mail")
If send_mail <> "" THEN
sendMail fromWho, toWho, Subject, Body
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
END IF
%>

</BODY>
</HTML>

**createvibe.com** · 04-13-2006, 11:09 PM

don't use mapPath in the sub, use it on the variables you pass to the sub. remember that "/contact" will look to : root/contact

also, u are still using Upload.Form() as your attachment that should be the file object and the file object has a path member which you can reference the complete path from. refer to the other thread.

**elham** · 04-14-2006, 03:42 AM

Many thaks for your help. Can you please see I have done exactly what you suggested.

Thanks,
Elham
----------------------------







<HTML>
<BODY>
<%
Set Upload = Server.CreateObject("Persits.Upload")
Count = Upload.Save("C:\Inetpub\wwwroot\stecs-dev\contact\")
Response.Write Count & " file(s) uploaded to C:\Inetpub\wwwroot\stecs-dev\contact\"
Response.write("<hr>")
%>
<%
SUB sendmail( fromWho, toWho, AddAttachment1, 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.AddAttachment (Server.MapPath("\contact\")& Upload.Form("toAttachment"))
objCDO.AddAttachment AddAttachment1
objCDO.TextBody = Body
objCDO.Send
END SUB
Dim Domainname
Dim MailServer
Dim From
Dim subject1
Domainname = "webdev.stecs.com"
MailServer = Upload.Form("MailServer")
subject1 = "IDS-7934969 - "
fromWho = Upload.Form( "fromWho") + "@hotmail.com"
toWho = Upload.Form( "toWho") + "@stecs.com"
AddAttachment1= Upload.Files("toAttachment").path
Subject = TRIM( Upload.Form( "Subject" ) )
Body = TRIM( Upload.Form( "Body") )
send_mail = Upload.Form( "send_mail")
If send_mail <> "" THEN
sendMail fromWho, toWho, AddAttachment1, Subject, Body
'Server.MapPath("\contact\")
'Cleanup
Set ObjCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
END IF
%>

</BODY>
</HTML>