Dion,

send it to an ARRAY of addresses, like:

ActiveSheet.MailEnvelope.Item.To = Array("ROsborne","SomeBodyElse")



keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Dion" wrote:

I am trying to use MailEnvelope to send out multiple e-
mails. My problem is the code only works for the first e-
mail. When it gets to the second attempt at
using .MailEnvelope, I get a "Method 'MailEnvelope' of
object '_Worksheet' failed" message.
My code:
For i = 0 To 5
Sheets("Sheet1").Range("A1:F12").AutoFilter
Selection.AutoFilter Field:=6, Criteria1:=RptList(i)
ActiveSheet.MailEnvelope.Item.To = "ROsborne"
ActiveSheet.MailEnvelope.Item.Send
Next

Does anyone know why I can't get .MailEnvelope to work
more than once?
TIA
Dion