Como inserir e atualizar automaticamente os dias de contagem regressiva nos assuntos das tarefas do Outlook

Alguns usuários estão ansiosos para inserir e atualizar automaticamente os dias de contagem regressiva nos assuntos das tarefas. Portanto, neste artigo, apresentaremos uma abordagem inteligente para obtê-lo.

Ao abrir uma tarefa, você certamente verá a dica de tela “Prazo em XX dias” no cabeçalho. No entanto, como você está acostumado a verificar a tarefa diretamente na lista, pode esperar ver essa dica de contagem regressiva diretamente no assunto da tarefa. Portanto, a seguir, compartilharemos uma maneira inteligente de inserir e atualizar automaticamente a contagem regressiva nos assuntos das tarefas.

Inserir e atualizar automaticamente os dias de contagem regressiva nos assuntos das tarefas

1. Para comotart, acione o editor VBA do Outlook consultando o artigo – “Como executar o código VBA no seu Outlook".
2. Em seguida, no projeto “ThisOutlookSession”, coloque o seguinte código VBA.

Private WithEvents objTasks As Outlook.Items Private objItem As Object Private Sub Application_Startup() Set objTasks = Outlook.Application.Session.GetDefaultFolder(olFolderTasks).Items 'Atualização automática de dias de contagem regressiva em todas as tarefas' Subjects on Startup Para cada objItem In objTasks Chamar UpdateCountdownDays(objItem) Next End Sub 'Inserir automaticamente a contagem regressiva de dias para novas tarefas' Subjects Private Sub objTasks_ItemAdd(ByVal Item As Object) Dim objTask As Outlook.TaskItem Dim lCountdownDays As Long If Item.Class = olTask Em seguida, defina objTask = Item Com objTask lCountdownDays = .DueDate - Data .Subject = .Subject & " (Prazo em " & lCountdownDays & " dias)" .Salvar End With End If End Sub 'Atualização automática de contagem regressiva de dias ao alterar tarefas Private Sub objTasks_ItemChange (ByVal Item As Object) Call UpdateCountdownDays(Item) End Sub Private Sub UpdateCountdownDays(ByVal objItem As Object) Dim objTask As Outlook.TaskItem Dim strSubject As String Dim strCountdownNotes As String Dim lCountdownDays As Long If objItem.Class = olTask ​​Then Set objTask = objItem strSubject = objTask.Subject 'Substitua os dias de contagem regressiva antigos pelo novo valor no assunto da tarefa If InStr(1, strSubject, "Due in") > 0 Then strCountdownNotes = Right(strSubject, Len(strSubject) - InStr(1, strSubject, "(Due in") + 1) Com objTask lCountdownDays = .DueDate - Date .Subject = Replace(objTask.Subject, strCountdownNotes, "(Due in " & lCountdownDays & " days)") .Save End With End If End If End Sub

4. Depois disso restart seu aplicativo Outlook.
5. Desde então, toda vez que você cria uma nova tarefa, o Outlook insere automaticamente os dias de contagem regressiva em seu assunto.
6. Além disso, contanto que vocêtart Outlook ou fazer modificações em uma tarefa, o Outlook atualizará automaticamente os dias de contagem regressiva.

O que fazer se encontrar corrupção do Outlook

Sabe-se que o Outlook é suscetível a danos. Assim, você já sofreu ou imaginou como lidar com isso de forma eficaz? Em geral, desde que você continue fazendo backups de dados do Outlook, você pode simplesmente restaurar os dados dos backups. Se não houver backups, você não tem escolha a não ser recorrer a uma ferramenta de correção externa potente, como DataNumen Outlook Repairà recuperar PST dados.

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