I am trying to send emails to people on a mailing list, and I need to attach word documents (20 to 40 K docs)on each email. <BR><BR>As I loop through the recordset, the first few emails with their attachemnts are sent out successfully. But after about 7 to 10 emails are sent, the program encounters an error: "method&#039~&#039of&#039~&#039object failed.<BR><BR>My code looks like this:<BR><BR>while not RS.eof<BR> Set objNewMail = CreateObject("CDONTS.NewMail")<BR> objNewMail.To = recipient email<BR> objNewMail.From = my email<BR> objNewMail.Subject = "Subject"<BR> objNewMail.MailFormat = 0<BR> objNewMail.Body = strMessage<BR> objNewMail.AttachFile strFileName1<BR> objNewMail.AttachFile strFileName2<BR> objNewMail.Send<BR> Set objNewMail = Nothing<BR><BR> RS.movenext<BR>wend<BR><BR>