How to send filtered range in email body?

[Benny]

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

http://support.microsoft.com/default.aspx?scid=kb;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...

 

[Ron de Bruin]

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

 

[Benny]

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