Como obter rapidamente o número total de tarefas e compromissos de hoje com o Outlook VBA

Muitas pessoas esperam obter rapidamente o número total de tarefas e compromissos hoje no Outlook. Contar um por um manualmente é obviamente propenso a erros e problemático. Este artigo examinará esse problema e apresentará um método via Outlook VBA.

Muitas vezes, por descuido ou esquecimento, muitas pessoas podem deixar de lado algumas tarefas ou compromissos, que ficam salvos no Outlook. Se algumas delas forem de fato missões importantes, as consequências podem ser desastrosas. Assim, algumas pessoas gostariam de obter rapidamente quantas tarefas e compromissos têm hoje. Claro, você pode contá-los um por um. No entanto, se o número total for uma soma considerável, será suscetível a erros e bastante complicado. Nesse caso, você deve desejar uma abordagem rápida e conveniente para obtê-lo rapidamente. Felizmente, com o Outlook VBA, você pode alcançá-lo sem suar a camisa. Aqui estão os códigos e etapas detalhados.

Obtenha rapidamente o número total de tarefas e compromissos de hoje

1. A princípio, star• Aplicativo Outlook.
2. Em seguida, vá para a guia “Desenvolvedor” e clique no botão “Visual Basic”.
3. A janela “Microsoft Visual Basic for Applications” será aberta. Nele, você deve encontrar e abrir um novo módulo.
4. Em seguida, copie e cole os seguintes códigos na janela do novo módulo.

Sub GetTotalNumberTodayTaskAppt() Dim olTasks As Outlook.Items Dim olResultTasks As Outlook.Items Dim oIAppts As Outlook.Items Dim olResultAppts As Outlook.Items Dim strFilter As String Dim obj As Object Dim i, n As Long Dim strMsg As String Dim nRes As Integer 'Obter quantas tarefas hoje Set oITasks = Application.Session.GetDefaultFolder(olFolderTasks).Items strFilter = Format(Now, "ddddd") strFilter = "[Start Date] <= " & Chr(34) & strFilter & Chr(34) & " AND [Due Date] > " & Chr(34) & strFilter & Chr(34) Set olResultTasks = oITasks.Restrict(strFilter) For Each obj In olResultTasks i = i + 1 Next 'Obter quantos compromissos hoje Set oIAppts = Application.Session.GetDefaultFolder(olFolderCalendar).Items oIAppts.Sort "[Start]", False oIAppts.IncludeRecurrences = True strFilter = Format(Agora, "ddddd") strFilter = "[Start] <= " & Chr(34) & strFilter & " 11:59 PM" & Chr(34) & " AND [End] > " & Chr(34) & strFilter & " 00:00 AM" & Chr(34 ) Set olResultAppts = oIAppts.Restrict(strFilter) For Each obj In olResultAppts n = n + 1 Next 'Exibe uma caixa de mensagem strMsg = "Aviso:" & vbCrLf & "Você tem tarefas " & i & " e " & n & " compromissos HOJE, " & i + n & " missões em soma." & vbCrLf & "Não se esqueça de nenhum deles!" nRes = MsgBox(strMsg, vbExclamation, "Hoje Agenda") End Sub

5. Posteriormente, você pode fechar a janela atual e continuar a definir o nível de macro do Outlook para baixo em “Configurações de Macro”.
6. Depois disso, clique na seta para baixo na Barra de Ferramentas de Acesso Rápido e escolha “Mais Comandos” na lista suspensa.
7. Posteriormente você pode adicionar a nova macro à Barra de Ferramentas de Acesso Rápido seguindo os passos mostrados na imagem abaixo:
8. Finalmente você pode tentar. Depois de voltar para a janela principal do Outlook, você pode clicar no novo botão na Barra de Ferramentas de Acesso Rápido e imediatamente receberá uma caixa de mensagem, como a seguinte captura de tela:

notas: Muitos usuários desejam que o Outlook possa avisá-los assim quetaro aplicativo. Para cumprir este requisito, você pode aplicar “Application.Startup” evento. Substituir "Sub GetTotalNumberTodayTaskAppt()” com “Subaplicativo_Startup()”. E então copie os códigos para a janela do projeto “ThisOutlookSession”. A partir de agora, toda vez que vocêtart Outlook, você será lembrado do número total de tarefas e compromissos de hoje.

Lide com problemas frequentes do Outlook

Como todos sabemos, nenhum programa é infalível. O mesmo vale para o Outlook. Portanto, se você pretende usar o Outlook por décadas, deve se preparar para seus erros frequentes, como congelamento repentino, falta de resposta, mensagens de erro ocasionais e Danos de e-mail PST do Outlook. Um delesost precauções aconselháveis ​​é manter uma ferramenta de correção de PST potente à mão, como DataNumen Outlook Repair, que virá em seu socorro quando você encontrar sérios problemas de perspectiva.

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 reparar SQL MDF corrompido e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com