How do get Outlook Responses to Update Excel Spreadsheet

[Down_Under]

Hi, I am trying to use a spreadsheet to track responses that I receiving via Outlook. The responses are confidential, so I can't have the spreadsheet shared for users to update. What would be the best way to have the responses entered into the spreadsheet, without it being overly manual? My initial thought was using the voting buttons, then copying from the tracking page, but each user will have a different response.

Thank you for your help.

 

[Worf]

Hi

This code extracts information from items in an Outlook folder:

' Excel module
Sub GetFromInbox()
Dim olapp As Outlook.Application, olNS As Namespace, Fldr As MAPIFolder, _
olMail As Object, i%, ts As Worksheet
Set ts = Sheets("test")                                 ' where to paste info
Set olapp = New Outlook.Application
Set olNS = olapp.GetNamespace("MAPI")
Set Fldr = olNS.GetDefaultFolder(olFolderInbox)         ' desired folder
i = 1
For Each olMail In Fldr.Items
    If TypeOf olMail Is MailItem Then                   ' only mail items
        i = i + 1
        ts.Cells(i, 1) = olMail.Subject
        ts.Cells(i, 2) = olMail.SenderName
        ts.Cells(i, 3) = olMail.Body
        ts.Cells(i, 4) = olMail.ReceivedTime
    End If
Next
Set Fldr = Nothing
Set olNS = Nothing
Set olapp = Nothing
End Sub