Loncat ke daftar isi utama

Cara menyalin semua lampiran dari beberapa email ke email baru di Outlook?

Secara umum, mudah untuk menyalin lampiran dari satu email ke email lainnya dengan menyalin dan menempel di Outlook. Tetapi bagaimana dengan menyalin lampiran dari beberapa email ke yang baru? Artikel ini akan memperkenalkan solusi untuk Anda.

Tab Office - Aktifkan Pengeditan dan Penjelajahan dengan Tab di Microsoft Office, Membuat Pekerjaan Menjadi Mudah
Kutools for Outlook - Tingkatkan Outlook dengan 100+ Fitur Lanjutan untuk Efisiensi Unggul
Tingkatkan Outlook 2021 - 2010 atau Outlook 365 Anda dengan fitur-fitur canggih ini. Nikmati uji coba gratis 60 hari yang komprehensif dan tingkatkan pengalaman email Anda!

Salin semua lampiran dari beberapa email ke email baru

Artikel ini akan memperkenalkan VBA untuk menyalin semua lampiran dengan cepat dari beberapa email ke email baru di Outlook. Harap lakukan sebagai berikut:

1. Pilih beberapa email yang lampirannya akan Anda salin, dan tekan lain + F11 kunci untuk membuka jendela Microsoft Visual Basic for Applications.
Note: Memegang Ctrl kuncinya, Anda dapat memilih beberapa email yang tidak berdekatan dengan mengkliknya satu per satu; memegang perubahan kunci, Anda dapat memilih beberapa email yang berdekatan dengan mengklik yang pertama dan yang terakhir.

2. Klik Menyisipkan > Modul, lalu tempelkan kode VBA di bawah ini ke jendela Modul baru.

VBA: Salin semua lampiran dari beberapa email ke yang baru

Sub NewEmailInsertAttachmentsName()
Dim xSelection As Outlook.Selection
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFSO As Object
Dim xFldPath As String

Dim xFilePath As String
Dim xNewMail As Outlook.MailItem
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xNewMail = Outlook.Application.CreateItem(olMailItem)
Set xFSO = CreateObject("Scripting.FileSystemObject")
xFldPath = xFSO.GetSpecialFolder(2).Path & "\MyAttachments"
If xFSO.FolderExists(xFldPath) = False Then
xFSO.CreateFolder (xFldPath)
End If

For Each xMailItem In xSelection
For Each xAttachment In xMailItem.Attachments
xFilePath = xFldPath & "\" & xAttachment.FileName
xAttachment.SaveAsFile (xFilePath)
xNewMail.Attachments.Add (xFilePath)
xFSO.DeleteFile (xFilePath)
Next
Next
xFSO.GetFolder(xFldPath).Delete
xNewMail.Display
End Sub

3. tekan F5 kunci atau Run tombol untuk menjalankan VBA ini.

Sekarang Anda akan melihat semua lampiran disalin dari email yang dipilih, dan ditempelkan ke email baru.


Salin semua lampiran dari email ke email balasannya

Jika Anda menginstal Kutools for Outlook, Anda dapat menerapkannya Balas dengan Lampiran fitur untuk dengan mudah menyalin semua lampiran dari email ke email balasannya di Outlook. Silakan lakukan hal berikut:

Kutools untuk Outlook: Perangkat Outlook terbaik dengan lebih dari 100 alat praktis. Cobalah GRATIS selama 60 hari, tanpa batasan, jangan khawatir!   Read More ...   Mulai Uji Coba Gratis Sekarang!

Pilih email yang akan Anda balas, dan klik Kutools > Balas dengan Lampiran > Balasan dengan Lampiran. Lihat tangkapan layar:

Sekarang Anda akan melihat semua lampiran disalin ke email balasan secara otomatis.


Artikel terkait


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 ProPenyimpanan 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.

 

 

Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations