Macro to send to multiple email addresses

Posted by DAS on September 07, 2001 11:25 AM

I am using the following macro to send an excel report to one email address. I want to send it to multiple email addresses...How do I change this macro to do that?

Sub SendIt()
Application.Dialogs(xlDialogSendMail).Show _
Arg1:="mr.x@mailbox.com", _
arg2:="Subject Line Text"
ActiveSheet.Shapes("CommandButton1").Select
End Sub

Thanks,
DAS

Posted by Stuart on September 21, 2001 2:26 AM

Hi Das,

Try using an array call like:
Arg1:=Array_("mr.x@mailbox.com", "mr.x@mailbox2.com")

Hope this does the trick.

Cheers.