Cara Menyalin Batch Semua Lampiran dari Beberapa Email ke Email Baru di Outlook

Jika Anda ingin membuat email baru dan menambahkan semua lampiran di beberapa email lain ke email baru, Anda dapat menggunakan metode yang diperkenalkan di artikel ini. Ini akan mengajari Anda cara menggunakan VBA untuk mendapatkannya dengan mudah.

Terkadang, Anda mungkin perlu menyalin banyak lampiran dari beberapa email ke email baru. Tentu saja, Anda dapat memilih untuk melakukannya secara manual, cukup dengan menyimpannya ke drive lokal terlebih dahulu dan kemudian melampirkannya ke email yang baru dibuat satu per satu. Namun, ternyata dengan cara ini, akan menjadi tugas yang cukup membosankan. Oleh karena itu, mengapa Anda tidak memanfaatkan VBA untuk segera menyadarinya? Berikut ini, kami akan memaparkan kepada Anda operasi yang terperinci dan kode VBA yang sesuai.

Salin Batch Semua Lampiran dari Beberapa Email ke Email Baru

1. Pertama-tama, jalankan program Outlook Anda seperti biasa.
2. Selanjutnya di jendela Outlook utama, tekan tombol "Alt + F11".
3. Di jendela "Microsoft Visual Basic for Applications" berikutnya, masukkan modul baru atau buka modul yang tidak digunakan.
4. Kemudian salin dan tempel kode VBA berikut ke dalam modul semacam itu.

Sub NewEmailwithAttachmentsinSeveralEmails()
    Dim objSelection As Outlook.Selection
    Dim objMail As Outlook.MailItem
    Dim objAttachment As Outlook.Attachment
    Dim objFileSystem As Object
    Dim strFilePath As String
    Dim objNewMail As Outlook.MailItem
 
    Set objSelection = Outlook.Application.ActiveExplorer.Selection
    Set objNewMail = Outlook.Application.CreateItem(olMailItem)
 
    On Error Resume Next
    For Each objMail In objSelection
        For Each objAttachment In objMail.attachments
 
            'Save all the attachments to temporary folder
            Set objFileSystem = CreateObject("Scripting.FileSystemObject")
            strFilePath = objFileSystem.GetSpecialFolder(2).Path & "\" & objAttachment.filename
            objAttachment.SaveAsFile (strFilePath)
 
            'Add the attachments to the new email
             objNewMail.attachments.Add (strFilePath)
 
            'Delete the temporary files
            objFileSystem.DeleteFile (strFilePath)
        Next
    Next
 
    'Show the new email
    objNewMail.Display
End Sub

5. Setelah itu, Anda harus melanjutkan untuk menambahkan proyek VBA baru ke Bilah Alat Akses Cepat. Anda dapat menyelesaikannya di "Opsi Outlook".
6. Nanti Anda harus mengubah tingkat keamanan makro Outlook Anda ke rendah.
7. Akhirnya Anda bisa mencobanya.

• Pertama, tekan tombol “Ctrl” dan pilih beberapa email yang lampirannya ingin Anda salin.
• Kemudian tekan tombol makro baru di Bilah Alat Akses Cepat.
• Segera, email baru akan muncul dengan semua lampiran terlampir.

Tantang Masalah PST Outlook yang Sering

Karena masalah Outlook PST dapat terjadi sesekali, Anda harus menghabiskan banyak upaya untuk melindungi data PST Anda. Misalnya, Anda sebaiknya mencadangkan data PST Anda secara teratur, sehingga Anda bisa mendapatkan kembali file Outlook rusak data dari backup tanpa susah payah. Selain itu, Anda harus menyimpan alat yang memiliki reputasi baik di sekitarnya, seperti DataNumen Outlook Repair.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk perbaiki mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com