如何在Outlook中一次将多个笔记转换为单独的电子邮件？

有时，您可能希望使用Outlook中注释内容创建单独的新电子邮件。通常，您可以将所有注释拖到导航窗格中的“邮件”图标中，但是所有注释将被插入到一封电子邮件中。您如何在Outlook中将多个笔记分别转换为新电子邮件？

使用VBA代码一次将多个注释转换为单独的电子邮件

使用VBA代码一次将多个注释转换为单独的电子邮件

要基于注释的内容创建多个单独的电子邮件，请应用以下VBA代码：

1. 转到“备注”窗格，然后选择要转换为电子邮件的备注。

2。然后，按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

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