• Hi All

    Please note that at the Chandoo.org Forums there is Zero Tolerance to Spam

    Post Spam and you Will Be Deleted as a User

    Hui...

  • When starting a new post, to receive a quicker and more targeted answer, Please include a sample file in the initial post.

Collect Data via Email

pspk

New Member
Hi All.

Is it possible to collect data into an excel sheet via email using outlook ?

What I mean is this:

I have an excel sheet containing about 700 rows of data in 32 columns.

And I need to send some or all of the rows to other users over network and get the updated details in some columns.
Can the updates received be incorporated into the original excel sheet i have automatically ?

This feature is available in Access (Collect Data via Email).
 
.
This macro will send the ACTIVE SHEET as an attachment to an email :

Code:
Option Explicit

Sub Email_Worksheet_As_Workbook()
    ActiveSheet.Copy
    With ActiveWorkbook
       
        Application.DisplayAlerts = False
        .SaveAs Environ("TMP") & "\tmp.xlsx", FileFormat:=xlWorkbookDefault, ConflictResolution:=xlLocalSessionChanges
        Application.DisplayAlerts = True
        .Close (True)
    End With
   
    With CreateObject("Outlook.Application").CreateItem(0)
        .To = "me@yahoo.com"
        .Subject = "Worksheet: " & ActiveSheet.Name
        .Body = ""
        .Attachments.Add Environ("TMP") & "\tmp.xlsx"
        .Display
        '.send
    End With
End Sub
 
Back
Top