send_mail function question

[ass98]

i have a piece of code below which will email the current .xls file to everyone whos email address is in a range of cells specified

Sub Send_email()

Application.Dialogs(xlDialogSendMail).Show arg1:=Range("E3:E100").Value

End Sub

my problem is how can i email a particular sheet instead of the whole workbook?
This message was edited by ass98 on 2002-09-01 13:00

 

[Dragracer]

Try this code.

<pre>
Sub mailsheet()
ActiveSheet.Copy
ActiveWorkbook.SendMail _
Recipients:="me@abc.com", _
Subject:="(" & ActiveSheet.Name & ") Test 1,2"
ActiveWorkbook.Close False
End Sub
</pre>

Hope it helps

 

[ass98]

can i get this code to email multiple recipients in selected cells?

 

[Dragracer]

yes you can. If you have a sort list you can hardcode them.<pre>
Recipients:=Array("me@abc.com", "you@xyz.com")</pre>

For a long list use a range.<pre>
Sub mailsheet()
Dim mailrange As Range

Set mailrange = ActiveSheet.Range("A1:A10")
ActiveSheet.Copy
ActiveWorkbook.SendMail _
Recipients:=mailrange.Value, _
Subject:="(" & ActiveSheet.Name & ") Test 1,2"

ActiveWorkbook.Close False
End Sub</pre>

Or you could loop through your range and send individual mail messages
This message was edited by Dragracer on 2002-09-01 16:15