extract voting information from Outlook 2007


When you send an email with voting options at the top of the email responses you get back there is a can section containing the senders response. Right click on this and you can view voting responses, which is a detailed list of how people responded to the email.

I am trying to get this voting information out of some emails and put it into some other format, e.g. XML or a text file.

Can anyone explain to me how to do this ? Preferably with a VB Script or VBA Macro


Who is Participating?
David LeeConnect With a Mentor Commented:
Hi, ertnev74.

Here is some sample code that extracts the voting information from the sent item.  This sample displays the response int eh immediate pane of the code editor.  You can change it to output the information in XML, CSV, etc.
Sub VotingResponses()
    Dim olkMsg As Outlook.MailItem, olkRecipient As Outlook.Recipient
    Set olkMsg = Application.ActiveExplorer.Selection(1)
    For Each olkRecipient In olkMsg.Recipients
        Debug.Print olkRecipient.AutoResponse
    Set olkRecipient = Nothing
    Set olkMsg = Nothing
End Sub

Open in new window

ertnev74Author Commented:
Hi BlueDevilFan,

I have tried this but I only seem to be able to extract the first set of response info from the email, even though the report contains multiple entries.

Any suggestions ? I think it might have something to do with it check the recipients ? Is it possible to code a lone similar to this one ??

    For each voteresponds in objectmsg.voteresponses ????


David LeeCommented:
"I only seem to be able to extract the first set of response info from the email"
I don't understand what you mean by "first set of response info".  Do you mean that it only returns one person's vote and not the vote from all recipients?

"For each voteresponds in objectmsg.voteresponses ????"
That's exactly what the code I posted does.  Each recipient has one vote and that vote is stored in the "AutoResponse" property.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.