I have an Excel Workbook which is an activity report that is generated each month,<?xml:namespace prefix = o ns = "urn:schemas-microsoft-comfficeffice" /><o></o>
Once the report has been auto generated, I have it so it asks to send an email<o></o>
Form the code below, <o></o>
Private Sub Email ()<o></o>
Ans = MsgBox("Send Report Via Email", vbExclamation + vbYesNo, "Email")<o></o>
If Ans = vbYes Then<o></o>
ActiveWorkbook.SendMail _<o></o>
Recipients:="email address", _<o></o>
Subject:="Servicing Activity" & Format(Date, "dd/mm/yy")<o></o>
Else<o></o>
End If<o></o>
End Sub<o></o>
But what I want to do is be able to send this to either 1 person or sometimes more one recipients.<o></o>
Was going to use user form with OptionButtons with about 5 individual recipients and one option button called All so will send the workbook to all,<o></o>
But need some help as struggling to find code to do this,<o></o>
any help with this would be appreciated <o></o>
Once the report has been auto generated, I have it so it asks to send an email<o></o>
Form the code below, <o></o>
Private Sub Email ()<o></o>
Ans = MsgBox("Send Report Via Email", vbExclamation + vbYesNo, "Email")<o></o>
If Ans = vbYes Then<o></o>
ActiveWorkbook.SendMail _<o></o>
Recipients:="email address", _<o></o>
Subject:="Servicing Activity" & Format(Date, "dd/mm/yy")<o></o>
Else<o></o>
End If<o></o>
End Sub<o></o>
But what I want to do is be able to send this to either 1 person or sometimes more one recipients.<o></o>
Was going to use user form with OptionButtons with about 5 individual recipients and one option button called All so will send the workbook to all,<o></o>
But need some help as struggling to find code to do this,<o></o>
any help with this would be appreciated <o></o>