Πώς να εξαγάγετε αυτόματα μηνύματα ηλεκτρονικού ταχυδρομείου από το Outlook στο Excel;

Κανονικά, μπορείτε να εξαγάγετε τα μηνύματα ηλεκτρονικού ταχυδρομείου από το Outlook στο Excel με τη δυνατότητα Εισαγωγή / Εξαγωγή. Όμως, έχετε προσπαθήσει ποτέ να εξαγάγετε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου στο αρχείο Excel όταν έρχονται νέα μηνύματα; Σε αυτό το άρθρο, θα μιλήσω για τον τρόπο αυτόματης εξαγωγής των πληροφοριών των νέων εισερχόμενων μηνυμάτων στο Excel.

Αυτόματη εξαγωγή πληροφοριών email από προοπτική στο Excel με κωδικό VBA

Εξαγάγετε πληροφορίες email από το Outlook στο Excel με μια καταπληκτική δυνατότητα

Αυτόματη εξαγωγή πληροφοριών email από προοπτική στο Excel με κωδικό VBA

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

1. Αρχικά, θα πρέπει να δημιουργήσετε ένα βιβλίο εργασίας με τις παρακάτω πληροφορίες κεφαλίδας όπως φαίνεται το παρακάτω στιγμιότυπο οθόνης, ώστε αυτές οι πληροφορίες των μηνυμάτων να εξαχθούν σε αυτό το αρχείο Excel.

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

3. Στην Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε διπλό κλικ Αυτό το OutlookSession από το Έργο1 (VbaProject.OTM) παράθυρο για να ανοίξετε τη λειτουργία και, στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα στην κενή μονάδα.

Κωδικός VBA: Αυτόματη εξαγωγή πληροφοριών email από το Outlook σε αρχείο Excel:

Public WithEvents GMailItems As Outlook.Items
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    Dim xMailItem As Outlook.MailItem
    Dim xExcelFile As String
    Dim xExcelApp As Excel.Application
    Dim xWb As Excel.Workbook
    Dim xWs As Excel.Worksheet
    Dim xNextEmptyRow As Integer
    On Error Resume Next
    If Item.Class <> olMail Then Exit Sub
    Set xMailItem = Item
    xExcelFile = "C:\Users\DT168\Desktop\split document\kto-data.xlsx"
    If IsWorkBookOpen(xExcelFile) = True Then
        Set xExcelApp = GetObject(, "Excel.Application")
        Set xWb = GetObject(xExcelFile)
        If Not xWb Is Nothing Then xWb.Close True
    Else
        Set xExcelApp = New Excel.Application
    End If
    Set xWb = xExcelApp.Workbooks.Open(xExcelFile)
    Set xWs = xWb.Sheets(1)
    xNextEmptyRow = xWs.Range("B" & xWs.Rows.Count).End(xlUp).Row + 1
    With xWs
        .Cells(xNextEmptyRow, 1) = xNextEmptyRow - 1
        .Cells(xNextEmptyRow, 2) = xMailItem.SenderName
        .Cells(xNextEmptyRow, 3) = xMailItem.SenderEmailAddress
        .Cells(xNextEmptyRow, 4) = xMailItem.Subject
        .Cells(xNextEmptyRow, 5) = xMailItem.ReceivedTime
    End With
    xWs.Columns("A:E").AutoFit
    xWb.Save
End Sub
Function IsWorkBookOpen(FileName As String)
    Dim xFreeFile As Long, xErrNo As Long
    On Error Resume Next
    xFreeFile = FreeFile()
    Open FileName For Input Lock Read As #xFreeFile
    Close xFreeFile
    xErrNo = Err
    On Error GoTo 0
    Select Case xErrNo
        Case 0: IsWorkBookOpen = False
        Case 70: IsWorkBookOpen = True
        Case Else: Error xErrNo
    End Select
End Function

Note: Στον παραπάνω κώδικα, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx είναι η διαδρομή αρχείου Excel και το όνομα Excel που θέλετε να εντοπίσετε τις εξαγόμενες πληροφορίες, αλλάξτε τις ανάλογα με τις ανάγκες σας.

4. Ακόμα στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > αναφορές για να μεταβείτε στο Αναφορές-Έργο 1 πλαίσιο διαλόγου και επιλέξτε Βιβλιοθήκη αντικειμένων του Microsoft Excel Επιλογή από το Διαθέσιμες αναφορές πλαίσιο λίστας, δείτε το στιγμιότυπο οθόνης:

5. Στη συνέχεια κάντε κλικ στο κουμπί OK για να κλείσετε το παράθυρο διαλόγου και, στη συνέχεια, αποθηκεύστε και κλείστε το παράθυρο κώδικα

6. Τώρα, πρέπει να κάνετε επανεκκίνηση του Outlook για να τεθεί σε ισχύ αυτός ο κώδικας. Από τώρα και στο εξής, εάν υπάρχουν νέα μηνύματα ηλεκτρονικού ταχυδρομείου, θα εξαχθούν αυτόματα στο συγκεκριμένο βιβλίο εργασίας, δείτε το στιγμιότυπο οθόνης:

Εξαγάγετε πληροφορίες email από το Outlook στο Excel με μια καταπληκτική δυνατότητα

Εάν θέλετε να εξαγάγετε τα μηνύματα ηλεκτρονικού ταχυδρομείου από τα Εισερχόμενα, τα Εξερχόμενα ή άλλους φακέλους σε ένα αρχείο Excel, Kutools για το Outlook's Γρήγορη αναφορά μπορεί να σας βοηθήσει να δημιουργήσετε εύκολα ένα αρχείο XML για την αναφορά πληροφοριών όλων των στοιχείων στον τρέχοντα φάκελο email ή στο φάκελο εργασιών όπως χρειάζεστε.

Μετά την εγκατάσταση Kutools για το Outlook, κάντε το ως εξής:

1. Επιλέξτε ένα φάκελο στον οποίο θέλετε να εξαγάγετε όλες τις πληροφορίες μηνυμάτων και, στη συνέχεια, κάντε κλικ στο Kutools Plus > Γρήγορη αναφορά, δείτε το στιγμιότυπο οθόνης:

2. Στη συνέχεια, στο αναδυόμενο Αποθήκευση αναφοράς παράθυρο, επιλέξτε μια τοποθεσία και καθορίστε ένα όνομα για αυτό το εξαγόμενο αρχείο, δείτε το στιγμιότυπο οθόνης:

3. Και μετά, κάντε κλικ στο Αποθήκευση για να αποθηκεύσετε αυτό το αρχείο και στο αναδυόμενο πλαίσιο, κάντε κλικ στο Ναι κουμπί για να ανοίξετε το αρχείο, δείτε το στιγμιότυπο οθόνης:

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

Σχετικά άρθρα:

---

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα Pro: Μαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

Δείτε Περισσότερα       Δωρεάν κατέβασμα      Αγορά