如何在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 鍵以運行此代碼，並彈出一個消息框提醒您是否要將註釋轉換為電子郵件，請單擊 OK，請參見屏幕截圖：

doc將筆記轉換為電子郵件1