Πώς να μετατρέψετε πολλές σημειώσεις σε ξεχωριστά email ταυτόχρονα στο Outlook;

Μερικές φορές, μπορεί να θέλετε να δημιουργήσετε ξεχωριστά νέα μηνύματα ηλεκτρονικού ταχυδρομείου με το περιεχόμενο των σημειώσεων στο Outlook. Κανονικά, μπορείτε να σύρετε όλες τις σημειώσεις στο εικονίδιο αλληλογραφίας στο παράθυρο πλοήγησης, αλλά όλες οι σημειώσεις θα εισαχθούν σε ένα μόνο email. Πώς θα μπορούσατε να μετατρέψετε πολλές σημειώσεις σε νέα μηνύματα ηλεκτρονικού ταχυδρομείου ξεχωριστά στο Outlook;

Μετατρέψτε πολλές σημειώσεις σε ξεχωριστό email ταυτόχρονα με τον κωδικό VBA

Μετατρέψτε πολλές σημειώσεις σε ξεχωριστό email ταυτόχρονα με τον κωδικό VBA

Για να δημιουργήσετε πολλά ξεχωριστά μηνύματα ηλεκτρονικού ταχυδρομείου βάσει των περιεχομένων των σημειώσεων, εφαρμόστε τον ακόλουθο κώδικα VBA:

1. Μεταβείτε στο παράθυρο Σημειώσεις και, στη συνέχεια, επιλέξτε τις σημειώσεις που θέλετε να μετατρέψετε σε μηνύματα ηλεκτρονικού ταχυδρομείου.

2. Στη συνέχεια, κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

3. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή κενή ενότητα:

Κωδικός VBA: Μετατροπή πολλών σημειώσεων σε ξεχωριστά email ταυτόχρονα:

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 για να εκτελέσετε αυτόν τον κωδικό και ένα πλαίσιο μηνύματος εμφανίζεται για να σας υπενθυμίσει εάν θέλετε να μετατρέψετε σημειώσεις σε email, κάντε κλικ OK, δείτε το στιγμιότυπο οθόνης:

doc μετατροπή σημειώσεων σε email 1

5. Και στη συνέχεια, όλες οι επιλεγμένες σημειώσεις έχουν μετατραπεί σε μηνύματα ηλεκτρονικού ταχυδρομείου όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης:

doc μετατροπή σημειώσεων σε email 2