3

Я распечатываю каждое приглашение на встречу для моего босса, чтобы взять на встречи. Ему нравится видеть, кто организатор и кто участники. Теперь в Outlook 2013, когда я распечатываю приглашение на собрание, в нем отображается только имя организатора, а не обязательные и необязательные участники. Есть ли в Outlook 2013 функция, которую нужно включить или изменить?

1 ответ1

2

когда я распечатываю приглашение на собрание, в нем отображается только имя организатора

а не обязательные участники и необязательные участники.

Outlook предлагает только ограниченную поддержку для этого. Вы можете использовать следующие обходные пути.


Создайте список участников собрания и ответов

Этот пример кода получает сведения о встрече и участников (вместе с их ответами) и вставляет их в новую форму сообщения Outlook, в которую можно распечатать, отправить или скопировать данные для использования в других приложениях.

Получить список участников встречи

Протестировано в Outlook 2007 и Outlook 2010. Это должно работать в Outlook 2000 и выше. Обратите внимание, что код вызовет запрос безопасности.

Протестировано в Outlook 2007 и Outlook 2010. Это должно работать в Outlook 2000 и выше. Обратите внимание, что код вызовет запрос безопасности.

Макрос списка участников собрания

Чтобы использовать, откройте редактор VBA Outlook, нажав Alt+F11. Щелкните правой кнопкой мыши Project1 на левой панели и выберите «Вставка»> «Модуль». Скопируйте этот код и вставьте его в модуль.

Получите функцию GetCurrentItem из Outlook VBA: работайте с открытым элементом или выбранным элементом и вставьте его в конец модуля.

Затем выберите или откройте собрание, которое вы организовали, и запустите макрос, чтобы создать сообщение, содержащее сведения о собрании. Общее количество принятых, отклоненных, предварительных ответов и ответов не добавляется в список.

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

Источник Создать список участников собрания и ответов


Копирование списка участников с ответами

Outlook 2010 и Outlook 2013 позволяют копировать информацию об участнике для непосредственного использования в другом приложении. Чтобы скопировать информацию, откройте собрание, раскройте кнопку "Отслеживание" и выберите "Скопировать статус в буфер обмена". Теперь вы можете вставить список участников в другое приложение.

Скопировать список участников собрания в Outlook 2010

Вы можете скопировать ответы участников в Outlook 2010 и Outlook 2013 и вставить их в другое приложение.

Примечание 1. Скопированный список разделен табуляцией и может не подходить для использования непосредственно в Word. Если сначала вставить его в Excel, а затем скопировать из Excel и вставить в Word, то получится таблица, которую можно легко отформатировать в Word.

Примечание 2: Если вы хотите обновить ответы, чтобы они отражали, действительно ли они появились или нет, см. Отслеживание ответов на собрания вручную.

Источник Распечатать или скопировать список участников собрания


Печать списка участников с ответами

Сам Outlook не включает в себя ответы участников при печати собрания. Обходным путем будет использование метода копирования, как описано выше, и распечатка его из приложения, в которое вы вставили изображение или список.

Этот вышеупомянутый обходной путь может оказаться непрактичным, если вам нужно много делать, а скриншот может показаться совершенно неуместным при использовании в отчете о профессиональном собрании.

Более рациональное решение может быть достигнуто при использовании надстройки под названием Attendees Print из IMIBO. С помощью этого дополнения вы можете ...

- 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

Обратите внимание, что надстройка доступна в виде пробного программного обеспечения, и необходимо приобрести лицензию.

Источник Распечатать или скопировать список участников собрания

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .