Hogyan konvertálhat egyszerre több jegyzetet külön e-mailekre az Outlookban?

Előfordulhat, hogy külön új e-maileket szeretne létrehozni az Outlook jegyzeteinek tartalmával. Normál esetben az összes jegyzetet áthúzhatja a navigációs panel Mail ikonjába, de az összes jegyzet egyetlen e-mailbe kerül. Hogyan konvertálhat több jegyzetet új e-mailekre külön az Outlook programban?

Konvertáljon több jegyzetet külön e-mailekbe egyszerre a VBA kóddal

Konvertáljon több jegyzetet külön e-mailekbe egyszerre a VBA kóddal

Ha több külön e-mailt szeretne létrehozni a jegyzetek tartalma alapján, kérjük, alkalmazza a következő VBA kódot:

1. Lépjen a Jegyzetek ablaktáblára, majd válassza ki az e-mailekké konvertálni kívánt jegyzeteket.

2. Ezután tartsa lenyomva a ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

3. Ezután kattintson betétlap > Modulok, másolja és illessze be a kódot a megnyitott üres modulba:

VBA-kód: Több jegyzet konvertálása külön e-mailekre egyszerre:

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. Ezután nyomja meg a gombot F5 gombot a kód futtatásához, és megjelenik egy üzenetmező, amely emlékezteti Önt, ha jegyzeteket szeretne e-mailekké konvertálni, kattintson a gombra OK, lásd a képernyőképet:

doc konvertálja a jegyzeteket e-mailekké 1