Hi, I am using a code very similar to the one mentioned i

http://support.microsoft.com/default...b;en-us;816644

except I use advanced filter criteria to mark my range

The idea is that I send different tasks to different people, and then they reply back to me, filling in the blanks of "their" sheet

This works generally well, but a few of them (those with OL2003) suddently see the whole sheet when they reply to the mail

In OL2002 it was a question of setting "use word to edit emails", but that doesn't work anymore

Does anybody know if this is a setup problem (Excel or Outlook) or if I need to edit my macro

I thought that the whole "body" idea was to avoid enclosing the whole sheet...

Hi Benny

If you don't use pictures on your sheet you can use the code on my site
http://www.rondebruin.nl/sendmail.htm#body

Look at
http://www.rondebruin.nl/files/SelectionOutlookBody.txt


Or easier use my Add-in for Outlook
http://www.rondebruin.nl/sendmail.htm#Add-in

I hope I have time to test your problem this week


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Benny" wrote in message ...
Hi, I am using a code very similar to the one mentioned in

http://support.microsoft.com/default...b;en-us;816644 ,

except I use advanced filter criteria to mark my range.

The idea is that I send different tasks to different people, and then they reply back to me, filling in the blanks of "their"
sheet.

This works generally well, but a few of them (those with OL2003) suddently see the whole sheet when they reply to the mail.

In OL2002 it was a question of setting "use word to edit emails", but that doesn't work anymore.

Does anybody know if this is a setup problem (Excel or Outlook) or if I need to edit my macro?

I thought that the whole "body" idea was to avoid enclosing the whole sheet...

Thanks for the reply, but I've already tried using your code, and I couldn't get it to work the way I wanted it to, until I used the link to MS from your site (I am using OL2002-SP2 myself)

Anyway, yesterday I didn't have the code to attach, but here it is (the macro contains several of these blocks)

XX
Columns("A:H").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range
("K9:L11"), Unique:=Fals
Range("A1").Selec
Range(Selection, Selection.End(xlToRight)).Selec
Range(Selection, Selection.End(xlDown)).Selec


If Selection.Rows.Count < 3 Then GoTo YY

' Show the envelope on the ActiveWorkbook
ActiveWorkbook.EnvelopeVisible = Tru


With ActiveSheet.MailEnvelop
.Introduction = "Please reply only once a week.
.Item.To = "XX
.Item.Subject = "Maintenance and calibration
.Item.Sen
End Wit