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

Como criar uma tarefa automaticamente ao enviar e-mail no Outlook?

Às vezes, você pode precisar criar automaticamente uma tarefa de um e-mail ao enviá-lo no Outlook. Aqui, estamos fornecendo um método para você fazer isso rapidamente.

Criar automaticamente uma tarefa ao enviar e-mail no Outlook com VBA


Criar automaticamente uma tarefa ao enviar e-mail no Outlook com VBA

Com o código VBA abaixo, você pode criar uma tarefa automaticamente com base no envio de um e-mail no Outlook. Faça o seguinte.

1. Inicie o Outlook, pressione o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. No Microsoft Visual Basic para Aplicações janela, copie o código VBA abaixo para o Esta sessão do Outlook janela de código.

Código VBA: criar automaticamente uma tarefa ao enviar e-mail no Outlook

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
'Updated by Extendoffice 20181123
    Dim xYesNo As Integer
    Dim xPrompt As String
    Dim xTaskItem As TaskItem
    Dim xRecipient As String
    On Error Resume Next
    xPrompt = "Do you want to create a task for this message?"
    xYesNo = MsgBox(xPrompt, vbYesNo + vbInformation, "Kutools for Outlook")
    Cancel = False
    If xYesNo = vbNo Then Exit Sub
    Set xTaskItem = Application.CreateItem(olTaskItem)
    For Each Rcp In Item.Recipients
        If xRecipient = "" Then
            xRecipient = Rcp.Address
        Else
            xRecipient = xRecipient & vbCrLf & Rcp.Address
        End If
    Next Rcp
    xRecipient = xRecipient & vbCrLf & Item.Body
    With xTaskItem
        .Subject = Item.Subject
        .StartDate = Item.ReceivedTime
        .DueDate = Date + 3 + CDate("9:00:00 AM")
        .ReminderSet = True
        .ReminderTime = Date + 2 + CDate("9:00:00 AM")
        .Body = xRecipient
        .Save
    End With
    Set xTaskItem = Nothing
End Sub

Nota: Os destinatários da mensagem e o corpo da mensagem serão adicionados ao corpo da tarefa automaticamente. A data de início da tarefa é a data de envio da mensagem, e o prazo de entrega é de 3 dias. Você será lembrado da tarefa às 9h após um dia. Você pode alterá-los conforme necessário.

3. Salve o código e pressione o outro + Q para fechar a janela Microsoft Visual Basic for Applications.

4. A partir de agora, ao clicar no ENVIAR botão em uma janela de e-mail nova ou respondida, um Criar Tarefa a caixa de diálogo aparecerá conforme a imagem mostrada abaixo, clique em Sim para enviar o e-mail e criar uma tarefa automaticamente ou clique em Não para enviar o e-mail sem criar tarefa.


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 (3)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Existe uma maneira de modificar isso para incluir mais um link para o e-mail enviado do que apenas destinatários e assunto? ou seja. adicionar o e-mail enviado como anexo?
Este comentário foi feito pelo moderador no site
HI,

Isso funcionou por alguns dias e agora não funciona mais.

Há uma razão?
Este comentário foi feito pelo moderador no site
Olá Terri Amós,
Ative a opção Ativar todas as macros e a opção Aplicar configurações de segurança de macro aos suplementos instalados, conforme mostrado na captura de tela abaixo. Depois disso, reinicie o Outlook.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/task.png
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos