sending worksheet by email using control button

I'm not the most qualified but I'll try to help you.

There are two ways to do this. The first (easier) opens an email, attaches the active worksheet and the user types in your email address, subject and text, then clicks send.

The second (harder) is invisible to the user. They click the button and the VB sends a predefined email to predefined recipients.

Method 1: create a control button, right-click it and select "View Code.". In the blank code, insert
Application.Dialogs(xlDialogSendMail).Show

Method 2: I've gotten this to work only with some luck and by copying code from other forum responses. Here's some sample code.

'Select the worksheet with the range to be sent.
Worksheets("SheetName").Activate

' Select the range of cells on the active worksheet.
ActiveSheet.Range("RangeName").Select 'name of your predefined range
ActiveWorkbook.EnvelopeVisible = False 'this keeps the email from showing on screen.

With ActiveSheet.MailEnvelope
.Introduction = "Here is a correction I made"
.Item.To = "[email protected]"
.Item.Cc = "[email protected]" 'if you want someone cc'd on the message
.Item.Subject = "Correction to the phone list"
.Item.Send
End With


If I've assumed to much familiarity with VB or control buttons, let me know and I'll try to provide details. Also, maybe others can help if they see I've not explained this very well. Hope it helps!

Matt

Matt,


Thanks for your post. The second option sounds good to me as we would like the whole operation of this to be foolproof to the end user.

However my skills are severely limited re VB i.e almost none, but I am going home tonight to put it to the test.



Regards

Colin