Comment convertir plusieurs notes en e-mails distincts d’un seul coup dans Outlook ?

Il peut arriver que vous souhaitiez créer des nouveaux e-mails distincts à partir du contenu de vos notes dans Outlook. Généralement, vous pouvez faire glisser toutes les notes vers l’icône Courrier dans la barre de navigation, mais elles seront alors insérées dans un seul et même e-mail. Comment convertir plusieurs notes en nouveaux e-mails séparés dans Outlook ?

Convertir plusieurs notes en e-mails distincts en une seule fois à l’aide d’un code VBA

---

Convertir plusieurs notes en e-mails distincts en une seule fois à l’aide d’un code VBA

Pour créer plusieurs e-mails distincts à partir du contenu de vos notes, appliquez le code VBA suivant :

1. Accédez au volet Notes, puis sélectionnez les notes que vous souhaitez transformer en e-mails.

2. Ensuite, maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

3. Cliquez ensuite sur Insertion > Module, puis copiez-collez le code ci-dessous dans le module vierge qui s’ouvre :

Code VBA : Convertir plusieurs notes en e-mails distincts en une seule fois :

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. Appuyez ensuite sur la touche F5 pour exécuter ce code. Une boîte de dialogue apparaît alors pour vous demander si vous souhaitez convertir les notes en e-mails ; cliquez sur OK, comme illustré ci-dessous :

5. Toutes les notes sélectionnées ont été converties en e-mails, comme le montre la capture d’écran suivante :