Jak automatycznie eksportować wiadomości e-mail z Outlooka do Excela?
Zwykle możesz eksportować wiadomości e-mail z Outlooka do Excela za pomocą funkcji Importuj / Eksportuj. Ale czy kiedykolwiek próbowałeś automatycznie wyeksportować wiadomości e-mail do pliku Excel, gdy nadejdą nowe wiadomości? W tym artykule omówię, jak automatycznie wyeksportować informacje o nowych wiadomościach przychodzących w programie Excel.
Automatycznie eksportuj informacje e-mail z programu Outlook do programu Excel za pomocą kodu VBA
Eksportuj informacje e-mail z programu Outlook do programu Excel z niesamowitą funkcją
Automatycznie eksportuj informacje e-mail z programu Outlook do programu Excel za pomocą kodu VBA
Aby automatycznie wyeksportować nowe przychodzące wiadomości e-mail do skoroszytu programu Excel, zastosuj następujący kod VBA:
1. Najpierw powinieneś utworzyć skoroszyt z poniższymi informacjami w nagłówku, jak pokazano na poniższym zrzucie ekranu, aby te informacje o wiadomościach zostały wyeksportowane do tego pliku Excel.
2. Następnie przejdź do Outlooka i przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
3, w Microsoft Visual Basic for Applications kliknij dwukrotnie Ta sesja programu Outlook z Project1 (VbaProject.OTM) okienko, aby otworzyć tryb, a następnie skopiuj i wklej następujący kod do pustego modułu.
Kod VBA: Automatyczny eksport informacji e-mail z programu Outlook do pliku 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: W powyższym kodzie, C: \ Users \ DT168 \ Desktop \ split document \ kto-data.xlsx to ścieżka do pliku Excel i nazwa programu Excel, w którym chcesz zlokalizować wyeksportowane informacje, zmień je zgodnie z potrzebami.
4. Wciąż w Microsoft Visual Basic for Applications okno, kliknij Tools > Referencje , aby przejść do Referencje-projekt 1 okno dialogowe i zaznacz Biblioteka obiektów programu Microsoft Excel opcja z Dostępne referencje pole listy, zobacz zrzut ekranu:
5. Następnie kliknij OK aby zamknąć okno dialogowe, a następnie zapisz i zamknij okno kodu.
6. Teraz należy ponownie uruchomić program Outlook, aby ten kod zaczął obowiązywać. Odtąd, jeśli pojawią się nowe wiadomości e-mail, zostaną one automatycznie wyeksportowane do określonego skoroszytu, patrz zrzut ekranu:
Eksportuj informacje e-mail z programu Outlook do programu Excel z niesamowitą funkcją
Jeśli chcesz wyeksportować wiadomości e-mail ze skrzynki odbiorczej, skrzynki nadawczej lub innych folderów do pliku Excel, Kutools dla programu Outlook's Szybki raport może pomóc w łatwym wygenerowaniu pliku XML do raportowania informacji o wszystkich elementach w bieżącym folderze e-mail lub folderze zadań, zgodnie z potrzebami.
Po zainstalowaniu Kutools dla programu Outlook, zrób tak:
1. Wybierz folder, do którego chcesz wyeksportować wszystkie informacje o wiadomościach, a następnie kliknij Kutools Plus > Szybki raportzobacz zrzut ekranu:
2. Następnie wyskoczył Zapisz raport okno, wybierz lokalizację i określ nazwę tego wyeksportowanego pliku, zobacz zrzut ekranu:
3. A następnie kliknij Zapisz aby zapisać ten plik, a następnie w wyskakującym okienku kliknij Tak przycisk, aby otworzyć plik, zobacz zrzut ekranu:
4. Teraz możesz zobaczyć wszystkie informacje e-maili w wybranym folderze zostały wyeksportowane do pliku Excel, zobacz zrzut ekranu:
Więcej artykułów względnych:
- Eksportuj tabelę treści wiadomości e-mail do programu Excel w programie Outlook
- Gdy otrzymasz wiadomość e-mail zawierającą niektóre tabele w treści, czasami może być konieczne wyeksportowanie wszystkich tabel z treści wiadomości do arkusza programu Excel. Zwykle możesz skopiować i wkleić tabele do arkusza roboczego, ale tutaj omówię przydatną metodę rozwiązania tego zadania, gdy trzeba wyeksportować wiele tabel.
- Wyodrębnij lub wyeksportuj listę zadań do programu Excel w programie Outlook
- Korzystając z programu Outlook, możesz wyodrębnić listę zadań do programu Excel do innych celów. Dzięki potężnej funkcji Eksportuj w programie Outlook możesz łatwo wyeksportować listę zadań do programu Excel. Wykonaj poniższe instrukcje.
- Eksportuj informacje o kontaktach ze zdjęciami w programie Outlook
- Podczas eksportowania kontaktów z programu Outlook do pliku można wyeksportować tylko informacje tekstowe kontaktów. Ale czasami potrzebujesz wyeksportować zdjęcia, a także informacje tekstowe kontaktów, jak poradzić sobie z tym zadaniem w Outlooku?
- Eksportuj strukturę folderów z programu Outlook do programu Excel
- W tym artykule przedstawię, jak wyeksportować strukturę folderów konta z programu Outlook do pliku Excel. Osiągnij to dzięki szczegółom tego artykułu.
Najlepsze narzędzia biurowe
Kutools dla programu Outlook - Ponad 100 zaawansowanych funkcji, które usprawnią Twoje perspektywy
🤖 Asystent poczty AI: Natychmiastowe profesjonalne e-maile z magią AI — genialne odpowiedzi jednym kliknięciem, doskonały ton, biegła znajomość wielu języków. Zmień e-mailing bez wysiłku! ...
📧 Automatyzacja poczty e-mail: Poza biurem (dostępne dla POP i IMAP) / Zaplanuj wysyłanie wiadomości e-mail / Automatyczne CC/BCC według reguł podczas wysyłania wiadomości e-mail / Automatyczne przewijanie (Zasady zaawansowane) / Automatyczne dodawanie powitania / Automatycznie dziel wiadomości e-mail od wielu odbiorców na pojedyncze wiadomości ...
📨 Zarządzanie e-mail: Łatwe przywoływanie e-maili / Blokuj oszukańcze wiadomości e-mail według tematów i innych / Usuń zduplikowane wiadomości e-mail / Wiecej opcji / Konsoliduj foldery ...
📁 Załączniki Pro: Zapisz zbiorczo / Odłącz partię / Kompresuj wsadowo / Automatyczne zapisywanie / Automatyczne odłączanie / Automatyczna kompresja ...
🌟 Magia interfejsu: 😊Więcej ładnych i fajnych emotikonów / Zwiększ produktywność programu Outlook dzięki widokom na kartach / Zminimalizuj program Outlook zamiast go zamykać ...
>> Cuda jednym kliknięciem: Odpowiedz wszystkim, dodając przychodzące załączniki / E-maile chroniące przed phishingiem / 🕘Pokaż strefę czasową nadawcy ...
👩🏼🤝👩🏻 Kontakty i kalendarz: Grupowe dodawanie kontaktów z wybranych e-maili / Podziel grupę kontaktów na pojedyncze grupy / Usuń przypomnienia o urodzinach ...
O Cechy 100 Poczekaj na eksplorację! Kliknij tutaj, aby dowiedzieć się więcej.