Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

Bagaimana cara mengekspor email dari Outlook ke Excel secara otomatis?

Biasanya, Anda dapat mengekspor email dari Outlook ke Excel dengan fitur Impor / Ekspor. Namun, pernahkah Anda mencoba mengekspor email ke file Excel secara otomatis saat pesan baru tiba? Dalam artikel ini, saya akan berbicara tentang cara mengekspor informasi dari pesan masuk baru secara otomatis di Excel.

Informasi email ekspor otomatis dari prospek ke Excel dengan kode VBA


Cepat mengekspor emial dari Kotak Masuk / Item Terkirim / Draf ... ke file Excel:

Dengan Kutools for Outlook's Laporan Cepat fitur, Anda dapat dengan mudah menghasilkan file XML untuk melaporkan semua informasi item dalam folder email atau folder tugas saat ini

email ekspor otomatis dokumen untuk mengungguli 5

Kutools for Outlook: dengan lebih dari 40 + add-in Excel yang berguna, gratis untuk dicoba tanpa batasan dalam 60 hari. Unduh dan coba uji coba gratis sekarang!

Informasi email ekspor otomatis dari prospek ke Excel dengan kode VBA

Untuk mengekspor email baru tiba ke buku kerja Excel secara otomatis, silakan terapkan kode VBA berikut:

1. Pertama, Anda harus membuat buku kerja dengan informasi header di bawah sebagai tangkapan layar berikut ditampilkan, sehingga informasi ini pesan akan diekspor ke file Excel ini.

email ekspor otomatis dokumen untuk mengungguli 1

2. Lalu pergi ke Outlook dan tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

3. di Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali ThisOutlookSession dari Project1 (VbaProject.OTM) panel untuk membuka mode, lalu salin dan tempel kode berikut ke dalam modul kosong.

Kode VBA: Informasi email ekspor otomatis dari file Outlook ke 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

Catatan: Dalam kode diatas, C: \ Users \ DT168 \ Desktop \ memisahkan dokumen \ kto-data.xlsx adalah path file Excel dan nama Excel yang ingin Anda temukan informasi yang diekspor, silakan ubah sesuai kebutuhan Anda.

email ekspor otomatis dokumen untuk mengungguli 2

4. Masih di dalam Microsoft Visual Basic untuk Aplikasi window, klik alat > Referensi untuk pergi ke Referensi-Project1 kotak dialog, dan cek Perpustakaan Objek Microsoft Excel pilihan dari Referensi yang Tersedia kotak daftar, lihat tangkapan layar:

email ekspor otomatis dokumen untuk mengungguli 3

5. Lalu klik OK untuk menutup dialog, lalu simpan dan tutup jendela kode.

6. Sekarang, Anda harus me-restart Outlook untuk membuat kode ini berfungsi. Mulai sekarang, jika ada email baru tiba, mereka akan diekspor ke buku kerja spesifik secara otomatis, lihat screenshot:

email ekspor otomatis dokumen untuk mengungguli 4



Kutools for Outlook

Lebih dari 100 Fungsi Lanjut untuk Outlook 2010, 2013, 2016, 2019 dan 365

tangkapan layar kutools untuk outlook mungil untuk spanduk 201812

Fitur Lebih | Free download | Hanya $ 39.00 untuk ratusan fungsi

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Jorge · 5 months ago
    I need the help about exporting Email information sent (outgoing) emails
    • To post as a guest, your comment is unpublished.
      skyyang · 5 months ago
      Hello, Jorge,
      If you want to export the sent messages from the Sent Items folder, the Kutools for Outlook's Quick Report feature can help you. You can download the Kutools for Outlook first and then apply it.