Como converter várias notas em emails separados de uma só vez no Outlook?

Author: Xiaoyang Last Modified: 2025-08-06

À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:

doc convert notes to emails 1

5. Depois disso, todas as notas selecionadas foram convertidas em emails, conforme mostrado na imagem a seguir:

doc convert notes to emails 2

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: