Bagaimana cara menyimpan lampiran saat membalas di Outlook?

Saat kami meneruskan pesan email di Microsoft Outlook, lampiran asli di pesan email ini tetap ada di pesan yang diteruskan. Namun, saat kami membalas pesan email, lampiran asli tidak akan dilampirkan di pesan balasan baru. Di sini kami akan memperkenalkan beberapa trik tentang menyimpan lampiran asli saat membalas di Microsoft Outlook.

Balas dengan lampiran dengan menyalin dan menempel secara manual
Balas dengan lampiran secara otomatis oleh VBA
Satu klik untuk membalas dengan lampiran dengan Kutools for Outlook

Balas dengan lampiran dengan menyalin dan menempel secara manual

Kami dapat secara manual menyalin lampiran asli dalam pesan email, dan menempelkannya di jendela Pesan Balas saat kami membalas pesan email nanti.

Langkah 1: Klik pesan email untuk mempratinjaunya di Panel Baca.

Langkah 2: Klik kanan satu lampiran di pratinjau pesan email, dan pilih Select All dari menu klik kanan.

Langkah 3: Klik kanan lampiran yang dipilih, dan pilih Copy dari menu klik kanan.

Langkah 4: Balas pesan email dengan mengklik membalas tombol pada Beranda tab (atau di Toolbar di Outlook 2007).

Langkah 5: Di jendela Membalas pesan, klik pasta tombol pada Sambutan dari Manajer Umum PT. LUHAI INDUSTRIAL tab untuk menempelkan lampiran ini.

Jika Anda menggunakan Outlook 2013 atau versi yang lebih baru, klik Pop out di sudut kiri atas Panel Baca untuk melepaskan jendela pesan Membalas. Klik untuk mengetahui lebih lanjut…

Langkah 6: Tulis pesan balasan, dan klik Kirim .

Balas dengan lampiran secara otomatis oleh VBA 

Ada makro VBA yang dapat membantu Anda membalas dengan lampiran asli secara otomatis.

Catatan: Sebelum menjalankan makro VBA apa pun, Anda harus melakukannya aktifkan makro di Microsoft Outlook.

Langkah 1: Pilih pesan email yang akan Anda balas dengan lampirannya.

Langkah 2: Tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.

Langkah 3: Perluas Objek Project1 dan Microsoft Outlook di bilah kiri, dan klik dua kali file Sesi Pandangan ini untuk membukanya

Langkah 4: Tempel kode berikut ke jendela ThisOutlookSession.

Sub RunReplyWithAttachments()
'Update by Extendoffice 20180830
    Dim xReplyItem As Outlook.MailItem
    Dim xItem As Object
    On Error Resume Next
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyItem = xItem.Reply
    CopyAttachments xItem, xReplyItem
    xReplyItem.Display
    Set xReplyItem = Nothing
    Set xItem = Nothing
End Sub
Sub RunReplyAllWithAttachments()
    Dim xReplyAllItem As Outlook.MailItem
    Dim xItem As Object
    Set xItem = GetCurrentItem()
    If xItem Is Nothing Then Exit Sub
    Set xReplyAllItem = xItem.ReplyAll
    CopyAttachments xItem, xReplyAllItem
    xReplyAllItem.Display
    Set xReplyAllItem = Nothing
    Set xItem = Nothing
End Sub
    
Function GetCurrentItem() As Object
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set GetCurrentItem = Application.ActiveExplorer.Selection.Item(1)
        Case "Inspector"
            Set GetCurrentItem = Application.ActiveInspector.currentItem
    End Select
End Function
    
Sub CopyAttachments(SourceItem As MailItem, TargetItem As MailItem)
    Dim xFilePath As String
    Dim xAttachment As Attachment
    Dim xFSO As Scripting.FileSystemObject
    Dim xTmpFolder As Scripting.Folder
    Dim xFldPath As String
    Set xFSO = New Scripting.FileSystemObject
    Set xTmpFolder = xFSO.GetSpecialFolder(2)
    xFldPath = xTmpFolder.Path & "\"
    For Each xAttachment In SourceItem.Attachments
        If IsEmbeddedAttachment(xAttachment) = False Then
            xFilePath = xFldPath & xAttachment.Filename
            xAttachment.SaveAsFile xFilePath
            TargetItem.Attachments.Add xFilePath, , , xAttachment.DisplayName
            xFSO.DeleteFile xFilePath
        End If
    Next
    Set xFSO = Nothing
    Set xTmpFolder = Nothing
End Sub

Function IsEmbeddedAttachment(Attach As Attachment)
    Dim xAttParent As Object
    Dim xCID As String, xID As String
    Dim xHTML As String
    On Error Resume Next
    Set xAttParent = Attach.Parent
    xCID = ""
    xCID = Attach.PropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001F")
    If xCID <> "" Then
        xHTML = xAttParent.HTMLBody
        xID = "cid:" & xCID
        If InStr(xHTML, xID) > 0 Then
            IsEmbeddedAttachment = True
        Else
            IsEmbeddedAttachment = False
        End If
    End If
End Function

Langkah 5: Tekan F5 kunci untuk menjalankan makro ini. Dalam pembukaan Macro kotak dialog, klik JalankanReplyAllWithAttachments jika Anda ingin membalas ke semua dengan lampiran. Jika tidak, pilih Jalankan BalasDengan Lampiran, kemudian klik Run .

Kemudian itu membuka jendela Pesan balasan dengan melampirkan semua lampiran asli.

Langkah 6: Tulis pesan balasan, dan klik Kirim .

Balas dengan lampiran secara otomatis dengan Kutools for Outlook

Grafik Balas dengan Lampirkan kegunaan Kutools untuk Outlook dapat membantu Anda membalas email dengan lampiran asli hanya dengan satu klik.

Kutools untuk Outlook : dengan lebih dari 100 add-in Outlook yang berguna, bebas untuk mencoba tanpa batasan dalam 60 hari.

1. Pilih email yang berisi lampiran yang perlu Anda balas.

2. Lalu klik Kutools > Balas dengan Lampiran > Balas dengan Lampiran. Lihat tangkapan layar:

Kemudian semua lampiran email yang dipilih dicantumkan di Terlampir bidang pesan balasan. Tulis email Anda dan kirimkan.

Jika Anda ingin mencoba utilitas ini secara gratis, buka unduh perangkat lunak gratis pertama, lalu lanjutkan untuk menerapkan operasi sesuai langkah di atas.

Satu klik untuk membalas dengan lampiran dengan Kutools for Outlook

Artikel terkait:

• Bagaimana cara menyimpan lampiran saat membalas di Outlook?
• Bagaimana cara menyimpan semua lampiran dari beberapa email ke folder di Outlook?
• Bagaimana cara menghapus semua lampiran dari email di Outlook?

---

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