Results 1 to 6 of 6
  1. #1
    Star Lounger
    Join Date
    Sep 2001
    Location
    Northern Virginia
    Posts
    71
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Export Outlook replys (2003, corporate)

    I have sent out a "save-the-date" Outlook invitation (invitation to attend a meeting) to about 100 people in our company for a shower. I want to send the actual "baby shower invitation" only to those people that have accepted or given tentative replies.

    How can I EXPORT the list of those people who have replied with accept/tentative to Excel or Word so I have checklist for other shower-related tasks? I would like to export the names of the people and the their e-mail addresses.

    TIA,
    gg

  2. #2
    Uranium Lounger
    Join Date
    Dec 2000
    Location
    Salt Lake City, Utah, USA
    Posts
    9,508
    Thanks
    0
    Thanked 6 Times in 6 Posts

    Re: Export Outlook replys (2003, corporate)

    Any one of the code samples in <!post=this thread,258,533>this thread<!/post> will put the response status into the Invitation body text. You can copy the text from there to Notepad or Excel or Word, then sort and delete the declining Invitees, then Find-&-Replace down to just the accepting Invitee Names. The code doesn't provide the email address, but since the Invitee addresses should have been resolved in the original Invitation, the Invitees should resolve to valid email addresses when you drop them into the new invititation.
    -John ... I float in liquid gardens
    UTC -7ąDS

  3. #3
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Export Outlook replys (2003, corporate)

    Not sure what you have as your data source. If you have a folder of individual messages, you could run a routine to list out all the senders, or all of the senders based on the subject line or some other criterion. However, if the data exists within an appointment or meeting request item, then above reply probably is the best answer.

  4. #4
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Export Outlook replys (2003, corporate)

    <P ID="edit" class=small>(Edited by jscher2000 on 16-Sep-06 12:20. Changed it a bit.)</P>With Excel in mind, or a Word table, this code simply plops a set of tab-delimited data into note item from where it can be copied and pasted. It's a little less "test-intensive" than the other versions, but it also doesn't try to do as much.

    <code>Sub ApptRespForPasting()
    ' Set object reference to the appointment
    If Inspectors.Count = 0 Then
    MsgBox "Open an appointment and try again.", vbExclamation + vbOKOnly
    Exit Sub
    ElseIf ActiveInspector.CurrentItem.Class <> olAppointment Then
    MsgBox "Open an appointment and try again.", vbExclamation + vbOKOnly
    Exit Sub
    Else
    Dim appt As Outlook.AppointmentItem
    Set appt = ActiveInspector.CurrentItem
    End If
    ' Extract response info into array
    Dim RespType() As String, strResp() As String, intCount As Integer
    RespType = Split("None|Organizer|Tentative|Accepted|Declined| NotResponded", "|")
    ReDim strResp(0 To appt.Recipients.Count)
    ' Capturing three fields...
    strResp(0) = "Name" & vbTab & "EmailAddress" & vbTab & "ResponseStatus"
    For intCount = 1 To appt.Recipients.Count
    With appt.Recipients.Item(intCount)
    strResp(intCount) = .Name & vbTab & .Address & vbTab & _
    IIf(.Name = appt.Organizer, "Organizer", _
    RespType(.MeetingResponseStatus))
    End With
    Next
    ' Insert tab-delimited string into a note item
    Dim nt As Outlook.NoteItem
    Set nt = CreateItem(olNoteItem)
    With nt
    .Body = Join(strResp, vbCrLf)
    .Display
    End With
    ' Clean up objects
    Set nt = Nothing
    Set appt = Nothing
    End Sub</code>

  5. #5
    Star Lounger
    Join Date
    Sep 2001
    Location
    Northern Virginia
    Posts
    71
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Re: Export Outlook replys (2003, corporate)

    Not being familiar with code (other than recognizing that it is beyond my skill sets), where do I cut and past your programming language, how do I save it, and how do I run it? <img src=/S/dizzy.gif border=0 alt=dizzy width=15 height=15>

    TIA,
    gg

  6. #6
    Super Moderator jscher2000's Avatar
    Join Date
    Feb 2001
    Location
    Silicon Valley, USA
    Posts
    23,112
    Thanks
    5
    Thanked 93 Times in 89 Posts

    Re: Export Outlook replys (2003, corporate)

    > where do I cut and past your programming language, how do I save it, and how do I run it?

    Yes, there's always a first time. <img src=/S/smile.gif border=0 alt=smile width=15 height=15> Try <post:=433,094>post 433,094</post:>.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •