Email only 1 worksheet in a workbook as an attachment..

HalfAce

MrExcel MVP

Joined

Apr 6, 2003

Messages

9,456

• Jul 9, 2007

• #2

Hello jalifid11,
Here are a couple ideas.
The first one will copy the active sheet (only) to a new (single sheet) workbook, name
the workbook with whatever the user enters into an inputbox and then email it to the address
you've hard coded into this routine.

Code:

Sub NameSaveAndEmailSingleSheet()
Dim NewBookName$, MyNewName$
NewBookName = InputBox("What do you want to name the workbook getting e-mailed?", "New workbook name. . .")
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=NewBookName
ActiveWorkbook.SendMail "TheAddressToEmailTo", "YourEmailSubjectTitle"
End Sub

The second one will do the same but won't ask for a new workbook name, and won't save
it, but simply email it to the address(es) provided in your code.

Code:

Sub EmailSingleSheetWithoutSaving()
ActiveSheet.Copy
ActiveWorkbook.SendMail "TheAddressToEmailTo", "YourEmailSubjectTitle"
End Sub

Note that you'll need to provide the email addies and subject title (if desired).

Hope it helps.

 

Upvote 0

J

jalifid11

Board Regular

Joined

Nov 17, 2006

Messages

168

• Jul 11, 2007

• #3

Emailing 1 worksheet in a Workbook - URGENT HELP NEEDED !!!

Those work, but the problem that I run into now is that some of the information that the form has, once it is emailed to the inbox I chose, when I open it, only have the information in the cell has been transferred...

What would be causing this? Is there a limitation of how many characters can be in a cell?

 

Upvote 0

J

jalifid11

Board Regular

Joined

Nov 17, 2006

Messages

168

• Jul 11, 2007

• #4

Emailing 1 worksheet in a Workbook - URGENT HELP NEEDED !!!

Those work, but the problem that I run into now is that some of the information that the form has, once it is emailed to the inbox I chose, when I open it, only half of the information in the cell has been transferred...

What would be causing this? Is there a limitation of how many characters can be in a cell?

 

Upvote 0

J

jalifid11

Board Regular

Joined

Nov 17, 2006

Messages

168

• Jul 11, 2007

• #5

I've tried looking at this from different sides... I can't seem to find out why it only allows and x amount of characters in a cell to be saved. Does anyone else have another way of trying to email 1 worksheet with VBA?

 

Upvote 0

R

RAM

Well-known Member

Joined

Oct 4, 2004

Messages

1,862

• Jul 11, 2007

• #6

Maybe a [very] stupid question: What version of Excel do you run? You can send a single page from the toolbar in Excel 2003.

RAM

 

Upvote 0

J

jalifid11

Board Regular

Joined

Nov 17, 2006

Messages

168

• Jul 11, 2007

• #7

Actually, it is 2003...

I found a workaround by putting in a "Text Box".. This overcame the limitation of the number of characters in a cell, in case anyone wanted to know...

Thanks...

 

Upvote 0

R

RAM

Well-known Member

Joined

Oct 4, 2004

Messages

1,862

• Jul 11, 2007

• #8

Are you e-mailing single sheets now?

Thanks for the tip.

RAM

 

Upvote 0

J

jalifid11

Board Regular

Joined

Nov 17, 2006

Messages

168

• Jul 12, 2007

• #9

Yep... sure am...works pretty good too...

 

Upvote 0