Loncat ke daftar isi utama

Cara secara otomatis menyorot kata kunci tertentu dari email masuk di Outlook

Di Outlook, Anda mungkin menerima ratusan dan ribuan email setiap hari, pernahkah Anda ingin menyorot secara otomatis beberapa kata kunci tertentu dari email masuk? Pada artikel ini, saya memperkenalkan kode VBA untuk secara otomatis menyorot kata kunci yang Anda tentukan dari email masuk di Outlook.

Sorot otomatis kata kunci dari email masuk


Sorot otomatis kata kunci dari email masuk

Tidak ada fungsi bawaan di outlook yang bisa menangani pekerjaan ini kecuali VBA.

1. tekan Alt + F11 kunci untuk mengaktifkan Microsoft Visual Basic untuk Aplikasi jendela.

2. Kemudian klik dua kali Sesi Pandangan ini di kiri Project panel, dan salin dan tempel kode di bawah ini ke jendela kode baru.

VBA: Sorot otomatis kata kunci di email masuk

Public WithEvents GMailItems As Outlook.Items
'UpdatebyExtendoffice20181106
Private Sub Application_Startup()
    Set GMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub
Private Sub GMailItems_ItemAdd(ByVal Item As Object)
    If Item.Class <> olMail Then Exit Sub
    AutoHighlight_SpecificWords Item
End Sub
Sub AutoHighlight_SpecificWords(Mail As Outlook.MailItem)
    Dim xWord As Variant
    Dim xHTMLBody As String, xStr As String
    Dim xWordArr
    On Error Resume Next
    xWordArr = Array("Kutools", "Important")  'keyword
    xHTMLBody = Mail.HTMLBody
    For Each xWord In xWordArr
        If InStr(xHTMLBody, xWord) > 0 Then
            xStr = "<font style=" & Chr(34) & "background-color: yellow" & Chr(34) & ">" & xWord & "</font>"
            xHTMLBody = Replace(xHTMLBody, xWord, xStr)
            Mail.HTMLBody = xHTMLBody
        End If
    Next
    Mail.Save
End Sub

olymp trade indonesiaTip: dalam kode, Anda dapat mengubah kata kunci yang Anda butuhkan dalam skrip ini xWordArr = Larik ("Kutools""penting") .

3. Kemudian simpan kodenya dan kembali ke Outlook, di bawah Beranda tab, klik Peraturan > Kelola Aturan & Peringatan.
doc auto sorot teks 1

4. Dalam Aturan dan Peringatan dialog, klik Aturan baru bawah Aturan Email tab, lalu masuk Penyihir Aturan dialog, klik Terapkan aturan pada pesan yang saya terima.
doc auto sorot teks 2

5. klik Selanjutnya > Selanjutnya > Yes untuk pergi ke dialog ketiga, periksa menjalankan skrip dari Step1 bagian, lalu klik sebuah naskah in Step2 bagian untuk mengaktifkan Pilih Script dialog, pilih kode ini Project1.ThisOutlookSession.AutoHighlight_SpecificWords. Klik OK.
doc auto sorot teks 3 doc auto sorot teks 4

6. klik Selanjutnya > Selanjutnya, di dialog terakhir, beri nama untuk aturan ini.
doc auto sorot teks 5

7. klik Finish > OK untuk menyelesaikan aturan.

Mulai sekarang, kata kunci yang Anda tentukan akan disorot secara otomatis di email masuk.
doc auto sorot teks 6


Simpan atau Ekspor Beberapa email ke file fomat lain (PDF / HTML / WORD / EXCEL) di Outlook

Terkadang, Anda mungkin ingin menyimpan atau mengekspor email ke folder sebagai file format lain, seperti file PDF, Word atau Excel di Outlook. Di Outlook, tak satu pun dari fungsi Simpan sebagai dan Ekspor dapat menangani pekerjaan ini. Namun, Kutools untuk Outlook's Save as file utilitas dapat mengekspor banyak email ke folder sebagai file dengan berbagai format sekaligus.    Klik untuk uji coba gratis 45 hari!
doc simpan sebagai file
 
Kutools for Outlook: dengan lusinan add-in Outlook yang praktis, gratis untuk dicoba tanpa batasan dalam 45 hari.

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 (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I found a solution...

you need to enable Macros...and it WORKS (boom)

Outlook settings > Trust Center > Trust Center Settings > Macro Settings > "Enable all macros"
This comment was minimized by the moderator on the site
"run a script" is not showing, which I guess is an option not allowed by my employer
This comment was minimized by the moderator on the site
you should change register key please look https://www.slipstick.com/outlook/rules/outlook-run-a-script-rules/ but above process doesn't work for o365 outlook version on windows 10
This comment was minimized by the moderator on the site
Didn't work
This comment was minimized by the moderator on the site
didn't wok for o365 installed outlook on windows 10
This comment was minimized by the moderator on the site
doesn't work for o365 outlook version on windows 10 I applied everything
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations