Como mostro os participantes obrigatórios na cópia impressa dos convites para reunião?

3

Eu imprimo cada reunião convidando meu chefe para reuniões. Ele gosta de ver quem é o organizador e quem são os participantes. Agora, no Outlook 2013, quando imprimo o convite da reunião, ele mostra apenas o nome do organizador e não os participantes necessários e os participantes opcionais. Existe uma função no Outlook 2013 que eu preciso ativar ou alterar?

    
por Kim 16.12.2015 / 18:08

1 resposta

2

quando imprimo o convite da reunião, só mostra o nome do organizador

and not the required attendees and optional attendees.

O Outlook oferece apenas suporte limitado para isso. Você pode usar as seguintes soluções alternativas.

Crie uma lista de participantes e respostas da reunião

This code sample gets the appointment details and attendees (along with their responses) and inserts it into a new Outlook message form, which you can print, send or copy the data for use in other applications.

Get a list of meeting attendees

Tested in Outlook 2007 and Outlook 2010. It should work in Outlook 2000 and up. Note that the code will trigger the security prompt.

Tested in Outlook 2007 and Outlook 2010. It should work in Outlook 2000 and up. Note that the code will trigger the security prompt.

Get Meeting Attendee List Macro

To use, open Outlook's VBA Editor by pressing Alt+F11. Right click on the Project1 in the left pane and choose Insert > Module. Copy this code and paste it into the Module.

Get the GetCurrentItem function from Outlook VBA: work with open item or selected item and paste it at the end of the module.

Then select or open a meeting you organized and run the macro to create a message containing the meeting details. The total counts of accepted, declined, tentative, and no response is added to the list.

Sub GetAttendeeList()

Dim objApp As Outlook.Application
Dim objItem As Object
Dim objAttendees As Outlook.Recipients
Dim objAttendeeReq As String
Dim objAttendeeOpt As String
Dim objOrganizer As String
Dim dtStart As Date
Dim dtEnd As Date
Dim strSubject As String
Dim strLocation As String
Dim strNotes As String
Dim strMeetStatus As String
Dim strCopyData As String
Dim strCount  as String 

On Error Resume Next

Set objApp = CreateObject("Outlook.Application")
Set objItem = GetCurrentItem()
Set objAttendees = objItem.Recipients

On Error GoTo EndClean:

' Is it an appointment
If objItem.Class <> 26 Then
  MsgBox "This code only works with meetings."
  GoTo EndClean:
End If

' Get the data
dtStart = objItem.Start
dtEnd = objItem.End
strSubject = objItem.Subject
strLocation = objItem.Location
strNotes = objItem.Body
objOrganizer = objItem.Organizer
objAttendeeReq = ""
objAttendeeOpt = ""

' Get The Attendee List
For x = 1 To objAttendees.Count
   strMeetStatus = ""
   Select Case objAttendees(x).MeetingResponseStatus
     Case 0
       strMeetStatus = "No Response (or Organizer)"
       ino = ino + 1
     Case 1
       strMeetStatus = "Organizer"
       ino = ino + 1
     Case 2
       strMeetStatus = "Tentative"
       it = it + 1
     Case 3
       strMeetStatus = "Accepted"
       ia = ia + 1
     Case 4
       strMeetStatus = "Declined"
       ide = ide + 1
   End Selec

   If objAttendees(x).Type = olRequired Then
      objAttendeeReq = objAttendeeReq & objAttendees(x).Name & vbTab & strMeetStatus & vbCrLf
   Else
      objAttendeeOpt = objAttendeeOpt & objAttendees(x).Name & vbTab & strMeetStatus & vbCrLf
   End If
Next


 strCopyData = "Organizer: " & objOrganizer & vbCrLf & "Subject:  " & strSubject & vbCrLf & _
  "Location: " & strLocation & vbCrLf & "Start:    " & dtStart & vbCrLf & "End:     " & dtEnd & _
  vbCrLf & vbCrLf & "Required: " & vbCrLf & objAttendeeReq & vbCrLf & "Optional: " & _
  vbCrLf & objAttendeeOpt & vbCrLf & "NOTES " & vbCrLf & strNotes

 strCount = "Accepted: " & ia & vbCrLf & _
  "Declined: " & ide & vbCrLf & _
  "Tentative: " & it & vbCrLf & _
  "No response: " & ino

Set ListAttendees = Application.CreateItem(olMailItem)
  ListAttendees.Body = strCopyData & vbCrLf & strCount
  ListAttendees.Display

EndClean:
Set objApp = Nothing
Set objItem = Nothing
Set objAttendees = Nothing
End Sub

Fonte Crie uma lista de participantes e respostas da reunião

Copiando a lista de participantes com respostas

Outlook 2010 and Outlook 2013 do allow you to copy the attendee information for direct usage in another application. To copy the information, open the meeting, expand the Tracking button and choose "Copy Status to Clipboard". You can now paste the attendee list in another application.

Copy meeting attendee list in Outlook 2010

You can copy the attendee responses in Outlook 2010 and Outlook 2013 and paste it in another application.

Note 1: The copied list is tab-delimited and might not be suitable for usage directly in Word. If you paste it in Excel first, then copy from Excel and paste in Word you’ll end up with a table which you can easily format in Word.

Note 2: If you want to update the responses so they will reflect whether they actually showed up or not see Manual meeting responds tracking

Fonte Imprima ou copie a lista de participantes da reunião

Imprimindo a lista de participantes com respostas

Outlook itself does not include the responses of the attendees when printing the meeting. A workaround would be to use the copy method as described above and print it from the application that you pasted the image or list in.

This above workaround might not be practical if you need to do this a lot and a screenshot image might look quite out of place when used in a professional meeting report.

A more streamlined solution can be achieved when using an add-in called Attendees Print from IMIBO. With this add-in you can…

- print directly the names of the people who have been invited to a meeting.
- print directly response status – Accepted, Declined, Tentative, None
- save/export report directly to Microsoft® Office Word
- save/export report directly to Microsoft® Office Excel
- save/export report as RTF file
- save/export report as Adobe PDF file
- save/export report as HTML file

enter image description here

Observe que o suplemento está disponível como software de avaliação e uma licença deve ser adquirida.

Fonte Imprima ou copie a lista de participantes da reunião

    
por 16.12.2015 / 18:25