Mail to multiple users

Sumeluar

Board Regular
Joined
Jun 21, 2006
Messages
245
Hello all!


I'm using the following to e-mail excel, how can I add multiple users and if possible a popup box from where I can choose specific users?
===============================================
Dim wb As Workbook
Dim strdate As String
strdate = Format(Now, "mmmm dd yy hh-mm")
Application.ScreenUpdating = False
Sheets(Array("Breakdown Tracking Sheet")).Copy
Set wb = ActiveWorkbook
With wb
.SaveAs "Bruce Lauman's copy of " & ThisWorkbook.Name _
& " " & strdate & ".xls"
.SendMail "Mr.SoandSo@Somemail.com", _
"Breakdown Tracking Sheet"
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close True
End With
Application.ScreenUpdating = False
==============================================


Kind Regards!

Sumeluar
 

Excel Facts

Excel Can Read to You
Customize Quick Access Toolbar. From All Commands, add Speak Cells or Speak Cells on Enter to QAT. Select cells. Press Speak Cells.

Forum statistics

Threads
1,141,012
Messages
5,703,730
Members
421,312
Latest member
Mooncake1

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Top