Como contar automaticamente os participantes antes de enviar um convite de reunião no Outlook

Recuperação de dados do Outlook, Soluções do Outlook 9 de maio de 2017
Compartilhe agora:

Este artigo ensinará como utilizar o Outlook VBA para obter automaticamente uma contagem de participantes antes de enviar um convite de reunião. 

Semelhante à contagem dos destinatários antes de enviar um e-mail, alguns usuários também desejam contar os participantes antes de enviar um convite de reunião. Como de costume, isso visa estimar o total cost da reunião proposta e, em seguida, decidir se deseja enviar tal convite de reunião aos participantes. Além disso, como o Outlook permite que os usuários definam os participantes como obrigatórios ou opcionais, alguns gostariam de contar os participantes em diferentes tipos. E não poderia ser melhor se os recursos e a duração da reunião puderem ser incluídos. Embora o Outlook não tenha um recurso tão direto, você ainda pode usar o código VBA para realizá-lo.

Contagem automática dos participantes antes de enviar um convite de reunião no Outlook

Contagem automática dos participantes antes de enviar um convite de reunião

  1. Para% start com, inicie seu programa Outlook.
  2. Em seguida, na janela principal do Outlook, pressione os atalhos de teclado “Alt + F11”.
  3. Em seguida, você entrará no editor VBA do Outlook com sucesso. Agora você precisa encontrar e abrir o projeto “ThisOutlookSession”.
  4. Posteriormente, copie e cole os seguintes códigos VBA neste projeto.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean) Dim objMeetingInvitation As Outlook.MeetingItem Dim objMeeting As Outlook.AppointmentItem Dim objAttendees As Outlook.Recipients Dim objAttendee As Outlook.recipient Dim lRequiredAttendeeCount, lOptionalAttendeeCount, lResourceCount As Long Dim strMs g Como String Dim nPrompt As Integer Se TypeOf Item for MeetingItem Então defina objMeetingInvitation = Conjunto de itens objMeeting = objMeetingInvitation.GetAssociatedAppointment(True) Defina objAttendees = objMeetingInvitation.Recipients End If lRequiredAttendeeCount = 0 lOptionalAttendeeCount = 0 lResourceCount = 0 'Conte o necessário participantes e recursos opcionais, etc. Para cada objAttendee In objAttendees Se objAttendee.Type = olRequired Then lRequiredAttendeeCount = lRequiredAttendeeCount + 1 ElseIf objAttendee.Type = olOptional Then lOptionalAttendeeCount = lOptionalAttendeeCount + 1 ElseIf objAttendee.Type = olResource Then lResourceCou nt = lResourceCount + 1 End If Next 'Verifique novamente a reunião detalhes do convite strMsg = "Detalhes da reunião:" & vbCrLf & vbCrLf & _ "Participantes necessários: " & lRequiredAttendeeCount & vbCrLf & _ "Participantes opcionais: " & lOptionalAttendeeCount & vbCrLf & _ "Recursos: " & lResourceCount & vbCrLf & _ "Duração: " & GetDuration(objMeeting) & vbCrLf & vbCrLf & _ "Tem certeza que deseja enviar este convite de reunião?" nPrompt = MsgBox(strMsg, vbExclamation + vbYesNo, "Verifique novamente o convite da reunião") If nPrompt = vbYes Then Cancel = False Else Cancel = True End If End Sub Function GetDuration(objCurMeeting As AppointmentItem) As String 'Converte minuto em hora If objCurMeeting. Duration > 60 Then GetDuration = Round(objCurMeeting.Duration / 60, 1) & " hours" ElseIf objCurMeeting.Duration = 60 Then GetDuration = Round(objCurMeeting.Duration / 60, 1) & " hour" ElseIf objCurMeeting.Duration < 60 Then GetDuration = objCurMeeting.Duration & " mins" End If End Function

Código VBA - Contagem automática dos participantes antes de enviar um convite de reunião

  1. Depois disso, você precisa assinar este código.
  2. Mais tarde, certifique-se de que seu Outlook permite as macros assinadas digitalmente.
  3. A partir de agora, toda vez que você clicar no botão “Enviar” nos convites de reunião, receberá uma mensagem mostrando a contagem de participantes, recursos e duração, conforme a imagem a seguir:Mensagem mostrando a contagem de participantes

Lide com a Frustrante Corrupção do Outlook com Flexibilidade

Talvez você já tenha encontrado problemas do Outlook antes, como congelamento, várias mensagens de erro e assim por diante. Felizmente, o Outlook vem pré-instalado com uma ferramenta de reparo da caixa de entrada, chamada ScanpstName, que é capaz de resolver pequenos problemas. Mas se o problema for grave, será necessário recorrer a uma ferramenta mais especializada, como DataNumen Outlook Repair.

Introdução do autor:

Shirley Zhang é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo mdf corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com

Compartilhe agora:

Comentários estão fechados.