¿Cómo convertir varias notas en correos electrónicos separados a la vez en Outlook?

A veces, es posible que desee crear nuevos correos electrónicos separados con el contenido de las notas en Outlook. Normalmente, puede arrastrar todas las notas al icono de Correo en el panel de navegación, pero todas las notas se insertarán en un solo correo electrónico. ¿Cómo podría convertir varias notas en nuevos correos electrónicos por separado en Outlook?

Convierta varias notas en correos electrónicos separados a la vez con el código VBA

Convierta varias notas en correos electrónicos separados a la vez con el código VBA

Para crear varios correos electrónicos separados basados en el contenido de las notas, aplique el siguiente código VBA:

1. Vaya al panel Notas y luego seleccione las notas que desea convertir en correos electrónicos.

2. Luego, mantenga presionado el ALT + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.

3. Y luego, haga clic en recuadro > Módulo, copie y pegue el código siguiente en el módulo en blanco abierto:

Código VBA: convierta varias notas en correos electrónicos separados a la 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. Entonces presione F5 clave para ejecutar este código, y aparece un cuadro de mensaje para recordarle si desea convertir notas en correos electrónicos, haga clic en OK, ver captura de pantalla:

doc convertir notas a correos electrónicos 1