Note: The other languages of the website are Google-translated. Back to English

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:

doc nomeação para tarefa 1

2. Então um novo tarefa janela é exibida, por favor clique Salvar fechar botão para salvar este compromisso como tarefa. Veja a imagem:

doc nomeação para tarefa 2


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

doc nomeação para tarefa 3

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:

doc nomeação para tarefa 4

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:

doc nomeação para tarefa 5

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:

doc nomeação para tarefa 6

6. Então, você pode ir para o tarefa pasta, todos os compromissos selecionados foram salvos como novas tarefas, consulte a imagem:

doc nomeação para tarefa 7


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos

Siga-nos

Copyright © 2009 - www.extendoffice.com. | Todos os direitos reservados. Distribuído por ExtendOffice. | | | Mapa do site
Microsoft e o logotipo do Office são marcas comerciais ou marcas registradas da Microsoft Corporation nos Estados Unidos e / ou em outros países.
Protegido por Sectigo SSL