Jak przekonwertować wiele notatek na oddzielne wiadomości e-mail jednocześnie w Outlooku?

Czasami możesz chcieć utworzyć osobne nowe wiadomości e-mail z zawartością notatek w Outlooku. Zwykle możesz przeciągnąć wszystkie notatki do ikony Poczta w okienku nawigacji, ale wszystkie notatki zostaną wstawione do jednej wiadomości e-mail. Jak możesz przekonwertować wiele notatek na nowe e-maile osobno w Outlooku?

Konwertuj wiele notatek na oddzielne wiadomości e-mail naraz za pomocą kodu VBA

Konwertuj wiele notatek na oddzielne wiadomości e-mail naraz za pomocą kodu VBA

Aby utworzyć wiele oddzielnych wiadomości e-mail na podstawie zawartości notatek, zastosuj następujący kod VBA:

1. Przejdź do okienka Notatki, a następnie wybierz notatki, które chcesz przekonwertować na wiadomości e-mail.

2. Następnie przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

3. A następnie kliknij wstawka > Modułskopiuj i wklej poniższy kod do otwartego pustego modułu:

Kod VBA: Konwertuj wiele notatek na oddzielne e-maile naraz:

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. Następnie naciśnij F5 aby uruchomić ten kod i pojawi się okno komunikatu przypominające, że chcesz przekonwertować notatki na e-maile, kliknij OKzobacz zrzut ekranu:

doc konwertuj notatki na e-maile 1