This should sort the changing of the numbers.
Andrew ;?
[VBA]
Sub MeetingInfo()
Dim ai As Outlook.AppointmentItem
Dim tempstring As String
Dim r As Recipient
'if there is one item selected and it's an appointment...
If ActiveExplorer.Selection.Count = 1 And _
ActiveExplorer.Selection.Item(1).Class = olAppointment Then
Set ai = ActiveExplorer.Selection.Item(1)
'go through the various properties and output them
With ai
'build a string with the meeting summary
tempstring = tempstring & .Start & Chr(13)
tempstring = tempstring & .End & Chr(13)
tempstring = tempstring & .Organizer & Chr(13)
tempstring = tempstring & .Recipients.Count & Chr(13)
End With
'add to the string a recipient response list
For Each r In ai.Recipients
tempstring = tempstring & r.Name & Chr(9)
Select Case r.MeetingResponseStatus
Case 0
tempstring = tempstring & "None" & Chr(13)
Case 2
tempstring = tempstring & "Tentative" & Chr(13)
Case 3
tempstring = tempstring & "Accepted" & Chr(13)
Case 4
tempstring = tempstring & "Declined" & Chr(13)
End Select
Next
'a message box with the recipient responses
MsgBox tempstring
End If
End Sub
[/vba]