What is wrong with this code for generating email?

[khwaja]

I am using the following code to generate a spreadsheet version of the report and send it by email in Access 97. It works fine but when tried to invoke this module in XP 2002 envirironment on a converted copy of the database, it does nothing. Surprisingly, this code works fine for snapshot format in XP.

Any insights?


oCmd.SendObject acSendReport, "rptProjects", acFormatXLS, _
"email address", _
, , "WOW Project Design Progress", _
vbCrLf & "Dear Rod" & vbCrLf & vbCrLf & "Attached is the quarterly Project Progress report for your info." & _
vbCrLf _
& vbCrLf & "Cheers" & vbCrLf _
& vbCrLf & &quot;<Sender>&quot;, True

Cheers

AK

Note: Using Access 97 - still.

 

[julius1]

Try modifying it with this one.
DoCmd.OpenReport &quot;rptProjects&quot;, acViewPreview, , &quot;[Circuit ID]= '&quot; & strVal & &quot;'&quot;
DoCmd.SendObject acSendReport, , acFormatXLS, &quot;Email address&quot;, , , &quot;Dear Rod&quot;, &quot;Attached is the quarterly Project Progress report for your info&quot;
DoCmd.Close acReport, &quot;Circuit Timeslot List&quot;
You will need to do some modifying but I know the commands work with outlook.

 

[julius1]

Try modifying it with this one.
DoCmd.OpenReport &quot;rptProjects&quot;, acViewPreview, , &quot;[filter by if needed]= '&quot; & strVal & &quot;'&quot;
DoCmd.SendObject acSendReport, , acFormatXLS, &quot;Email address&quot;, , , &quot;Dear Rod&quot;, &quot;Attached is the quarterly Project Progress report for your info&quot;
DoCmd.Close acReport, &quot;Circuit Timeslot List&quot;
You will need to do some modifying but I know the commands work with outlook.

 

[julius1]

Try modifying it with this one.
DoCmd.OpenReport &quot;rptProjects&quot;, acViewPreview, , &quot;[filter by if needed]= '&quot; & strVal & &quot;'&quot;
DoCmd.SendObject acSendReport, , acFormatXLS, &quot;Email address&quot;, , , &quot;Dear Rod&quot;, &quot;Attached is the quarterly Project Progress report for your info&quot;
DoCmd.Close acReport, &quot;rptProjects&quot;
You will need to do some modifying but I know the commands work with outlook.

 

[julius1]

Sorry please go with the last one, my system had a bad hiccup.

 

[khwaja]

Thanks a lot for your help. I tried and there was compile error. So I added the following declaration (I hope that this was right thing to do).

strVal as string

When I tried to run, I got the following message which I really don't know what does this mean. I hope it is not due to the declaration I made.

Statement invalid outside type block

Look forward receiving a reply from you!

Cheers

AK

Note: Using Access 97 - still.