如何在Outlook中一次性将多个便笺转换为单独的邮件？

Author: Xiaoyang Last Modified: 2025-05-07

有时，您可能希望根据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 键运行此代码，会弹出一个消息框提示您是否要将便笺转换为邮件，请点击确定，参见截图：

doc convert notes to emails 1