I have this program working fine if I don't send any attachment. Once I do I encounter this error which line 69 is

         objMsg.Attachfile FileAttachment


Error Type:
Microsoft VBScript runtime (0x800A01B6)
Object doesn't support this property or method
/hfrrf/Administrator_email.asp, line 69



Can someone please help me figure out why I am encountering this problem.

Thanks,
Judy
<%

FileAttachment = Session("uploadfilename")

SUBMITTED = Request.Form("SUBMITTED")
If SUBMITTED = "TRUE" Then
  COMMENTS = Request.Form("COMMENTS")


' build email message
 MM = Chr(10) & Chr(13)
 MM = COMMENTS

' build mailing list

Set oRSMem=Server.CreateObject("ADODB.Recordset")
sqlString= "SELECT EmailAddress FROM Member WHERE MailingList = True;"
oRSMem.Open sqlString, objConn
MailList = ""

Do While NOT oRSMEM.EOF
MailList = MailList & oRSMem("EmailAddress") & ";"
oRSMem.MoveNext
Loop

oRSMem.Close
Set oRSMem = Nothing

Set objMsg = Server.CreateObject("CDONTS.NewMail")
objMsg.From = "[email protected]"
objMsg.BCC = MailList
objMsg.Subject = "Fund News Update"
objMsg.Body = MM
If Session("UploadFileName") <> " " Then
objMsg.Attachfile FileAttachment
End If
objMsg.Send
Set objMsg = Nothing

URL = "Administrator.asp"
Response.Redirect(URL)

End If
%>

I was able to make it work. The problem was I was not pointing it to the right directory.

Now I have another question. If I have more than one attachment, how do you go about it. Also what is the right way to capture more than one attachment? Let's say for example I have a Session Variable called uploadfilename and this has two filenames in it File1 and File2. Should I have captured the Filenames as File1,File2 separate them with a comma? I guess I need help on how to capture multiple attachments and how to send them.

Thanks,
Judy

Judy,
You seem to be heading in the right direction anyway.
You could seperate the file names as mentioned with a comma.
Split() the variable into an array.
Loop through the array attaching the files.


======================================
They say, best men are moulded out of faults,
And, for the most, become much more the better
For being a little bad.
======================================

Can you please show me a sample on how to split the variable into an array? If there are any websites you recommend me checking out I would appreciate it.
============================================
Split() the variable into an array.
Loop through the array attaching the files.
============================================

Thanks for your help.

Judy

array = Split(string, delimeter)

aryMyFiles = Split("file1,file2,file3", ",")

Thanks. I was able to get it to attach and e-mailed. The next problem I encountered was when I sent a test e-mail to myself and opened it in my earthlink account over the web seems like the files were being sent with Hex. When I opened it in Outlook Express or MS Outlook I did not encounter this problem. Is there something that I need to do so people openning this e-mail will see the files as attachments and the content of the files not being displayed as Hex or bunch of numbers and alphabets?

Thanks,
Judy

Not sure sorry,
Try adding

======================================
They say, best men are moulded out of faults,
And, for the most, become much more the better
For being a little bad.
======================================

That worked. Thanks again for the help.

No problem,
I am not 100% on this myself but it is something to do with setting the mail format to MIME, which is acceptable to most mail servers.

Maybe one of the others can provide some background to Judy and myself?

======================================
They say, best men are moulded out of faults,
And, for the most, become much more the better
For being a little bad.
======================================