Как да конвертирате няколко бележки в отделни имейли наведнъж в Outlook?

Автор: Xiaoyang Последна промяна: 2018-10-22

Понякога може да искате да създадете отделни нови имейли със съдържанието на бележките в 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