Saat Anda mencoba membalas atau meneruskan email dengan menekan tombol "Balas", "Balas Semua", atau "Teruskan", harus ada awalan "RE" atau "FW" yang ditambahkan di depan subjek email. Artikel ini akan memberi tahu Anda cara membiarkan Outlook menghapusnya secara otomatis dengan VBA.
Dalam artikel kami yang sebelumnya - “2 Metode untuk Meneruskan Email Outlook tanpa Awalan "FW" di Subjek", Anda bisa mendapatkan dua solusi untuk meneruskan email tanpa" FW ". Mereka masing-masing mengirim ulang email dan membuat langkah cepat "Teruskan". Jelas bahwa keduanya tidak dapat mengizinkan Anda untuk menghapus "FW" secara otomatis jika Anda menggunakan tombol "Teruskan" dalam grup "Tanggapi".
Oleh karena itu, secara default, jika Anda ingin menghapus awalan "RE" atau "FW" di subjek saat mengklik tombol "Balas", "Balas Semua" atau "Teruskan", Anda harus menghapusnya secara manual setiap saat. Ini akan sangat merepotkan. Untungnya, Anda dapat menggunakan Outlook VBA untuk secara otomatis menghapus kata-kata tertentu dalam subjek email. Baca terus untuk mengetahui kode dan langkah terperinci.
Hapus Otomatis Awalan "FW" atau "RE" saat Meneruskan atau Membalas Email
- Sebagai langkah awal, buka Outlook dan masuk ke tab “Pengembang”.
- Kemudian Anda dapat menemukan dan mengklik tombol "Visual Basic".
- Selanjutnya di jendela baru, Anda harus mengklik dua kali pada proyek "ThisOutlookSession".
- Selanjutnya, Anda perlu menyalin dan menempelkan kode VBA berikut ke dalamnya.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim strSubject As String
If InStr(Item.Subject, "RE") > 0 Then
'If you don't want the prompt,
'You can remove the MsgBox line and its correspoding "Else … End If" lines.
If MsgBox("Do you want to remove the prefix 'RE'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "RE:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
If InStr(Item.Subject, "FW") > 0 Then
If MsgBox("Do you want to remove the prefix 'FW'?", vbYesNo) = vbYes Then
strSubject = Replace(Item.Subject, "FW:", "", vbTextCompare)
Else
strSubject = Item.Subject
End If
End If
Item.Subject = Trim(strSubject)
Item.Save
End Sub
- Setelah itu, Anda harus menandatangani sertifikat digital ke makro ini.
- Nanti Anda dapat keluar dari jendela "Visual Basic" dan mengkonfigurasi Outlook untuk mengaktifkan hanya makro yang ditandatangani secara digital.
- Akhirnya Anda bisa mencobanya.
- Pertama, pilih email dan tekan tombol "Balas", "Balas Semua" atau "Teruskan"
- Kemudian pesan balasan atau penerusan akan terbuka. Anda dapat menulis email seperti biasa.
- Saat mengklik tombol "Kirim", Anda akan menerima kotak pesan, seperti gambar berikut:
- Jika Anda memilih "Ya", awalan "RE" atau "FW" akan dihapus secara otomatis. Jika Anda memilih "Tidak", awalan tidak akan dihapus.
Yang Tidak Dapat Dilakukan saat Berurusan dengan Email Outlook
Outlook rentan, jadi Anda harus tetap berhati-hati saat menangani email Outlook. Misalnya, jika Anda menerima email dari sumber yang tidak dikenal, sebaiknya Anda tidak membukanya, apalagi mengklik tautan yang disematkan atau mengunduh file terlampir. Jenis email ini mungkin berisi makro berbahaya, virus, atau malware, yang dapat merusak data Outlook Anda dalam sekejap. Itu artinya kamu akan menderita Kerusakan file Outlook. Pada titik itu, resor unik Anda adalah menggunakan alat perbaikan yang kuat dan bereputasi, seperti DataNumen Outlook Repair.
Pengantar Penulis:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki mdf db yang korup dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com