Apabila anda cuba membalas atau meneruskan e-mel dengan menekan butang "Balas", "Balas Semua" atau "Teruskan", mesti ada awalan "RE" atau "FW" di bahagian depan subjek e-mel. Artikel ini akan memberitahu anda bagaimana membiarkan Outlook menghapusnya secara automatik dengan VBA.
Dalam artikel kami yang teliti - “2 Kaedah untuk Meneruskan E-mel Outlook tanpa Awalan "FW" dalam Subjek", Anda boleh mendapatkan dua jalan penyelesaian untuk meneruskan e-mel tanpa" FW ". Mereka mengirim semula e-mel dan membuat langkah cepat "Maju". Jelas bahawa kedua-duanya tidak dapat mengizinkan anda untuk menghapus "FW" secara automatik jika Anda menggunakan butang "Maju" biasa dalam kelompok "Balas".
Oleh itu, secara lalai, jika anda ingin membuang awalan "RE" atau "FW" dalam subjek ketika mengklik butang "Balas", "Balas Semua" atau "Teruskan", anda mesti menghapusnya secara manual setiap masa. Ia akan menyusahkan. Nasib baik, anda boleh menggunakan Outlook VBA untuk membuang perkataan tertentu secara automatik dalam subjek surat. Teruskan membaca untuk mencapai kod dan langkah terperinci.
Auto Buang Awalan "FW" atau "RE" secara automatik semasa Meneruskan atau Membalas E-mel
- Untuk permulaan, lancarkan Outlook dan pergi ke tab "Pembangun".
- Kemudian anda boleh mencari dan klik pada butang "Visual Basic".
- Selanjutnya di tetingkap baru, anda harus mengklik dua kali pada projek "ThisOutlookSession".
- Selepas itu, anda perlu menyalin dan menampal kod 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
- Selepas itu, anda harus menandatangani sijil digital ke makro ini.
- Kemudian anda boleh keluar dari tetingkap "Visual Basic" dan mengkonfigurasi Outlook untuk mengaktifkan makro yang ditandatangani secara digital sahaja.
- Akhirnya anda boleh mencuba.
- Pertama, pilih e-mel dan tekan butang "Balas", "Balas Semua" atau "Teruskan"
- Kemudian mesej balas atau pemajuan akan dibuka. Anda boleh menulis surat seperti biasa.
- Apabila mengklik butang "Kirim", anda akan menerima kotak pesan, seperti tangkapan skrin berikut:
- Sekiranya anda memilih "Ya", awalan "RE" atau "FW" akan dikeluarkan secara automatik. Sekiranya anda memilih "Tidak", awalan tidak akan dikeluarkan.
Apa yang Tidak Perlu Dilakukan dalam Menghadapi E-mel Outlook
Outlook terdedah, jadi anda harus berhati-hati ketika mengendalikan surat Outlook. Sebagai contoh, jika anda menerima e-mel dari sumber yang tidak diketahui, lebih baik anda tidak membukanya, apatah lagi mengklik pautan tertanam atau memuat turun fail yang dilampirkan. Jenis e-mel ini mungkin mengandungi makro, virus atau perisian hasad yang berniat jahat, yang boleh merosakkan data Outlook anda dalam sekejap. Ini bermaksud bahawa anda akan menderita Kerosakan fail Outlook. Pada ketika itu, resort unik anda adalah menggunakan alat pembaikan yang hebat dan terkenal, seperti DataNumen Outlook Repair.
Pengenalan Pengarang:
Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk baiki mdf db yang rosak dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com