Como definir automaticamente a data de hoje como a data de início de uma nova tarefa no seu Outlook.

Compartilhe agora:

Ao criar uma nova tarefa no Outlook, se você frequentemente precisa definir o dia atual como data de início, provavelmente deseja que o Outlook faça isso automaticamente. Este artigo abordará essa necessidade e fornecerá um método simples para isso.

Por padrão, ao clicar em "Criar uma nova tarefa" no Outlook, a tarefa será exibida com a "Data de início" definida como "Nenhuma", conforme mostrado na figura a seguir. No entanto, na maioria das vezes, você está acostumado a definir a data de início como a data atual. Portanto, você precisa inserir ou selecionar manualmente a data no campo "Data de início". Diante desse cenário, você pode desejar que o Outlook predefinisse automaticamente a data de hoje como a data de início da nova tarefa. Embora não exista uma função direta para isso, você ainda pode obter esse resultado com o código VBA compartilhado a seguir. Se você não estiver familiarizado com VBA, consulte "Como executar o código VBA no seu Outlook" enquanto isso.

Data de início padrão "Nenhuma"

Definir automaticamente a data de hoje como a data de início de uma nova tarefa.

  1. Para começar, inicie seu aplicativo Outlook.
  2. Em seguida, pressione “Alt + F11” para acionar o editor VBA do Outlook.
  3. Em seguida, copie o seguinte código para o projeto “ThisOutlookSession”.
Public WithEvents objInspectors As Outlook.Inspectors
Public WithEvents objTask As Outlook.TaskItem

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

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

Private Sub objTask_Open(Cancel As Boolean)
    'When opening a fresh new task item
    If Len(objTask.Subject) = 0 And Len(objTask.Body) = 0 And objTask.startDate = #1/1/4501# And objTask.DueDate = #1/1/4501# Then
 
       'Set start date to today
       objTask.startDate = Date
    End If
End Sub

Código VBA - Definir automaticamente a data de hoje como a data de início de uma nova tarefa

  1. Em seguida, mova o cursor para a primeira sub-rotina “Application_Startup”.
  2. Mais tarde, pressione o botão de tecla “F5”.
  3. Desde então, sempre que você cria uma nova tarefa, o Outlook define automaticamente a data de início para a data atual, ou seja, hoje, conforme mostrado na imagem a seguir.Pré-definição automática de hoje como data de início.

Cuidado com macros maliciosas no Outlook

Embora a macro VBA traga muita conveniência e possibilidades para os usuários, ela também leva a muitos riscos potenciais. Por exemplo, se você definir suas configurações de macro para permitir todas as macros sem notificação, quando um e-mail com macros maliciosas chegar em sua caixa de correio e você abrir seus links incorporados, seu arquivo de dados do Outlook tende a ser atacado por vírus. Nesse momento, você tem que matar os vírus e tentar Reparo do OutlookNa maioria das vezes, a ferramenta integrada – Scanpst – não é adequada para essa tarefa. Portanto, você deve recorrer a um utilitário mais robusto, 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 recuperação sql e produtos de software de reparo do Outlook. Para mais informações visite www.datanumen.com

Compartilhe agora:

Comentários estão fechados.