Hello everyone,

I tried to GOOGLE a straight answer to my problem but have come up with nada.

All I want to do is attach more than one file to my email messages, via CDONTS in my ASP Code (is that so wrong?).

EX:
CDO_NEWMAIL.AttachFile Server.MapPath("MyFile1.pdf")

This works.

However:

CDO_NEWMAIL.AttachFile Server.MapPath("MyFile1.pdf",MyFile2.pdf")

and other variations just cause errors.

HELP!!!!

Thank you to anyone who can help,


Susan :)

__________________
Susan :)

Oh for Pete's sake ... I already answered my own question.

For anyone who wants to know, this is what worked:
<%
CDO_NEW.To = "[email protected]"
CDO_NEW.Subject = "Multiple attachments"
CDO_NEW.Body = "This email has more than one attachment."
CDO_NEW.AttachFile(Server.MapPath("MyFile1.pdf"))
CDO_NEW.AttachFile(Server.MapPath("MyFile2.pdf"))
CDO_NEW.Send
%>

Now all I have to do is figure out a way to make multiple attachments *dynamically*, based on the records in my database, but at least I know the syntax ... and that's half the battle!

Giving self congratulatory pat on back,



Susan :)

And now I've successfully programmed the CDONTS to *dynamically* attach multiple files!! Mind you, I leaned heavily on a thread I found here:
http://forums.aspfree.com/archive/t-...le-with-CDONTS

Without further ado:

<%
'|| Globally declare:
'|| 1) my array of files
'|| 2) the string variable will fill it.
Dim arrFiles,myArray

'||------------------------------------
'|| Begin SendMail Procedure
'||------------------------------------
Sub SendMail(iNumber) '|| iNumber is just a unique value being
                      '|| pulled from our database, like an OrderID
                      '|| or CustomerID, etc.

Dim CDO_MAIL,iArrCount


BuildAttachment '|| Call "BuildAttachment" Function;
                              '|| This will loop through recordset
                              '|| and find files to put in array.

arrFiles = Split(myArray,",") '|| Fill arrFiles array with string
                              '|| from BuildAttachment function.

Set CDO_MAIL = Server.CreateObject("CDONTS.NewMail")
CDO_MAIL.To = "[email protected]"
CDO_MAIL.From = "[email protected]"
CDO_MAIL.Subject = "There are several files attached to this note."
CDO_MAIL.Body = "ATTENTION! Files attached!"

For iArrCount = LBound(arrFiles) To UBound(arrFiles)
    CDO_MAIL.AttachFile(Server.MapPath(arrFiles(iArrCo unt)))
Next
CDO_MAIL.Send
End Sub

'||---------------------------------------------
'|| Begin BuildAttachment Function
'||---------------------------------------------
Function BuildAttachment(iNumber)
  Dim cnx, rsFiles, myFile, intFileNum

  '|| BUILD A SELECT STATEMENT HERE TO LOOP THROUGH
  '|| DATABASE, ie, "SELECT * FROM v_Records
  '|| "WHERE numID = " & iNumber
  Set rsFiles = cnx.ExecuteQuery()

  intFileNum = 0 '|| This counts the number of times we are
                  '|| going through the database and
                  '|| helps to keep attachment names unique.

  Do While Not rsFiles.EOF
     intFileNum = intFileNum + 1
     myFile = rsFiles("myValue") & "_attchmt" & intFileNum & ".pdf"

    '|| If there is more than one file, than make sure there
    '|| are commas separating the names in the array.
    '|| Otherwise, just fill it with the one name, no commas needed.
     If intFileNum > 1 Then
          myArray = myArray & "," & myFile
     Else
          myArray = myFile
     End If

  rsFiles.MoveNext
  Loop

End Function
%>

That's pretty much all there was to it. Now all I need is a way to clean out my folder after saving all those pdf files to it ... that should be the easy part of this puzzle!

Hoping this helps someone,

Susan :)