There isn't enough memory.... Error

[Guest]

Hi there
I have the following code which sends reports via e-mail to managers listed
in the table.

With rst
Do Until .EOF
strSQL = Left(BaseSQL, Len(BaseSQL) - 3) & " WHERE [tblmanager].[id] = " &
!ID
qdf.SQL = strSQL
DoCmd.SendObject acSendReport, "rptTimesAm", "Snapshot Format", !Email, ,
, "Vehicle Reports Mornings", "See attachment", False
.MoveNext
qdf.SQL = BaseSQL
Loop
.Close
End With

After the the first e-mail is sent I get the following error

"There isn't enough memory to perform thsi operation. Close unneeded
programs and try this operation again"

My machine is running Win2000Pro & Office 2000 with 128mb ram
I then tried it on an XP machine with 1GB ram and get the same error .

Which makes me thing that the error message is wrong.

If I use the same code and use this
DoCmd.OutputTo acOutputReport, "rptTimesam", "snapshot format", strPath &
"Morning Report " & !ManagerID & ".snp"

then the reports are created ok

Any help greatfully appreciated.
If this is the wrong forum please let me know.

Thanks
Graham

 

[Guest]

I did not know that Excel had these memory limits.

http://support.microsoft.com/default.aspx?scid=kb;en-us;313275