Kiat: Bahasa lain adalah Terjemahan-Google. Anda dapat mengunjungi English versi link ini
Masuk
x
or
x
x
Daftar
x

or

Bagaimana menemukan dan mengganti teks subjek dalam pesan atau tugas di Outlook?

Di Outlook, jika ada beberapa subjek pesan atau subjek tugas yang perlu diganti dengan teks yang Anda tentukan, tentu saja, Anda dapat mengubahnya satu per satu, tetapi, apakah Anda memiliki cara cepat untuk menyelesaikan pekerjaan ini sekaligus di Outlook?

Cari dan ganti teks subjek dalam beberapa pesan dengan menggunakan kode VBA

Cari dan ganti teks subjek dalam beberapa tugas dengan menggunakan kode VBA


Cari dan ganti teks subjek dalam beberapa pesan dengan menggunakan kode VBA

Temukan teks spesifik dan gantikan dengan yang lain di beberapa subjek pesan, kode VBA di bawah ini dapat membantu Anda, silakan lakukan dengan langkah-langkah berikut:

1. Pilih email yang Anda ingin temukan dan ganti teks subjek, dan kemudian, tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Lalu klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang terbuka, lihat screenshot:

Kode VBA: Temukan dan ganti teks subjek dalam beberapa pesan:

Option Explicit
Sub FindAndReplaceInSubject()
Dim xItem As Object
Dim xNewSubject As String
Dim xMailItem As MailItem
Dim xExplorer As Explorer
Dim i As Integer
On Error Resume Next
Set xExplorer = Outlook.Application.ActiveExplorer
For i = xExplorer.Selection.Count To 1 Step -1
    Set xItem = xExplorer.Selection.Item(i)
    If xItem.Class = olMail Then
        Set xMailItem = xItem
        With xMailItem
            xNewSubject = Replace(.Subject, "kte", "Kutools for Excel")
            .Subject = xNewSubject
            .Save
        End With
    End If
Next
End Sub

Catatan: Dalam kode diatas: xNewSubject = Ganti (.Subjek, "kte", "Kutools untuk Excel"), "KTE"Adalah teks lama yang ingin Anda temukan, dan"Kutools for Excel”Adalah teks baru yang ingin Anda ganti. Harap ubah sesuai kebutuhan Anda.

doc mengganti subjek 1

3. Lalu tekan F5 untuk menjalankan kode ini, dan teks spesifik dalam subjek pesan telah diganti dengan teks baru sesuai kebutuhan Anda, lihat screenshot:

doc mengganti subjek 2


Cari dan ganti teks subjek dalam beberapa tugas dengan menggunakan kode VBA

Jika Anda perlu mencari dan mengganti teks subjek dalam tugas, kode VBA berikut juga dapat membantu Anda.

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Lalu klik Menyisipkan > Modul, salin dan tempel kode di bawah ini ke dalam modul kosong yang terbuka, lihat screenshot:

Kode VBA: Temukan dan ganti teks subjek dalam semua tugas:

Option Explicit
Sub FindReplaceTextsInAllTaskSubjects()
Dim xPane As NavigationPane
Dim xModule As TasksModule
Dim xGroup As NavigationGroup
Dim xNavFolder As NavigationFolder
Dim xTaskItem As Outlook.TaskItem
Dim i, k As Integer
Dim xFindStr, xReplaceStr As String
Dim xTotalCount As Long
On Error Resume Next
xFindStr = InputBox("Type the words to find:", "Kutools for Outlook", xFindStr)
If Len(Trim(xFindStr)) = 0 Then Exit Sub
xReplaceStr = InputBox("Type the words to replace:", "Kutools for Outlook", xReplaceStr)
If Len(Trim(xReplaceStr)) = 0 Then Exit Sub
xTotalCount = 0
Set xPane = Outlook.Application.ActiveExplorer.NavigationPane
Set xModule = xPane.Modules.GetNavigationModule(olModuleTasks)
Set xGroup = xModule.NavigationGroups.Item(1)
For i = xGroup.NavigationFolders.Count To 1 Step -1
    Set xNavFolder = xGroup.NavigationFolders.Item(i)
    For k = xNavFolder.Folder.Items.Count To 1 Step -1
        Set xTaskItem = xNavFolder.Folder.Items(k)
        If InStr(xTaskItem.Subject, xFindStr) > 0 Then
            xTaskItem.Subject = Replace(xTaskItem.Subject, xFindStr, xReplaceStr)
            xTaskItem.Save
            xTotalCount = xTotalCount + 1
        End If
    Next
Next
MsgBox xTotalCount & " task subjects have been changed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub

3. Lalu tekan F5 untuk mengeksekusi kode ini, dan kotak prompt muncul, harap ketikkan teks yang ingin Anda temukan dari subjek tugas, lihat screenshot:

doc mengganti subjek 3

4. Klik OK, dan kotak prompt lain muncul, harap masukkan teks baru yang ingin Anda ganti, lihat screenshot:

doc mengganti subjek 4

5. Kemudian klik OK, dan kotak dialog ditampilkan untuk memberi tahu Anda berapa banyak subjek yang telah diubah, lihat screenshot:

doc mengganti subjek 5

6. Klik OK, dan teks lama dalam subjek tugas telah diganti dengan yang baru, lihat screenshot:

doc mengganti subjek 6



Kutools for Outlook

Lebih dari 100 Fungsi Lanjut untuk Outlook 2010, 2013, 2016, 2019 dan 365

tangkapan layar kutools untuk outlook mungil untuk spanduk 201812

Fitur Lebih | Free download | Hanya $ 39.00 untuk ratusan fungsi

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.