View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Sony Sony is offline
external usenet poster
 
Posts: 11
Default Send workbook automatically as attachment based on input from user

I have looked through several posts and on the ron bruin sites trying to find
the answer to my question. I currently have a workbook in which a user
submits a document to us by clicking a command button. All is working well
here because I am using an array with all the email addresses.

What I want to do to try & minimize the amount of people and the amount of
emails people are receiving is to open a userform and have checkboxes. Each
checkbox would be tied to an email address or group of email addresses.
Based on one or more of these being true, when the users would click on the
command button it would automatically send an email with the workbook
attached as I am doing now. I am not sure if the code I am currently using
can be modified to do this or if I have to start from scratch again. Below
is the current code I am using:

Private Sub CommandButton1_Click()
Dim Msg, Style, Title, Response
Msg = "Request Denied"
Style = vbYesNo + vbCritical + vbSubReq
Title = "Request Denied"
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
ActiveWorkbook.SendMail "), ("Request Denied by")
MsgBox ("The Denied Notification has been sent")

Thank you in advance for your help.
--
Sony