Note: The other languages of the website are Google-translated. Back to English

Bagaimana cara mengekspor email dari beberapa folder / subfolder untuk unggul di Outlook?

Saat mengekspor folder dengan panduan Impor dan Ekspor di Outlook, itu tidak mendukung file Sertakan Subfolder opsi jika Anda mengekspor folder ke file CSV. Namun, akan sangat memakan waktu dan membosankan untuk mengekspor setiap folder ke file CSV dan kemudian mengubahnya menjadi buku kerja Excel secara manual. Di sini, artikel ini akan memperkenalkan VBA untuk mengekspor banyak folder dan subfolder ke buku kerja Excel dengan mudah.

Ekspor beberapa email dari beberapa folder / subfolder ke Excel dengan VBA

Tab Office - Aktifkan Pengeditan dan Penjelajahan Tab di Office, dan Jadikan Pekerjaan Lebih Mudah ...
Kutools for Outlook - Membawa 100 Fitur Canggih yang Kuat ke Microsoft Outlook
  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email berdasarkan aturan; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat surat Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran dalam percakapan surat; Balas Banyak Email sekaligus; Tambah Salam Otomatis saat membalas; Tambah Tanggal & Waktu secara Otomatis ke dalam subjek ...
  • Alat Lampiran: Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua Otomatis ... Laporan Cepat, Hitung Email Terpilih, Hapus Duplikat Email dan Kontak ...
  • Lebih dari 100 fitur canggih akan memecahkan sebagian besar masalah Anda di Outlook 2021 - 2010 atau Office 365. Fitur lengkap uji coba gratis 60 hari.

panah gelembung kanan biru Ekspor beberapa email dari beberapa folder / subfolder ke Excel dengan VBA

Ikuti langkah-langkah di bawah ini untuk mengekspor email dari beberapa folder atau subfolder ke buku kerja Excel dengan VBA di Outlook.

1. tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

2. klik Menyisipkan > Modul, lalu tempelkan kode VBA di bawah ini ke jendela Modul baru.

VBA: Ekspor email dari beberapa folder dan subfolder ke Excel

Const MACRO_NAME = "Export Outlook Folders to Excel"

Sub ExportMain()
ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"
ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"
MsgBox "Process complete.", vbInformation + vbOKOnly, MACRO_NAME
End Sub
Sub ExportToExcel(strFilename As String, strFolderPath As String)
Dim      olkMsg As Object
Dim olkFld As Object
Dim excApp As Object
Dim excWkb As Object
Dim excWks As Object
Dim intRow As Integer
Dim intVersion As Integer

If strFilename <> "" Then
If strFolderPath <> "" Then
Set olkFld = OpenOutlookFolder(strFolderPath)
If TypeName(olkFld) <> "Nothing" Then
intVersion = GetOutlookVersion()
Set excApp = CreateObject("Excel.Application")
Set excWkb = excApp.Workbooks.Add()
Set excWks = excWkb.ActiveSheet
'Write Excel Column Headers
With excWks
.Cells(1, 1) = "Subject"
.Cells(1, 2) = "Received"
.Cells(1, 3) = "Sender"
End With
intRow = 2
For Each olkMsg In olkFld.Items
'Only export messages, not receipts or appointment requests, etc.
If olkMsg.Class = olMail Then
'Add a row for each field in the message you want to export
excWks.Cells(intRow, 1) = olkMsg.Subject
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
intRow = intRow + 1
End If
Next
Set olkMsg = Nothing
excWkb.SaveAs strFilename
excWkb.Close
Else
MsgBox "The folder '" & strFolderPath & "' does not exist in Outlook.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The folder path was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If
Else
MsgBox "The filename was empty.", vbCritical + vbOKOnly, MACRO_NAME
End If

Set olkMsg = Nothing
Set olkFld = Nothing
Set excWks = Nothing
Set excWkb = Nothing
Set excApp = Nothing
End Sub

Public Function OpenOutlookFolder(strFolderPath As String) As Outlook.MAPIFolder
Dim arrFolders As Variant
Dim varFolder As Variant
Dim bolBeyondRoot As Boolean

On Error Resume Next
If strFolderPath = "" Then
Set OpenOutlookFolder = Nothing
Else
Do While Left(strFolderPath, 1) = "\"
strFolderPath = Right(strFolderPath, Len(strFolderPath) - 1)
Loop
arrFolders = Split(strFolderPath, "\")
For Each varFolder In arrFolders
Select Case bolBeyondRoot
Case False
Set OpenOutlookFolder = Outlook.Session.Folders(varFolder)
bolBeyondRoot = True
Case True
Set OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)
End Select
If Err.Number <> 0 Then
Set OpenOutlookFolder = Nothing
Exit For
End If
Next
End If
On Error GoTo 0
End Function

Function GetSMTPAddress(Item As Outlook.MailItem, intOutlookVersion As Integer) As String
Dim olkSnd As Outlook.AddressEntry
Dim olkEnt As Object

On Error Resume Next
Select Case intOutlookVersion
Case Is < 14
If Item.SenderEmailType = "EX" Then
GetSMTPAddress = SMTPEX(Item)
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
Case Else
Set olkSnd = Item.Sender
If olkSnd.AddressEntryUserType = olExchangeUserAddressEntry Then
Set olkEnt = olkSnd.GetExchangeUser
GetSMTPAddress = olkEnt.PrimarySmtpAddress
Else
GetSMTPAddress = Item.SenderEmailAddress
End If
End Select
On Error GoTo 0
Set olkPrp = Nothing
Set olkSnd = Nothing
Set olkEnt = Nothing
End Function

Function GetOutlookVersion() As Integer
Dim arrVer As Variant
arrVer = Split(Outlook.Version, ".")
GetOutlookVersion = arrVer(0)
End Function

Function SMTPEX(olkMsg As Outlook.MailItem) As String
Dim olkPA As Outlook.propertyAccessor
On Error Resume Next
Set olkPA = olkMsg.propertyAccessor
SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")
On Error GoTo 0
Set olkPA = Nothing
End Function

3. Harap sesuaikan kode VBA di atas sesuai kebutuhan Anda.

(1) Ganti tujuan_folder_jalur dalam kode di atas dengan jalur folder folder tujuan Anda akan menyimpan buku kerja yang diekspor, seperti C: \ Users \ DT168 \ Documents \ TEST.
(2) Ganti your_email_accouny \ folder \ subfolder_1 dan your_email_accouny \ folder \ subfolder_2 di kode di atas dengan jalur folder subfolder di Outlook, seperti Kelly @extendoffice.com \ Inbox \ A serta Kelly @extendoffice.com \ Inbox \ B

4. tekan F5 atau klik Run tombol untuk menjalankan VBA ini. Dan kemudian klik OK di kotak dialog Ekspor Outlook Folder ke Excel muncul. Lihat tangkapan layar:

Dan sekarang email dari semua subfolder atau folder tertentu di kode VBA di atas diekspor dan disimpan ke dalam buku kerja Excel.


panah gelembung kanan biruArtikel terkait


Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!

  • CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
  • Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
  • Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
  • Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
  • Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.
shot kutools outlook tab kutools 1180x121
tembak kutools outlook kutools plus tab 1180x121
 
Urutkan komentar berdasarkan
komentar (10)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
Bagaimana cara agar ini secara otomatis muncul kembali ke dalam subfolder?
Komentar ini diminimalkan oleh moderator di situs
halo sayang, semuanya bekerja dengan baik banyak terima kasih tetapi badan tidak diekspor, bagaimana saya bisa mengekspor badan email juga, file excel baru saja (Subjek, Diterima, dan Pengirim), jika Anda dapat memperbarui saya dengan itu akan menyelesaikan masalah besar dalam bisnis saya banyak terima kasih lagi
Komentar ini diminimalkan oleh moderator di situs
Hai Montaser,
Skrip VBA berjalan berdasarkan fitur Ekspor Outlook yang tidak mendukung ekspor konten pesan saat mengekspor email secara massal dari folder email. Oleh karena itu, skrip VBA ini juga tidak dapat mengekspor konten pesan.
Komentar ini diminimalkan oleh moderator di situs
ini berfungsi dengan baik, tetapi apakah ada cara untuk menambahkan info tidak hanya untuk 4 bidang di atas tetapi semua yang diberikan oleh ekspor Outlook ke PST? Isi Subjek Dari: (Nama) Dari: (Alamat) Dari: (Jenis) Ke: (Nama) Ke: (Alamat) Ke: (Tipe) CC: (Nama) CC: (Alamat) CC: (Tipe) BCC: ( Nama) BCC: (Alamat) BCC: (Jenis) Informasi Penagihan Kategori Pentingnya Mileage Sensitivitas

Saya mencoba menambahkan "Pentingnya" dan berhasil, tetapi saya akan menghargai jika seseorang dapat memberikan kode untuk bidang lain. terima kasih!!
Dengan excWks
.Sel(1, 1) = "Subjek"
.Sel(1, 2) = "Diterima"
.Sel(1, 3) = "Pengirim"
.Sel(1, 4) = "Tubuh"
.Sel(1, 5) = "Penting"
Berakhir dengan
intRow = 2
Untuk Setiap olkMsg Di olkFld.Items
'Hanya pesan ekspor, bukan tanda terima atau permintaan janji temu, dll.
Jika olkMsg.Class = olMail Maka
'Tambahkan baris untuk setiap bidang dalam pesan yang ingin Anda ekspor
excWks.Cells(intRow, 1) = olkMsg.Subjek
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Sel(intRow, 4) = olkMsg.Body
excWks.Sel(intRow, 5) = olkMsg.Penting
Komentar ini diminimalkan oleh moderator di situs
Hai, silakan periksa kode di bawah ini untuk kebutuhan Anda:
Const MACRO_NAME = "Ekspor Folder Outlook ke Excel"

Sub EksporUtama()

ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"

ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"

MsgBox "Proses selesai.", vbInformation + vbOKOnly, MACRO_NAME

End Sub

Sub ExportToExcel(strNama File Sebagai String, strFolderPath Sebagai String)

Redupkan olkMsg Sebagai Objek

Redupkan OldFld Sebagai Obyek

Redupkan excApp Sebagai Objek

Redupkan excWkb Sebagai Objek

Redupkan excWks Sebagai Objek

Redupkan intRow Sebagai Integer

Redupkan versi int Sebagai Integer

Jika strNama file <> "" Kemudian

Jika strFolderPath <> "" Maka

Setel olkFld = OpenOutlookFolder(strFolderPath)

Jika TypeName(olkFld) <> "Tidak Ada" Lalu

intVersion = GetOutlookVersion()

Setel excApp = CreateObject("Excel.Application")

Setel excWkb = excApp.Workbooks.Add()

Setel excWks = excWkb.ActiveSheet

'Tulis Tajuk Kolom Excel

Dengan excWks

.Sel(1, 1) = "Subjek"

.Sel(1, 2) = "Tubuh"

.Sel(1, 3) = "Diterima"

.Sel(1, 4) = "Dari: (Nama)"

.Sel(1, 5) = "Dari: (Alamat)"

.Sel(1, 6) = "Dari: (Tipe)"

.Sel(1, 7) = "Kepada: (Nama)"

.Sel(1, 8) = "Ke: (Alamat)"

.Sel(1, 9) = "Ke: (Tipe)"

.Sel(1, 10) = "CC: (Nama)"

.Sel(1, 11) = "CC: (Alamat)"

.Sel(1, 12) = "CC: (Tipe)"

.Sel(1, 13) = "BCC: (Nama)"

.Sel(1, 14) = "BCC: (Alamat)"

.Sel(1, 15) = "BCC: (Tipe)"

.Sel(1, 16) = "Informasi Penagihan"

.Sel(1, 17) = "Kategori"

.Sel(1, 18) = "Penting"

.Sel(1, 19) = "Jarak tempuh"

.Sel(1, 20) = "Sensitivitas"

Berakhir dengan

intRow = 2

Untuk Setiap olkMsg Di olkFld.Items

'Hanya pesan ekspor, bukan tanda terima atau permintaan janji temu, dll.

Jika olkMsg.Class = olMail Maka

'Tambahkan baris untuk setiap bidang dalam pesan yang ingin Anda ekspor

excWks.Cells(intRow, 1) = olkMsg.Subjek

excWks.Sel(intRow, 2) = olkMsg.Body

excWks.Cells(intRow, 3) = olkMsg.ReceivedTime

excWks.Cells(intRow, 4) = olkMsg.SenderName

excWks.Cells(intRow, 5) = GetAddress(olkMsg.Sender, intVersion)

excWks.Cells(intRow, 6) = olkMsg.Sender.Type

excWks.Cells(intRow, 7) = GetRecipientsName(olkMsg, 1, 1, intVersion)

excWks.Cells(intRow, 8) = GetRecipientsName(olkMsg, 1, 2, intVersion)

excWks.Cells(intRow, 9) = GetRecipientsName(olkMsg, 1, 3, intVersion)

excWks.Cells(intRow, 10) = GetRecipientsName(olkMsg, 2, 1, intVersion)

excWks.Cells(intRow, 11) = GetRecipientsName(olkMsg, 2, 2, intVersion)

excWks.Cells(intRow, 12) = GetRecipientsName(olkMsg, 2, 3, intVersion)

excWks.Cells(intRow, 13) = GetRecipientsName(olkMsg, 3, 1, intVersion)

excWks.Cells(intRow, 14) = GetRecipientsName(olkMsg, 3, 2, intVersion)

excWks.Cells(intRow, 15) = GetRecipientsName(olkMsg, 3, 3, intVersion)

excWks.Cells(intRow, 16) = olkMsg.BillingInformation

excWks.Cells(intRow, 17) = olkMsg.Categories

excWks.Sel(intRow, 18) = olkMsg.Penting

excWks.Cells(intRow, 19) = olkMsg.Mileage

excWks.Sel(intRow, 20) = olkMsg.Sensitivitas

intRow = intRow + 1

End If

Next

Setel olkMsg = Tidak ada

excWkb.SaveAs strNama file

excWkb.Tutup

Lain

MsgBox "Folder '" & strFolderPath & "' tidak ada di Outlook.", vbCritical + vbOKOnly, MACRO_NAME

End If

Lain

MsgBox "Jalur folder kosong.", vbCritical + vbOKOnly, MACRO_NAME

End If

Lain

MsgBox "Nama file kosong.", vbCritical + vbOKOnly, MACRO_NAME

End If



Setel olkMsg = Tidak ada

Setel olkFld = Tidak ada

Setel excWks = Tidak ada

Setel excWkb = Tidak ada

Setel excApp = Tidak Ada

End Sub



Fungsi Publik OpenOutlookFolder(strFolderPath As String) Sebagai Outlook.MAPIFolder

Redupkan folder sebagai Varian

Dim varFolder Sebagai Varian

Dim bolBeyondRoot Sebagai Boolean

On Error Resume Next

Jika strFolderPath = "" Maka

Setel OpenOutlookFolder = Tidak Ada

Lain

Lakukan Saat Kiri(strFolderPath, 1) = "\"

strFolderPath = Kanan(strFolderPath, Len(strFolderPath) - 1)

Lingkaran

arrFolder = Pisahkan(strFolderPath, "\")

Untuk Setiap varFolder Di arrFolders

Pilih Case bolBeyondRoot

Kasus Salah

Setel OpenOutlookFolder = Outlook.Session.Folders(varFolder)

bolBeyondRoot = Benar

Kasus Benar

Setel OpenOutlookFolder = OpenOutlookFolder.Folders(varFolder)

End Select

Jika Err.Number <> 0 Maka

Setel OpenOutlookFolder = Tidak Ada

Keluar Untuk

End If

Next

End If

Pada Kesalahan GoTo 0

End Function



Fungsi GetOutlookVersion() Sebagai Integer

Dim arrVer Sebagai Varian

arrVer = Split(Outlook.Version, ".")

GetOutlookVersion = arrVer(0)

End Function



Fungsi SMTPEX(Masuk Sebagai AlamatMasuk) Sebagai String

Redupkan olkPA Sebagai Outlook.PropertyAccessor

On Error Resume Next

Setel olkPA = Entry.PropertyAccessor

SMTPEX = olkPA.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x5D01001E")

Pada Kesalahan GoTo 0

Setel olkPA = Tidak ada

End Function



Fungsi GetAddress(Entry As AddressEntry, intOutlookVersion As Integer) Sebagai String

Redupkan Sebagai Objek

On Error Resume Next

Pilih Kasus intOutlookVersion

Kasus < 14

Jika Entry.Type = "EX" Kemudian

GetAddress = SMTPEX(Entri)

Lain

GetAddress = Entri.Alamat

End If

Case Else

Jika Entry.AddressEntryUserType = olExchangeUserAddressEntry Kemudian

Setel olkEnt = Entry.GetExchangeUser

GetAddress = olkEnt.PrimarySmtpAddress

Lain

GetAddress = Entri.Alamat

End If

End Select

Pada Kesalahan GoTo 0

Setel olkEnt = Tidak ada

End Function



Fungsi GetRecipientsName(Item Sebagai MailItem, rcpType Sebagai Integer, Ret Sebagai Integer, intOutlookVersion Sebagai Integer) Sebagai String

Redupkan xRcp Sebagai Penerima

Redupkan xNames Sebagai String

xNama = ""

Untuk Setiap xRcp Dalam Item.Penerima

Jika xRcp.Type = rcpType Maka

Jika Ret = 1 Maka

Jika xNames = "" Maka

xNama = xRcp.Nama

Lain

xNama = xNama & "; " & xRcp.Nama

End If

LainJika Ret = 2 Maka

Jika xNames = "" Maka

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Lain

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

End If

LainJika Ret = 3 Maka

Jika xNames = "" Maka

xNames = xRcp.AddressEntry.Type

Lain

xNames = xNames & "; " & xRcp.AddressEntry.Type

End If

End If

ElseIf xRcp.Type = rcpType Kemudian

Jika Ret = 1 Maka

Jika xNames = "" Maka

xNama = xRcp.Nama

Lain

xNama = xNama & "; " & xRcp.Nama

End If

LainJika Ret = 2 Maka

Jika xNames = "" Maka

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Lain

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

End If

LainJika Ret = 3 Maka

Jika xNames = "" Maka

xNames = xRcp.AddressEntry.Type

Lain

xNames = xNames & "; " & xRcp.AddressEntry.Type

End If

End If

ElseIf xRcp.Type = rcpType Kemudian

Jika Ret = 1 Maka

Jika xNames = "" Maka

xNama = xRcp.Nama

Lain

xNama = xNama & "; " & xRcp.Nama

End If

LainJika Ret = 2 Maka

Jika xNames = "" Maka

xNames = GetAddress(xRcp.AddressEntry, intOutlookVersion)

Lain

xNames = xNames & "; " & GetAddress(xRcp.AddressEntry, intOutlookVersion)

End If

LainJika Ret = 3 Maka

Jika xNames = "" Maka

xNames = xRcp.AddressEntry.Type

Lain

xNames = xNames & "; " & xRcp.AddressEntry.Type

End If

End If

End If

Next

GetRecipientsName = xNama

End Function




Semoga ini berhasil untuk Anda.
Amanda
Komentar ini diminimalkan oleh moderator di situs
Di sub ExporttoExcel Anda dapat menambahkan badan

'Tulis Tajuk Kolom Excel
Dengan excWks
.Sel(1, 1) = "Subjek"
.Sel(1, 2) = "Diterima"
.Sel(1, 3) = "Pengirim"
.Sel(1, 4) = "Tubuh"
Berakhir dengan
intRow = 2
Untuk Setiap olkMsg Di olkFld.Items
'Hanya pesan ekspor, bukan tanda terima atau permintaan janji temu, dll.
Jika olkMsg.Class = olMail Maka
'Tambahkan baris untuk setiap bidang dalam pesan yang ingin Anda ekspor
excWks.Cells(intRow, 1) = olkMsg.Subjek
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)
excWks.Sel(intRow, 4) = olkMsg.Body
intRow = intRow + 1
Komentar ini diminimalkan oleh moderator di situs
Hai, Semoga seseorang dapat membantu saya di sini, saya hampir tidak memiliki pengetahuan tentang VB tetapi sejauh ini berhasil membuat skrip ini berfungsi untuk saya.

Namun saya memiliki sekitar 1500 folder dan subfolder di bawah kotak masuk saya secara total dan saya benar-benar ingin skrip sederhana untuk mengekspor semua alamat email yang telah saya kirim dengan baris subjek dan tanggal pada kolom terpisah di Excel.

Saya telah mencari selama berhari-hari, dan mencoba banyak situs berbeda tetapi tidak dapat membuat kode apa pun berfungsi selain yang ini.


Apakah yang saya minta bahkan mungkin? Jika demikian, apakah ada orang di luar sana yang baik dan cukup pintar untuk membantu saya dengan skrip yang saya butuhkan?
Saya kira itu ada hubungannya dengan bagian ini:


Sub EksporUtama()

ExportToExcel "destination_folder_path\A.xlsx", "your_email_accouny\folder\subfolder_1"

ExportToExcel "destination_folder_path\B.xlsx", "your_email_accouny\folder\subfolder_2"

MsgBox "Proses selesai.", vbInformation + vbOKOnly, MACRO_NAME

End Sub


Terima kasih sebelumnya
Komentar ini diminimalkan oleh moderator di situs
Hai,
Saya baru saja menjalankan Makro ini yang berfungsi dengan baik.
Saya mengerti itu dalam ekspresi
excWks.Cells(intRow, 1) = olkMsg.Subjek
excWks.Cells(intRow, 2) = olkMsg.ReceivedTime
excWks.Cells(intRow, 3) = GetSMTPAddress(olkMsg, intVersion)

olkMsg.* dan GetSMTPAddress(olkMsg, intVersion) mengekstrak barang dari Outlook.

Apa argumen yang digunakan untuk mendapatkan Alamat tujuan pengiriman surat?

Saat Menggunakan Wisaya Ekspor Outlook, adalah mungkin untuk mengekspor alamat ini, jadi saya berasumsi mungkin untuk melakukannya melalui Makro ini (dengan beberapa modifikasi).
Ada yang bisa bantu?

Salam
Komentar ini diminimalkan oleh moderator di situs
Saya menjalankan makro ini tetapi terus mendapatkan kesalahan kompilasi:

Pengguna = tipe yang ditentukan tidak ditentukan

On line 62 " Fungsi Publik OpenOutlookFolder(strFolderPath As String) Sebagai Outlook.MAPIFolder "

Saya telah menentukan jalur sebagai berikut:

ExportToExcel "C:\Users\kudus\Documents\MailExportTest\f1\A.xlsx", "myname@mydomain.com\Inbox\Black Hat Webcast"
ExportToExcel "C:\Users\\Documekudus\Documents\MailExportTest\f2\B.xlsx", "namasaya@domainsaya.com\Inbox\CPD\Pelatihan Kaplan"

Saya menggunakan Outlook 2016 jika diperlukan
Komentar ini diminimalkan oleh moderator di situs
Aku telah memperbaikinya. Dari jendela visual basic, buka Tools Reference - dan kotak untuk "Microsoft Outlook 16.0 Object Library"

Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL