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
Note: 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.
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.