I want to email excel sheets in a workbook 
Author Message
 I want to email excel sheets in a workbook

I have a workbook with several sheets each of which needs
to be emailed to a different individual.  How do I do this
easily from outlook?


Fri, 02 Dec 2005 15:28:04 GMT  
 I want to email excel sheets in a workbook
Try a Google search within microsoft.public.excel.programming - very
likely it has been covered in there. If no go, ask the same question
in that NewsGroup -regards
Paul

Quote:
> I have a workbook with several sheets each of which needs
> to be emailed to a different individual.  How do I do this
> easily from outlook?



Sat, 03 Dec 2005 16:51:16 GMT  
 I want to email excel sheets in a workbook
Christina:
Below is a quick excert from a project I am working on
the application is for a Task, but just replace the
TaskItem with a Mailitem. In addition you need to add
the reference, "Microsoft Outlook 8.0 Object Libiary",
(Tools => References on the tool bar). Try the sheets as
mail attachments? You may not be able to seperate the
sheets from the file as attachments? Good Luck! Creating
the Email from another application is half the battle.
Bruce

Public Sub OriginatorTask()
'Creates task for originator
Dim objOutlook As Outlook.Application
Dim objOutlookTask As Outlook.TaskItem
     Set objOutlook = CreateObject("Outlook.Application")
     Set objOutlookTask = objOutlook.CreateItem(olTaskItem)
With Worksheets("Sheet Name")
    objOutlookTask.Subject = ""
    objOutlookTask.Body = ""(Application.UserName)
    objOutlookTask.ReminderSet = True
    objOutlookTask.DueDate = DateAdd("ww", 3,Now) 'Due 3
Weeks from Now
    objOutlookTask.ReminderTime = DateAdd("ww", -1,
(objOutlookTask.DueDate))  'Remind 7 Days from Due Date
    objOutlookTask.StartDate = Now 'Due 3 Weeks from Now
    objOutlookTask.Importance = (olImportanceHigh)
    objOutlookTask.Categories = ""
End With
    objOutlookTask.Display
    'objOutlookTask.Save
    Set objOutlook = Nothing
    Set objOutlookTask = Nothing
End Sub



Sat, 03 Dec 2005 22:12:10 GMT  
 
 [ 3 post ] 

 Relevant Pages 

1. Using Excel workbooks and sheet from Access

2. Word2000 Mail merge from selected sheet in Excel workbook

3. Selecting multiple sheets in an Excel workbook

4. Err 1004: Excel Workbook/Sheet Activate

5. Copy an Excel sheet without opening the workbook.

6. Somebody please help me to create an Excel Workbook w/sheets from VB4.0

7. VB or Excel VBA, accessing list of all the sheets in a workbook

8. Excel VBA: search multiple-sheets in a workbook

9. Write to, calculate, read from Excel workbook-sheet

10. ADO Connection to Excel - Finding the sheets in a workbook

11. sending email to a list in an excel sheet

12. Excel HRESULT: 0x800A03EC when using Workbooks.open or Workbooks._opentext in C#

 

 
Powered by phpBB® Forum Software