Como converter várias notas em emails separados de uma só vez no Outlook?
Às vezes, você pode querer criar novos emails separados com o corpo das notas no Outlook. Normalmente, ao arrastar todas as notas para o ícone de Email no painel de navegação, todas as notas são inseridas em um único email. Como converter várias notas em novos emails separadamente no Outlook?
Converter várias notas em emails separados de uma só vez com código VBA
Converter várias notas em emails separados de uma só vez com código VBA
Para criar múltiplos emails separados com base no corpo das notas, aplique o seguinte código VBA:
1. Acesse o Painel de Notas e selecione as notas que deseja converter em emails.
2. Em seguida, mantenha pressionadas as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
3. Depois, clique em Inserir > Módulo, copie e cole o código abaixo no módulo em branco que foi aberto:
Código VBA: Converter várias notas em emails separados de uma só vez:
Sub BatchCreateEmailsFromNotes()
Dim xSelection As Outlook.Selection
Dim i As Long
Dim xItem As Object
Dim xNote As Outlook.NoteItem
Dim xMail As Outlook.MailItem
Dim xYesNo As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
If xSelection Is Nothing Or xSelection.Count = 0 Then Exit Sub
xYesNo = MsgBox("Are you sure to convert the selected notes to emails?", vbOKCancel + vbQuestion, "Kutools for Outlook")
If xYesNo = VbMsgBoxResult.vbCancel Then
Exit Sub
End If
For Each xItem In xSelection
If xItem.Class = olNote Then
Set xNote = xItem
Set xMail = Outlook.Application.CreateItem(OlMailItem)
With xMail
.Subject = "Note: " & Mid(xNote.Body, 1, 10)
.Body = xNote.Body
.Attachments.Add xNote
.Display
End With
End If
Next
End Sub
4. Em seguida, pressione a tecla F5 para executar o código. Uma caixa de mensagem será exibida perguntando se deseja converter as notas em emails; clique em OK, conforme mostrado na imagem:
5. Depois disso, todas as notas selecionadas foram convertidas em emails, conforme mostrado na imagem a seguir:
Assistente de E-mail AI no Outlook: Respostas mais Inteligentes, Comunicação mais Clara (mágica com um clique!) GRÁTIS
Simplifique suas tarefas diárias no Outlook com o Assistente de E-mail AI do Kutools para Outlook. Esta poderosa ferramenta aprende com seus e-mails anteriores para oferecer respostas inteligentes e precisas, otimizar o conteúdo de seus e-mails e ajudá-lo a criar e refinar mensagens sem esforço.
Este recurso suporta:
- Respostas Inteligentes: Receba respostas elaboradas a partir de suas conversas passadas — personalizadas, precisas e prontas para uso.
- Conteúdo Aprimorado: Refine automaticamente o texto de seus e-mails para maior clareza e impacto.
- Criação Sem Esforço: Basta fornecer palavras-chave e deixar a IA cuidar do resto, com múltiplos estilos de escrita.
- Extensões Inteligentes: Expanda seus pensamentos com sugestões contextualizadas.
- Resumo: Obtenha visões concisas de e-mails longos instantaneamente.
- Alcance Global: Traduza seus e-mails para qualquer idioma com facilidade.
Este recurso suporta:
- Respostas inteligentes de e-mail
- Conteúdo otimizado
- Rascunhos baseados em palavras-chave
- Extensão inteligente de conteúdo
- Resumo de e-mails
- Tradução multilíngue
O melhor de tudo é que este recurso é completamente grátis para sempre! Não espere — baixe agora o Assistente de E-mail AI e aproveite
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / CC/BCC automático por Regra ao Enviar Email / Encaminhamento automático (Regra avançada) / Adicionar Saudação automaticamente / Dividir automaticamente Emails com múltiplos destinatários em Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint