Terkadang, saat Anda meneruskan email yang berisi beberapa lampiran, Anda mungkin ingin mengganti nama lampiran secara langsung saat meneruskan. Artikel ini akan mengajari Anda cara melakukannya dengan Outlook VBA.
Secara default, Outlook tidak mengizinkan pengguna untuk mengganti nama lampiran saat meneruskan. Oleh karena itu, jika Anda ingin mengganti namanya, cara uniknya adalah pertama-tama simpan file ke folder lokal di komputer Anda, lalu ganti namanya dan selanjutnya pasang kembali ke email penerusan. Jelas metode ini sangat merepotkan. Selain itu, terkadang, file-file ini mungkin tidak penting bagi Anda, jadi Anda benar-benar tidak ingin menyimpannya ke komputer Anda. Dalam situasi ini, Anda harus merindukan metode yang lebih cepat untuk memungkinkan Anda mengganti nama file terlampir langsung di email penerusan. Berikut ini adalah pendekatan untuk mewujudkannya melalui Outlook VBA.
Ubah Nama Lampiran Saat Meneruskan Email
- Pertama-tama, luncurkan Outlook dan menuju ke tab "Pengembang".
- Kemudian cari dan klik tombol "Visual Basic".
- Setelah itu, di jendela popup baru, buka modul baru dengan memilih "Sisipkan"> "Modul".
- Selanjutnya, Anda harus menyalin dan menempelkan kode VBA berikut ke dalamnya.
Sub RenameAttachmentsWhenForwarding()
Dim olItem As MailItem
Dim Att As Attachment
Dim Atts As Attachments
Dim olForward As MailItem
Dim FWAtt As Attachment
Dim FWAtts As Attachments
Dim FSO As Object
Dim TempFPath As Object
Dim FilePath As String
Dim strName As String
Dim strExten As String
Dim strFile As String
Set olItem = Application.ActiveExplorer.Selection.Item(1)
Set Atts = olItem.Attachments
Set olForward = olItem.Forward
olForward.Display
On Error Resume Next
For Each Att In Atts
'Get the path to Temporary Folder
Set FSO = CreateObject("Scripting.FileSystemObject")
Set TempFPath = FSO.GetSpecialFolder(2)
FilePath = TempFPath.Path & "\"
'Rename the attachments
strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
'Change "4" based on the length of the attachment file extension
strExten = Right(Att.FileName, 4)
strFile = FilePath & strName & "." & strExten
If strName <> "" Then
'Save the attachments to the Temporary Folder
Att.SaveAsFile (strFile)
'Add the attachments saved in new names from the Temporary Folder
olForward.Attachments.Add (strFile)
Set FWAtts = olForward.Attachments
'Remove the original attachments
For Each FWAtt In FWAtts
If InStr(FWAtt.FileName, Att.FileName) > 0 Then
FWAtt.Delete
End If
Next
End If
Next
End Sub
- Setelah itu, Anda dapat keluar dari jendela "Visual Basic" dan melanjutkan untuk menambahkan makro baru ke Bilah Alat Akses Cepat seperti biasa.
- Akhirnya Anda bisa mencobanya.
- Pertama, pilih email lalu klik tombol makro baru di Bilah Alat Akses Cepat.
- Kemudian email penerusan baru akan terbuka. Anda dapat melihat file terlampir dengan nama asli di baris "Terlampir" dan juga menerima kotak dialog yang meminta Anda memasukkan nama baru untuk lampiran tertentu.
- Setelah menentukan nama baru untuk semua file dan klik "OK", Anda akan melihat bahwa semua file terlampir ada dalam nama baru.
- Akhirnya Anda dapat membuat email penerusan dan menekan tombol "Kirim" untuk mengirim pesan.
Tetap Waspada terhadap Semua Potensi Ancaman terhadap Outlook Anda
Diakui bahwa Outlook rentan terhadap korupsi. Karenanya, melindungi data Outlook dari semua ancaman, termasuk infeksi virus, serangan malware, dan file Kerusakan data Outlook PST, dll. Tindakan terpenting adalah membuat cadangan data Outlook Anda secara teratur. Selain itu, bijaksana untuk menyimpan alat perbaikan terbaik di dekat Anda, seperti DataNumen Outlook Repair, yang akan berguna.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki mdf yang rusak dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com