Comment convertir plusieurs notes en e-mails séparés à la fois dans Outlook?

Parfois, vous souhaiterez peut-être créer de nouveaux e-mails séparés avec le contenu des notes dans Outlook. Normalement, vous pouvez faire glisser toutes les notes dans l'icône Courrier dans le volet de navigation, mais toutes les notes seront insérées dans un seul e-mail. Comment pouvez-vous convertir plusieurs notes en nouveaux e-mails séparément dans Outlook?

Convertissez plusieurs notes en e-mails séparés à la fois avec le code VBA

Convertissez plusieurs notes en e-mails séparés à la fois avec le code VBA

Pour créer plusieurs e-mails séparés en fonction du contenu des notes, veuillez appliquer le code VBA suivant:

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

2. Ensuite, maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

3. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert:

Code VBA: convertissez plusieurs notes en e-mails séparés à la 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. Puis appuyez F5 pour exécuter ce code, et une boîte de message apparaît pour vous rappeler si vous souhaitez convertir des notes en e-mails, veuillez cliquer sur OK, voir capture d'écran:

doc convertir des notes en e-mails 1