Jak převést více poznámek na samostatné e-maily najednou v aplikaci Outlook?

Autor: Xiaoyang Naposledy změněno: 2018-10-22

Někdy budete možná chtít vytvořit samostatné nové e-maily s obsahem poznámek v Outlooku. Za normálních okolností můžete všechny poznámky přetáhnout na ikonu Pošta v navigačním podokně, ale všechny poznámky se vloží do jednoho e-mailu. Jak můžete převést více poznámek na nové e-maily samostatně v aplikaci Outlook?

Převeďte více poznámek na samostatné e-maily najednou pomocí kódu VBA

Převeďte více poznámek na samostatné e-maily najednou pomocí kódu VBA

Chcete-li vytvořit více samostatných e-mailů na základě obsahu poznámek, použijte následující kód VBA:

1. Přejděte do podokna Poznámky a vyberte poznámky, které chcete převést na e-maily.

2. Poté podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

3. A pak klikněte Vložit > Modul, zkopírujte a vložte níže uvedený kód do otevřeného prázdného modulu:

Kód VBA: Převod více poznámek na samostatné e-maily najednou:

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. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a zobrazí se okno se zprávou, které vám připomene, že chcete převést poznámky na e-maily, klikněte prosím OK, viz screenshot:

doc převádí poznámky na e-maily 1