Bagaimana cara menyimpan beberapa email yang dipilih sebagai file MSG secara massal di Outlook?

Sangat mudah untuk menyimpan email sebagai file MSG di Outlook. Bagaimana Anda bisa menyimpan beberapa email yang dipilih sebagai file MSG individual secara massal di Outlook? Artikel ini akan menunjukkan kepada Anda metode untuk mencapainya.

Simpan beberapa email yang dipilih sebagai file MSG dengan kode VBA

Simpan beberapa email yang dipilih sebagai file MSG dengan kode VBA

Kode VBA berikut dapat membantu Anda menyimpan beberapa email yang dipilih sebagai file MSG individual secara massal di Outlook. Silakan lakukan sebagai berikut.

1. Pilih email yang ingin Anda simpan sebagai file MSG. Kemudian tekan tombol Alt + F11 secara bersamaan untuk membuka jendela Microsoft Visual Basic for Applications.

2. Di jendela Microsoft Visual Basic for Applications, klik Sisipkan> Modul, lalu salin kode VBA di bawah ini ke jendela Modul.

Kode VBA: Simpan beberapa email yang dipilih sebagai file MSG individual di Outlook

Public Sub SaveMessageAsMsg()
'Update by Extendoffice 2018/3/5
Dim xMail As Outlook.MailItem
Dim xObjItem As Object
Dim xPath As String
Dim xDtDate As Date
Dim xName, xFileName As String
On Error Resume Next
Set xShell = CreateObject("Shell.Application")
Set xFolder = xShell.BrowseForFolder(0, "Select a folder:", 0, strStartingFolder)
If Not TypeName(xFolder) = "Nothing" Then
    Set xFolderItem = xFolder.self
    xFileName = xFolderItem.Path & "\"
Else
    xFileName = ""
    Exit Sub
End If
For Each xObjItem In Outlook.ActiveExplorer.Selection
    If xObjItem.Class = olMail Then
        Set xMail = xObjItem
        xName = xMail.Subject
        xDtDate = xMail.ReceivedTime
        xName = Format(xDtDate, "yyyymmdd", vbUseSystemDayOfWeek, _
          vbUseSystem) & Format(xDtDate, "-hhnnss", _
          vbUseSystemDayOfWeek, vbUseSystem) & "-" & xName & ".msg"
        xPath = xFileName + xName
        xMail.SaveAs xPath, olMSG
    End If
Next
End Sub

3. Tekan tombol F5 untuk menjalankan kode.

4. Pada kotak dialog Telusuri Folder, tentukan folder untuk menyimpan file MSG lalu klik OK tombol. Lihat tangkapan layar:

Sekarang semua email yang dipilih disimpan sebagai file MSG individual seperti gambar di bawah ini.

---

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.

Baca Selengkapnya       Free download      Pembelian