How to send email with attachment?

GeeZee · December 10th, 2004, 02:42 AM

Okay this is so annoying me I am finally having to refrain from my pal google and move on to the mystical land of forums. :D

I am trying to get a asp-mailer setup that will send a specified attachment. I have tried both cdonts and cdosys methods ... both are giving me headaches.

And the best part is how incredibly helpful the error is: (Sarcasm Intended)

Error Type:
(0x80004005)
Unspecified error <-- They should change that error to ... "Good Luck!"
/knowledgetree/emailer-drivers.asp, line 90
I hilighted the above line in the code as well.

Here is the code I am working with:

Code:

<!-- These first two meta tag lines were added per a I suggestion I found on a forum somewhere.
I get the same error with or without them. And this is running on a WinXP Pro box BTW. -->



<%
Dim oAttach, DriverType, DriverVendor, DriverZip, email, html, oMail

DriverType    = request.form("type")
DriverVendor  = request.form("vendor")
DriverZip     = request.form("attached")

email         = request.form("email")

oAttach = "C:\tier1\knowledgetree\files\"
oAttach = oAttach & DriverType & "\"
oAttach = oAttach & DriverVendor & "\"
oAttach = oAttach & DriverZip

html = "Dear Subscriber:"
html = html & "<p>"
html = html & "<table>"
etc. etc...

Set oMail = Server.CreateObject("CDONTS.NewMail")

oMail.From       = "[email protected]"
oMail.To         = email
oMail.Subject    = "Requested Device Drivers"
oMail.BodyFormat = 1
oMail.MailFormat = 0
oMail.Importance = 1
oMail.Body       = html
oMail.Attachfile oAttach, "DevDrivers.zip", 1
%> 
Your Request Has Been Processed.
<P>
<a href="http://tier1/knowledgetree/bottom.asp">
<b>Home</b></a>

Thanks for any help
- Matthew

om_prakash · December 10th, 2004, 04:03 AM

Hi,

While specifying the attachment, you have to give the full path.
This could be something like :

oMail.AttachFile Server.MapPath("/somedirectory/bla.txt")

' or you could specify the path exactly if you knew it like below
oMail.AttachFile ("C:\inetpub\wwwroot\somedirectory\bla.txt")

Om Prakash

GeeZee · December 10th, 2004, 05:50 AM

I am specifying the full path though. In the variable 'oAttach'.

Code:

Dim oAttach, DriverType, DriverVendor, DriverZip, email, html, oMail

DriverType    = request.form("type")
DriverVendor  = request.form("vendor")
DriverZip     = request.form("attached")

email         = request.form("email")

oAttach = "C:\tier1\knowledgetree\files\"
oAttach = oAttach & DriverType & "\"
oAttach = oAttach & DriverVendor & "\"
oAttach = oAttach & DriverZip

And if I replace:
oMail.Attachfile oAttach, "DevDrivers.zip", 1

With:
response.write = oAttach

It prints the full desired path flawlessly.

- Matthew

om_prakash · December 10th, 2004, 09:43 AM

Please use full path and not other parameters with this variable.

oAttach = "C:\tier1\knowledgetree\files\"
oAttach = oAttach & DriverType & "\"
oAttach = oAttach & DriverVendor & "\"
oAttach = oAttach & DriverZip

This variable should only contain full path and file name.

Om Prakash

GeeZee · December 11th, 2004, 12:23 AM

What do you mean 'Other Parameters'? .... there are no other parameters.

Maybe I should explain this again.

I know that the variable 'oAttach' is storing correctly because when I call it using response.write ...
walla ... I get the following:

"C:\tier1\knowledgetree\files\usb\linksys\befcmu10 .zip"

So basically what that tells me is that:

oAttach = "C:\tier1\knowledgetree\files\" & DriverType & "\" & DriverVendor & "\" & DriverZip == "C:\tier1\knowledgetree\files\usb\linksys\befcmu10 .zip"

So ultimately what I really want to know is what the heck is the defference between:

oMail.Attachfile oAttach, "DevDrivers.zip", 1

and:

oMail.Attachfile "C:\tier1\knowledgetree\files\usb\linksys\befcmu10 .zip", "DevDrivers.zip", 1

If I cannot make it dynamic .... what's the point?

???
- Matthew

GeeZee · December 11th, 2004, 12:45 AM

Quote:

quote:' or you could specify the path exactly if you knew it like below
oMail.AttachFile ("C:\inetpub\wwwroot\somedirectory\bla.txt")

By the way ...

oMail.AttachFile ("C:\tier1\knowledgetree\files\usb\linksys\befcmu1 0.zip")

produces the same error.

- Matthew

surendran · January 7th, 2005, 04:29 AM

hi friend,

Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = "[email protected]"
objCDOMail.To = "[email protected]"
objCDOMail.Subject = "Hi Friends"
objCDOMail.BodyFormat= 0
objCDOMail.MailFormat = 0
objCDOMail.Body =str
objCDOMail.Importance = 2
objCDOMail.AttachFile("C:\Inetpub\wwwroot\mail\fil ename.htm")
objCDOMail.Send
Set objCDOMail = Nothing

suren

surendran
(Anything is Possible)