Bagaimana cara mengekspor teks badan email Outlook ke spreadsheet Excel?
Jika Anda ingin mengekspor teks isi email yang dipilih dari spreadsheet Outlook ke Excel, metode dalam artikel ini dapat membantu Anda.
Ekspor teks isi email Outlook ke spreadsheet Excel dengan kode VBA
Ekspor teks isi email Outlook ke spreadsheet Excel dengan kode VBA<
Jalankan kode VBA di bawah ini untuk mengekspor teks isi email Outlook yang dipilih ke Excel.
1. Buka email, pilih badan email yang ingin Anda ekspor ke spreadsheet Excel, lalu tekan lain + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.
2. Dalam Microsoft Visual Basic untuk Aplikasi window, klik Menyisipkan > Modul. Dan kemudian salin kode VBA di bawah ini ke jendela Kode.
Kode VBA: ekspor teks isi email Outlook ke spreadsheet Excel
Sub ExportToExcel()
Dim xExcel As Excel.Application
Dim xWb As Workbook
Dim xWs As Worksheet
Dim xInspector As Inspector
Dim xItem As Object
Dim xMailItem As MailItem
Dim xDoc As Document
Dim xShell As Object
Dim xFilePath As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a Folder:", 0, 0)
If TypeName(xFolder) = "Nothing" Then Exit Sub
Set xFolderItem = xFolder.Self
xFilePath = xFolderItem.Path & "\"
Set xItem = Outlook.Application.ActiveExplorer.Selection.item(1)
If xItem.Class <> olMail Then Exit Sub
Set xMailItem = xItem
Set xInspector = xMailItem.GetInspector
Set xDoc = xInspector.WordEditor
xDoc.Application.Selection.Range.Copy
xInspector.Close olDiscard
Set xExcel = New Excel.Application
Set xWb = xExcel.Workbooks.Add
Set xWs = xWb.Sheets.item(1)
xExcel.Visible = False
xWs.Activate
xWs.Paste
xWs.SaveAs xFilePath & "Email body.xlsx"
xWb.Close True
xExcel.Quit
Set xWs = Nothing
Set xWb = Nothing
Set xExcel = Nothing
End Sub
Note: Di kode, "Kirim email ke body.xlsx”Adalah nama buku kerja yang akan Anda buat dengan teks isi email yang dipilih. Anda dapat mengubahnya berdasarkan kebutuhan Anda.
3. klik Tools > Referensi. Kemudian periksa kedua file Perpustakaan Objek Microsoft Excel dan Perpustakaan objek Microsoft Word kotak di Referensi - Proyek kotak dialog. Lihat tangkapan layar:
4. Kemudian a Jelajahi Folder kotak dialog muncul, pilih folder untuk menyimpan buku kerja dan klik OK .
Sekarang buku kerja bernama “body email"Dibuat dan disimpan ke dalam folder tertentu. Buka buku kerja, Anda bisa melihat teks isi email yang dipilih diekspor ke Sheet1 dari buku kerja.
Alat Produktivitas Kantor Terbaik
Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda
🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...
📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP) / Jadwal Kirim Email / Auto CC/BCC Sesuai Aturan Saat Mengirim Email / Penerusan Otomatis (Aturan Lanjutan) / Tambah Salam Otomatis / Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...
📨 email Management: Mengingat Email dengan Mudah / Blokir Email Penipuan berdasarkan Subjek dan Lainnya / Hapus Email Duplikat / Pencarian / Konsolidasi Folder ...
📁 Lampiran Pro: Penyimpanan Batch / Pelepasan Batch / Kompres Batch / Penyimpanan otomatis / Lepaskan Otomatis / Kompres Otomatis ...
🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren / Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab / Minimalkan Outlook Daripada Menutup ...
👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk / Email Anti-Phishing / 🕘Tampilkan Zona Waktu Pengirim ...
👩🏼🤝👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih / Bagi Grup Kontak menjadi Grup Individual / Hapus Pengingat Ulang Tahun ...
Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.