Как одновременно преобразовать несколько заметок в отдельные письма в 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, чтобы выполнить этот код. После этого появится диалоговое окно с запросом подтверждения преобразования заметок в письма — нажмите кнопку ОК (см. снимок экрана):

5. После этого все выбранные заметки будут преобразованы в письма, как показано на следующем снимке экрана: