如何在 Outlook 中一次性将多条便笺分别转换为独立的邮件？

有时，您可能希望在 Outlook 中将每条便笺内容分别创建为单独的新邮件。通常，您可以将所有便笺拖动到导航窗格中的邮件图标上，但这样所有便笺内容都会被合并到同一封邮件中。那么，如何才能将多条便笺分别转换为单独的新邮件呢？

使用 VBA 代码一次性将多条便笺分别转换为单独的邮件

---

使用 VBA 代码一次性将多条便笺分别转换为单独的邮件

如需根据便笺内容创建多封单独的邮件，请应用以下 VBA 代码：

1. 在“便笺”窗格中，选择您想要转换为邮件的便笺。

2. 然后，按住 ALT + F11 键，即可打开 Microsoft Visual Basic for Applications 窗口。

3. 接着，单击插入 > 模块，在弹出的空白模块中复制并粘贴以下代码：

VBA 代码：一次性将多条便笺分别转换为单独邮件：

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. 按下 F5 键运行代码后，会弹出提示框询问是否将便笺转换为邮件，请点击确定，如截图所示：

5. 此时，所有选中的便笺已成功转换为邮件，效果如下图所示：