Como converter várias notas em e-mails individuais de uma só vez no Outlook?

Por vezes, poderá querer criar novos e-mails separados com o conteúdo das suas notas no Outlook. Normalmente, pode arrastar todas as notas para o ícone Correio na Navegação, mas isso insere todas as notas num único e-mail. Como converter várias notas em novos e-mails separados no Outlook?

Converter várias notas em e-mails separados de uma só vez com código VBA

---

Converter várias notas em e-mails separados de uma só vez com código VBA

Para criar vários e-mails separados com base no conteúdo das notas, aplique o seguinte código VBA:

1. Aceda ao painel Notas e selecione as notas que pretende converter em e-mails.

2. Em seguida, prima as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.

3. Em seguida, clique em Inserir > Módulo e copie e cole o código abaixo no módulo em branco aberto:

Código VBA: Converter várias notas em e-mails 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, prima a tecla F5 para executar este código. Será apresentada uma caixa de mensagem a perguntar se pretende converter as notas em e-mails; clique em OK, conforme ilustrado na imagem:

5. De seguida, todas as notas selecionadas foram convertidas em e-mails, tal como mostrado na imagem seguinte: