如何在 Outlook 中一次性將多個便簽轉換為單獨的郵件？

Author: Xiaoyang Last Modified: 2025-05-13

有時，您可能希望在 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 鍵運行此代碼，會彈出一個消息框提醒您是否要將便簽轉換為郵件，請點擊 OK，見截圖：

doc convert notes to emails 1