Como posso definir o Outlook 2010 para remover automaticamente as reuniões canceladas

10

O Outlook 2010 tem uma única opção para aceitar automaticamente solicitações de reunião e remover reuniões canceladas em: Arquivo- > Opções- > Calendário > Agendamento de recursos

Nesta opção, as solicitações de reunião são automaticamente aceitas. Eu não quero isso. Eu quero fazer o seguinte:

  • Remover reuniões canceladas do calendário
  • Excluir cancelado: ... encontrando e-mails da minha Caixa de entrada
  • Não faça nada com solicitações de reunião

Isso é possível?

    
por going 23.10.2013 / 02:56

1 resposta

1

Eu encontrei a resposta pesquisando a exata pergunta que você estava perguntando.

Você terá que criar uma macro com o seguinte código-fonte (Altere o nome da caixa de correio para o seu):

Set olResCalendar = OpenMAPIFolder("\MailboxName\Calendar")
Sub RemoveCanceledAppointments()

Dim olResCalendar As Outlook.MAPIFolder, olApptItem As Outlook.AppointmentItem, intCounter As Integer

'Change the path to the resource calendar on the next line
Set olResCalendar = OpenMAPIFolder("\MailboxName\Calendar")

For intCounter = olResCalendar.Items.Count To 1 Step -1
Set olApptItem = olResCalendar.Items(intCounter)
    If Left(olApptItem.Subject, 9) = "Canceled:" Then
    olApptItem.Delete
    End If
Next
Set olApptItem = Nothing
Set olResCalendar = Nothing
End Sub

Function OpenMAPIFolder(szPath)
Dim app, ns, flr, szDir, i
Set flr = Nothing
Set app = CreateObject("Outlook.Application")
    If Left(szPath, Len("\")) = "\" Then
    szPath = Mid(szPath, Len("\") + 1)
    Else
    Set flr = app.ActiveExplorer.CurrentFolder
    End If

While szPath <> ""
i = InStr(szPath, "\")
    If i Then
    szDir = Left(szPath, i - 1)
    szPath = Mid(szPath, i + Len("\"))
    Else
    szDir = szPath
    szPath = ""
    End If
    If IsNothing(flr) Then
    Set ns = app.GetNamespace("MAPI")
    Set flr = ns.Folders(szDir)
    Else
    Set flr = flr.Folders(szDir)
    End If
    Wend
Set OpenMAPIFolder = flr
End Function

Function IsNothing(Obj)
If TypeName(Obj) = "Nothing" Then
    IsNothing = True
Else
    IsNothing = False
End If
End Function

Citação da página:

Esta macro pesquisará um calendário de recursos e excluirá itens com "Cancelado:" no assunto. Você também deve ter permissões adequadas na caixa de correio de recursos para que isso funcione. Essa macro removerá as reuniões canceladas e removerá as reuniões de reserva direta e de auto-aceito.

    
por 06.02.2016 / 20:49