Bagaimana cara mengonversi beberapa catatan menjadi email terpisah sekaligus di Outlook?

Terkadang, Anda mungkin ingin membuat email baru yang terpisah dengan konten catatan di Outlook. Biasanya, Anda dapat menyeret semua catatan ke ikon Mail di panel navigasi, tetapi semua catatan akan disisipkan ke dalam satu email. Bagaimana Anda bisa mengonversi banyak catatan ke email baru secara terpisah di Outlook?

Ubah beberapa catatan untuk memisahkan email sekaligus dengan kode VBA

Ubah beberapa catatan untuk memisahkan email sekaligus dengan kode VBA

Untuk membuat beberapa email terpisah berdasarkan konten catatan, harap gunakan kode VBA berikut:

1. Masuk ke panel catatan, lalu pilih catatan yang ingin Anda ubah menjadi email.

2. Lalu, tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. Dan kemudian, klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang dibuka:

Kode VBA: Ubah beberapa catatan menjadi email terpisah sekaligus:

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. Lalu tekan F5 kunci untuk menjalankan kode ini, dan kotak pesan muncul untuk mengingatkan Anda jika Anda ingin mengubah catatan menjadi email, silakan klik OK, lihat tangkapan layar:

doc mengubah catatan menjadi email 1