Come convertire più note in email separate contemporaneamente in Outlook?

A volte potrebbe essere necessario creare singole email con il contenuto delle note in Outlook. Di solito, è possibile trascinare tutte le note sull’icona Posta nella barra di navigazione, ma in questo modo vengono inserite tutte in un’unica email. Come si fa a convertire più note in email separate in Outlook?

Converti più note in email separate contemporaneamente con codice VBA

---

Converti più note in email separate contemporaneamente con codice VBA

Per creare più email distinte basate sul contenuto delle note, applicare il seguente codice VBA:

1. Passa al riquadro Note e seleziona le note che vuoi convertire in email.

2. Quindi, tenere premuti i tasti ALT + F11 per aprire la finestra di Microsoft Visual Basic for Applications.

3. Fare quindi clic su Inserisci > Modulo, quindi copiare e incollare il codice seguente nel modulo vuoto aperto:

Codice VBA: Converti più note in email separate contemporaneamente:

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. Premere quindi il tasto F5 per eseguire il codice. Verrà visualizzata una finestra di messaggio che chiede se si desidera convertire le note in email; fare clic su OK, come mostrato nello screenshot:

5. Tutte le note selezionate sono state convertite in email, come mostrato nello screenshot seguente: