Jika kami telah mengubah email HTML menjadi RTF sebelum membalas, semua nama lampiran akan disalin ke pesan balasan setelah mengklik Beranda> Balas di Outlook.

1. Klik dua kali untuk membuka email yang nama lampirannya perlu Anda salin, lalu klik Pesan > tindakan > Edit Pesan di jendela pesan. Lihat tangkapan layar:

2. Silakan klik Format Teks > Teks yang kaya, lalu simpan dan tutup email.

3. Sekarang Anda kembali ke tampilan utama. Tetap pilih email, dan klik Home > membalas.

4. Sekarang semua nama lampiran disalin dari email asli dan ditempelkan ke pesan balasan seperti gambar di bawah ini. Harap tulis pesan balasan dan kirimkan.

Metode ini akan memperkenalkan makro VBA untuk menyalin semua nama lampiran saat membalas email, lalu menempelkan nama tersebut ke badan pesan email balasan di Outlook.

1. tekan lain + F11 bersamaan untuk membuka jendela Microsoft Visual Basic for Applications.

2. Di Project Explorer kiri, luaskan Project 1, klik dua kali untuk membuka file Sesi Pandangan ini jendela (lihat gambar di bawah), lalu tempel kode di bawah ini ke jendela.

VBA: Salin semua nama lampiran saat membalas email di Outlook

Option Explicit
Private WithEvents oExpl As Explorer
Private WithEvents oItem As MailItem
Private bAttachEvent As Boolean


Private Sub Application_Startup()
Set oExpl = Application.ActiveExplorer
bAttachEvent = False   
End Sub

Private Sub oExpl_SelectionChange()
On Error Resume Next
Set oItem = oExpl.Selection.Item(1)
End Sub

' Reply
Private Sub oItem_Reply(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True
sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.Reply
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts

bAttachEvent = False
Set oItem = Nothing
End Sub

' Reply All
Private Sub oItem_ReplyAll(ByVal Response As Object, Cancel As Boolean)

Dim oAtt As Attachment
Dim sAtts As String
Dim olInspector As Outlook.Inspector
Dim olDocument As Word.Document
Dim olSelection As Word.Selection

If bAttachEvent Or oItem.Attachments.Count = 0 Then
Exit Sub
End If

Cancel = True
bAttachEvent = True

sAtts = ""

For Each oAtt In oItem.Attachments
sAtts = sAtts & "<<" & oAtt.FileName & ">> "
Next oAtt

Dim oResponse As MailItem
Set oResponse = oItem.ReplyAll
oResponse.Display

Set olInspector = Application.ActiveInspector()
Set olDocument = olInspector.WordEditor
Set olSelection = olDocument.Application.Selection

olSelection.InsertBefore sAtts  
bAttachEvent = False
Set oItem = Nothing

End Sub

3. Klik alat > Referensi.

4. Di Referensi pembuka - Project 1 jendela untuk Outlook 2016, harap periksa Perpustakaan objek Microsoft Word 16.0 referensi di kotak Referensi yang Tersedia, dan klik OK tombol. Lihat tangkapan layar:

Catatan: Silakan pilih Perpustakaan objek Microsoft Word 15.0 referensi jika Anda bekerja dengan Outlook 2013, atau Perpustakaan objek Microsoft Word 14.0 referensi dengan Outlook 2010.

5. Simpan VBA dan tutup jendela Microsoft Visual Basic for Applications.

6. Sekarang Anda kembali ke antarmuka utama Outlook. Pilih email yang akan Anda balas, dan klik Home > membalas or Membalas semua.
Catatan: Jika nama lampiran tidak disalin dan ditempel ke email balasan, silakan mulai ulang Outlook Anda dan balas lagi.

Dan sekarang semua nama lampiran disalin dari email yang dipilih dan ditempelkan ke email balasan. Lihat tangkapan layar:

Jika Anda memiliki Kutools untuk Outlook diinstal, Anda dapat menerapkannya Salin Nama fitur untuk menyalin semua nama lampiran dengan cepat dari email yang diterima, lalu menempelkan pesan balasannya dengan mudah di Outlook.

Kutools untuk Outlook: Tambahkan lebih dari 100 alat praktis untuk Outlook, gratis untuk dicoba tanpa batasan dalam 60 hari. Baca Selengkapnya      Uji Coba Gratis Sekarang

1. Pilih email yang akan Anda balas, dan klik Kutools > Alat Lampiran > Salin Nama.

Kemudian dialog keluar dan memberi tahu Anda bahwa nama lampiran disalin ke clipboard. Klik OK untuk menutupnya.

2. Silakan klik Home > membalas untuk membalas email yang dipilih.

3. Di jendela pesan balasan, letakkan kursor di badan pesan, dan tekan Ctrl + V kunci untuk menempelkan nama lampiran dengan mudah.

Balas email yang dipilih dengan mudah dengan semua lampiran asli yang disimpan di Outlook

Secara umum, lampiran asli dihapus saat membalas email di Outlook. Tapi, dengan fantastis Balas dengan Lampiran Fitur Kutools for Outlook, Anda dapat dengan mudah menyimpan semua lampiran email saat membalasnya di Outlook. Klik untuk uji coba gratis 60 hari tanpa batasan!

Kutools for Outlook - Menghadirkan 100 Fitur Canggih ke Outlook, dan Membuat Pekerjaan Lebih Mudah!

• CC / BCC Otomatis dengan aturan saat mengirim email; Maju Otomatis Beberapa Email secara khusus; Balas otomatis tanpa server pertukaran, dan lebih banyak fitur otomatis ...
• Peringatan BCC - tunjukkan pesan ketika Anda mencoba membalas semua jika alamat email Anda ada di daftar BCC; Ingatkan Saat Lampiran Hilang, dan lebih banyak fitur pengingat ...
• Balas (Semua) Dengan Semua Lampiran di percakapan surat; Balas Banyak Email dalam hitungan detik; Tambah Salam Otomatis saat membalas; Tambahkan Tanggal ke dalam subjek ...
• Alat Lampiran: Kelola Semua Lampiran di Semua Email, Lepaskan Otomatis, Kompres Semua, Ganti Nama Semua, Simpan Semua ... Laporan Cepat, Hitung Email yang Dipilih...
• Email Sampah yang Kuat dengan kebiasaan; Hapus Duplikat Email dan Kontak... Memungkinkan Anda melakukan lebih cerdas, lebih cepat, dan lebih baik di Outlook.