2 métodos para definir a data de término padrão de compromissos recorrentes do Outlook

No Outlook, quando você habilitar “Recorrência” para um compromisso, por padrão, ele será definido sem data de término. Se quiser alterá-lo e definir uma data de término padrão para compromissos recorrentes, você pode usar os métodos apresentados neste artigo.

Ao criar um novo compromisso e clicar no botão “Recorrência”, na caixa de diálogo pop-up “Recorrência do compromisso”, você pode ver que “Sem data final” está selecionado por padrão, conforme mostrado na figura a seguir. Se você não gosta disso e deseja definir uma data de término padrão, como 90 dias a partir da primeira ocorrência, continue lendo. Aqui vamos ensinar-lhe 2 abordagens para realizá-lo.

Método 1: definido alterando o registro

1. Para começar, acesse o “Menu Iniciar” e pesquise “regedit”.
2. Em seguida, clique no programa “regedit” encontrado.
3. Em seguida, a caixa de diálogo “Controle de conta de usuário” será exibida, na qual você precisa clicar em “Sim”.
4. Depois de entrar na janela “Editor de Registro”, navegue até o caminho – ” HKEY_CURRENT_USER\Software\Microsoft\Office\ \Outlook\Options\Agenda"
5. Depois, clique com o botão direito do mouse em “Calendário” e escolha “Novo” > “Valor DWORD (32 bits)”.
6. Posteriormente, nomeie esse novo valor como “RecurrencesDefault”.
7. Em seguida, clique duas vezes no valor.
8. Na caixa de diálogo pop-up “Editar valor DWORD (32 bits)”, insira um número no campo “Dados do valor”. Refere-se à contagem de dias a partir de hoje. Por exemplo, se for “90”, o Outlook definirá a data de término da recorrência para 90 dias a partir de hoje.
9. Depois, clique em “OK” e saia do Editor do Registro corretamente.
10. Por fim, reinicie o Outlook e tente criar um compromisso recorrente. A data de término será definida de acordo com o valor "RecurrencesDefault".

Método 2: Definir com o Outlook VBA

1. Para começar, abra o editor VBA do Outlook pressionando “Alt + F11”.
2. Em seguida, coloque o seguinte código VBA no projeto “ThisOutlookSession”.

Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objAppointment As Outlook.AppointmentItem

Private Sub Application_Startup()
     Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeOf Inspector.CurrentItem Is AppointmentItem Then
       Set objAppointment = Inspector.CurrentItem
    End If
End Sub

Private Sub objAppointment_PropertyChange(ByVal Name As String)
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Change enable "Recurrence"
    If Name = "IsRecurring" Then
       If objAppointment.IsRecurring = True Then
          Set objRecurrencePattern = objAppointment.GetRecurrencePattern
          'Change the end date to 30 days from the start date
          'Alter "30" as per your needs
          objRecurrencePattern.PatternEndDate = objRecurrencePattern.PatternStartDate + 30
       End If
    End If
End Sub

3. Por fim, clique na macro “Application_Startup” e pressione “F5”.
4. No momento, você pode criar um novo compromisso.
5. Depois, clique no botão “Recorrência”, modifique as configurações de recorrência mantendo “Sem data final” e clique em “OK”.
6. Mais tarde, você pode clicar novamente em “Recorrência” para verificar. Você verá que a data final foi alterada de acordo com seu código VBA.

Corrigir arquivo PST do Outlook inacessível

Você já recebeu alguma mensagem de erro envolvendo “arquivo PST inacessível” em seu Outlook? Se sim, como lidou com eles? Talvez Scanpst tenha ocorrido em suas mentes em primeiro lugar. No entanto, quando você tentou corrigir Outlook, também falhou. Nesse cenário, seu último recurso é um software de recuperação de dados experiente, como DataNumen Outlook Repair ou serviço especializado de recuperação.

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 correção de sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com