如何在 Outlook 中一次將多則記事轉為獨立的電子郵件？

有時，您可能希望根據 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. 接著，所有選取的記事均已轉換為電子郵件，如下圖所示：