Como converter vários compromissos em tarefas rapidamente no Outlook?
Neste artigo, falarei sobre como converter um compromisso ou vários compromissos em tarefas de forma rápida e fácil no Outlook.
Converta um compromisso em tarefa arrastando e soltando
Converta vários compromissos em tarefas aplicando o código VBA
Converta um compromisso em tarefa arrastando e soltando
Para converter um compromisso em tarefa, você só precisa arrastar o compromisso para a pasta de tarefas, faça o seguinte:
1. No Calendário janela, selecione o item de compromisso que você precisa converter em tarefa e, em seguida, arraste e solte-o no tarefas ícone na parte inferior do painel de navegação, conforme a seguinte captura de tela mostrada:
2. Então um novo Tarefa janela é exibida, por favor clique Salvar fechar botão para salvar este compromisso como tarefa. Veja a imagem:
Converta vários compromissos em tarefas aplicando o código VBA
Se você tiver vários compromissos que precisam ser convertidos em tarefas, o código VBA abaixo pode lhe fazer um favor, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. E então, clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto, veja a captura de tela:
Código VBA: converta vários compromissos em tarefas
Sub ConvertAppointmentsToTasks()
Dim xItemCollection As VBA.Collection
Dim xActiveWindow As Object
Dim xItem As Object
Dim xSelection As Outlook.Selection
Dim xTaskFolder As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xTaskItem As Outlook.TaskItem
On Error Resume Next
Set xItemCollection = New VBA.Collection
Set xActiveWindow = Outlook.Application.ActiveWindow
If TypeOf xActiveWindow Is Inspector Then
Set xItem = xActiveWindow.CurrentItem
If xItem.Class = olAppointment Then xItemCollection.Add xItem
Else
Set xSelection = xActiveWindow.Selection
If xSelection Is Nothing Then Exit Sub
For Each xItem In xSelection
If xItem.Class = olAppointment Then xItemCollection.Add xItem
Next
End If
Set xTaskFolder = Application.Session.PickFolder
If xTaskFolder Is Nothing Then Exit Sub
For Each xAppointmentItem In xItemCollection
Set xTaskItem = xTaskFolder.Items.Add(olTaskItem)
With xTaskItem
.StartDate = Format(xAppointmentItem.Start, "Short Date")
.DueDate = Format(xAppointmentItem.End, "Short Date")
.Subject = xAppointmentItem.Subject & " (From Appt)"
.Categories = xAppointmentItem.Categories
.Body = xAppointmentItem.Body
.Save
.Display
End With
Next
End Sub
3. Em seguida, selecione os compromissos que deseja converter em tarefa e clique em Executar Macro botão para executar este código, veja a captura de tela:
4. E então um Selecionar pasta caixa de diálogo irá aparecer, selecione um tarefas pasta onde você deseja salvar os resultados convertidos, consulte a captura de tela:
5. Então clique OK botão, e todos os compromissos selecionados serão criados como tarefas, e então você deve salvar e fechar o Tarefa janela uma por uma, veja a imagem:
6. Então, você pode ir para o Tarefa pasta, todos os compromissos selecionados foram salvos como novas tarefas, consulte a imagem:
Melhores ferramentas de produtividade de escritório
Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook
🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...
📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP) / Agendar envio de e-mails / CC/BCC automático por regras ao enviar e-mail / Encaminhamento automático (regras avançadas) / Adicionar saudação automaticamente / Divida automaticamente e-mails de vários destinatários em mensagens individuais ...
📨 Gestão de E-mail: Lembre-se facilmente de e-mails / Bloquear e-mails fraudulentos por assuntos e outros / Apagar Emails Duplicados / Pesquisa Avançada / Consolidar pastas ...
📁 Anexos Pró: Salvar em lote / Desanexar lote / Comprimir em Lote / Salvamento automático / Desanexação Automática / Compressão automática ...
???? Interface Mágica: 😊Mais emojis bonitos e legais / Aumente a produtividade do seu Outlook com visualizações com guias / Minimize o Outlook em vez de fechar ...
???? Maravilhas com um clique: Responder a todos com anexos recebidos / E-mails antiphishing / 🕘Mostrar fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembretes de aniversário ...
Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.