Cara Cepat Meneruskan Email dengan Lampiran Terpilih Hanya melalui Outlook VBA

Saat meneruskan email Outlook yang memiliki lampiran, terkadang, Anda mungkin hanya ingin menyimpan lampiran yang dipilih, bukan semuanya. Sekarang, di artikel ini, kami akan mengajari Anda cara meneruskan email dengan cepat hanya dengan lampiran yang dipilih.

Dengan cara standar, saat Anda meneruskan email Outlook, semua lampiran asli akan diteruskan. Namun, terkadang, Anda hanya ingin meneruskan beberapa lampiran, bukan semua. Umumnya, Anda dapat meneruskan email seperti biasa, lalu menghapus lampiran yang tidak diinginkan secara manual. Tapi, ini agak merepotkan. Oleh karena itu, di sini kami akan memperkenalkan Anda metode yang jauh lebih cepat untuk meneruskan email hanya dengan lampiran yang dipilih.

Meneruskan Email dengan Cepat hanya dengan Lampiran yang Dipilih

1. Pertama-tama, luncurkan editor Outlook VBA melalui pintasan "Alt + F11".
2. Kemudian, salin dan tempel kode berikut ke dalam proyek atau modul.

Sub ForwardMailWithSelectedAttachmentsOnly()
    Dim objMail As Outlook.MailItem
    Dim strTempFolder As String
    Dim strFile As String
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objForward As Outlook.MailItem
 
    'Get the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    'Get the selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    If objSelectedAttachments.Count > 0 Then
       'Forward this email
       Set objForward = objMail.Forward
       objForward.Display
 
       'Delete all the forwarded attachments
       Do Until objForward.Attachments.Count = 0
          objForward.Attachments.Item(1).Delete
       Loop
 
       On Error Resume Next
       strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
       MkDir (strTempFolder)
 
       'Re-attach the selected attachments to the forward mail
       For Each objAttachment In objSelectedAttachments
           strFile = strTempFolder & objAttachment.FileName
           objAttachment.SaveAsFile (strFile)
           objForward.Attachments.Add (strFile)
       Next
 
       Kill strFile
    End If
End Sub

3. Selanjutnya, keluar dari editor VBA.
4. Setelah itu, ikuti "Langkah Opsional" di p sebelumnyaost "Cara Menjalankan Kode VBA di Outlook Anda”Untuk menambahkan makro ini ke pita atau Bilah Alat Akses Cepat.
5. Akhirnya, Anda bisa mencoba makro ini.

• Pertama, pastikan panel baca dinyalakan.
• Kemudian, pilih email dan lampiran yang ingin Anda teruskan.
• Berikutnya, klik tombol makro di pita atau Bilah Alat Akses Cepat.
• Segera, email baru akan ditampilkan. Seperti yang Anda lihat, ini adalah email penerusan dengan hanya lampiran yang dipilih.

Perbaiki Korupsi Data Outlook yang Rumit

Pernahkah Anda menemukan Outlook crash? Dan apakah crash seperti itu mengakibatkan korupsi data PST? Jika Anda pernah mengalami masalah seperti itu, Anda mungkin telah menyadari betapa rumit dan merepotkannya masalah tersebut. Biasanya, masalah kecil dapat diatasi dengan alat perbaikan Inbox. Tapi, untuk masalah serius, seperti Korupsi Outlook, Anda harus menggunakan utilitas yang lebih kuat, seperti DataNumen Outlook Repair.

Pengantar Penulis:

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