¿Cómo convertir varias notas en correos electrónicos independientes de forma simultánea en Outlook?

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

Convierta varias notas en correos electrónicos independientes de una sola vez con código VBA

---

Convierta varias notas en correos electrónicos independientes de una sola vez con código VBA

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

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

2. A continuación, mantenga pulsadas las teclas ALT + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

3. A continuación, haga clic en Insertar > Módulo y copie y pegue el siguiente código en el módulo en blanco que se abre:

Código VBA: Convierta varias notas en correos electrónicos independientes de una sola 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. A continuación, pulse la tecla F5 para ejecutar este código. Aparecerá un cuadro de mensaje preguntándole si desea convertir las notas en correos electrónicos; haga clic en Aceptar, como se muestra en la captura de pantalla:

5. Entonces, todas las notas seleccionadas se habrán convertido en correos electrónicos, tal como se muestra en la siguiente captura de pantalla: