6 Cara Menyimpan Lampiran Email Asli saat Membalas di Outlook

Solusi Outlook September 29, 2025
Bagikan sekarang:

Banyak pengguna berharap untuk mengonfigurasi Outlook mereka untuk menyimpan lampiran email asli saat membalas email. Artikel ini akan memaparkan 5 solusi sekaligus cara cerdas, yaitu menggunakan VBA untuk merealisasikannya secara otomatis.

Saya telah mendengar banyak pengguna yang mengeluh bahwa Outlook tidak memiliki fitur asli untuk menyimpan lampiran asli saat membalas email. Oleh karena itu, di sini kami akan membagikan 6 metode, salah satunya cukup berguna karena menggunakan VBA untuk membuat Outlook melampirkan otomatis lampiran asli ke email balasan. Sekarang baca terus untuk mendapatkan detailnya.

Simpan Lampiran Email Asli saat Membalas di Outlook

1. Balas dengan Email Asli Terlampir

Meskipun Outlook tidak menyediakan fitur untuk menyimpan lampiran email asli saat membalas email, ini memungkinkan pengguna untuk tetap melampirkan email asli. Oleh karena itu, ini adalah solusi opsional untuk Anda. Anda dapat menuju ke "File"> "Opsi"> "Mail"> bagian "Balasan dan teruskan" untuk mengubah pengaturan balasan. Untuk lebih jelasnya, Anda disarankan untuk merujuk ke artikel saya sebelumnya - “5 Langkah untuk Membalas dengan Lampiran Asli di Outlook". Tetapi, jika Anda masih berharap untuk menyimpan lampiran asli saja, lanjutkan dengan mempelajari cara lain.

2. Seret & Jatuhkan Lampiran secara Manual

  1. Sebagai langkah awal, klik dua kali email sumber tersebut untuk membukanya di jendela terpisah.
  2. Kemudian klik tombol “Balas”, yang akan memunculkan email balasan.
  3. Selanjutnya Anda harus mengecilkan kedua jendela Pesan sampai Anda dapat melihatnya di layar yang sama.
  4. Setelah itu, pilih semua lampiran di email asli.
  5. Terakhir, seret dan lepaskan ke baris "Terlampir" di email balasan.Seret & Jatuhkan Lampiran secara Manual

3. Salin & Tempel Lampiran Secara Manual

  1. Pertama-tama, setelah membuka email sumber, pilih semua lampiran.
  2. Kemudian klik tombol "Salin" di bawah tab "Lampiran".Salin Semua Lampiran
  3. Setelah itu, klik tombol "Balas" di bawah tab "Pesan" untuk membuka surat balasan.
  4. Terakhir, di email balasan, klik baris "Terlampir" dan tekan tombol "Ctrl + V" untuk menempelkan lampiran yang disalin sebelumnya.

4. Teruskan Email & Isi Penerima

  1. Pertama, pilih email seperti itu dan kemudian klik tombol "Teruskan" di pita.
  2. Di jendela Pesan popup baru, lampiran asli disimpan. Sekarang Anda perlu mengisi kolom "Kepada" untuk pengirim email asli.
  3. Secara opsional, Anda dapat mengubah topik pembicaraan sesuai kebutuhan Anda.

5. Kirim Ulang Email Ini & Ubah Penerima

  1. Untuk memulai, buka email sumber.
  2. Kemudian klik tombol "Tindakan" di grup "Pindah".
  3. Selanjutnya pilih "Kirim Ulang Pesan Ini" dari daftar drop-down.
  4. Mungkin Anda akan mendapatkan peringatan yang menyebutkan bahwa Anda bukan pengirim asli. Abaikan saja dan tekan "Ya".
  5. Di email baru berikutnya, Anda harus mengubah bidang "Kepada" untuk pengirim email asli.
  6. Juga, ingatlah untuk mengubah pengiriman menggunakan akun email ke akun Anda sendiri.

6. Tambah Otomatis Lampiran Asli melalui VBA

Semua pendekatan yang disebutkan di atas, sejujurnya, adalah solusi. Jika Anda berharap Outlook dapat menyimpan lampiran asli secara otomatis saat membalas, Anda dapat menggunakan cara ini.

  1. Di jendela Outlook utama, tekan tombol "Alt + F11".
  2. Kemudian, di jendela "Microsoft Visual Basic for Applications", salin kode VBA di bawah ini ke dalam proyek "ThisOutlookSession".
Private WithEvents objExplorer As Outlook.Explorer
Private WithEvents objInspectors As Outlook.Inspectors
Private WithEvents objMail As Outlook.MailItem

Private Sub Application_Startup()
    Set objExplorer = Outlook.Application.ActiveExplorer
    Set objInspectors = Outlook.Application.Inspectors
End Sub

Private Sub objExplorer_Activate()
    On Error Resume Next
    If TypeName(objExplorer.Selection.Item(1)) = "MailItem" Then
       Set objMail = objExplorer.Selection.Item(1)
    End If
End Sub

Private Sub objInspectors_NewInspector(ByVal Inspector As Inspector)
    If TypeName(Inspector.CurrentItem) = "MailItem" Then
       Set objMail = Inspector.CurrentItem
    End If
End Sub

'Occurs when clicking "Reply" button
Private Sub objMail_Reply(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

'Occurs when clicking "Reply All" button
Private Sub objMail_ReplyAll(ByVal Response As Object, Cancel As Boolean)
    Call KeepOriginalAttachments(objMail, Response)
End Sub

Private Sub KeepOriginalAttachments(ByVal objOriginalMail As MailItem, objReply As Object)
    Dim strEnviro As String
    Dim strTempFolder As String
    Dim strFilePath As String
    Dim objAttachment As Outlook.Attachment
 
    'Get the temp folder in Windows
    strEnviro = CStr(Environ("USERPROFILE"))
    strTempFolder = strEnviro & "\AppData\Local\Temp"
 
    For Each objAttachment In objOriginalMail.Attachments
        'Skip the embedded image attachments
        If IsEmbeddedAttachment(objAttachment) = False Then
           strFilePath = strTempFolder & "\" & objAttachment.filename
           objAttachment.SaveAsFile strFilePath
 
           'Attach the temporarily saved attachments to the Reply
           objReply.Attachments.Add strFilePath
 
           'Delete the temporarily saved attachments
           Kill strFilePath
       End If
    Next
End Sub

'Function for checking if an attachment is embedded image attachment
Function IsEmbeddedAttachment(objCurrentAttachment As Outlook.Attachment) As Boolean
    Dim objPropertyAccessor As Outlook.propertyAccessor
    Dim strProperty As String
 
    Set objPropertyAccessor = objCurrentAttachment.propertyAccessor
    strProperty = objPropertyAccessor.GetProperty("http://schemas.microsoft.com/mapi/proptag/0x3712001E")
 
    If InStr(1, strProperty, "@") > 0 Then
       IsEmbeddedAttachment = True
    Else
       IsEmbeddedAttachment = False
    End If
End Function

Kode VBA - Simpan Lampiran Email Asli saat Membalas

  1. Kemudian tanda tangani makro ini dan ubah pengaturan makro Outlook Anda untuk mengizinkan makro yang ditandatangani.
  2. Setelah itu, mulai ulang aplikasi Outlook Anda untuk mengaktifkan proyek VBA ini.
  3. Mulai sekarang, setiap kali Anda mengklik tombol "Balas". Email balasan akan ditampilkan dengan lampiran asli sekaligus.

Gunakan Alat Perbaikan Unggulan

Outlook telah memikul klien email lain karena segudang fiturnya. Tapi masih rawan korupsi. Makanya, Anda harus lebih memperhatikan kesehatannya. Secara umum, saat menghadapi masalah kecil, Anda dapat kembali ke utilitas perbaikan bawaan. Namun demikian, jika Anda mengalami masalah serius, sebaiknya Anda menggunakan alat yang jauh lebih ahli, seperti DataNumen Outlook Repair. Hal ini dapat perbaiki Outlook mengajukan dalam sekejap.

Pengantar Penulis:

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

Bagikan sekarang:

Komentar ditutup.