Outlook'ta mesajlarda veya görevlerde konu metni nasıl bulunur ve değiştirilir?
Outlook'ta, birden çok ileti konusu varsa veya görev konusunun belirttiğiniz metinle değiştirilmesi gerekiyorsa, elbette bunları birer birer değiştirebilirsiniz, ancak bu işi Outlook'ta bir kerede bitirmenin hızlı bir yolu var mı?
VBA kodunu kullanarak birden çok mesajdaki konu metnini bulun ve değiştirin
VBA kodunu kullanarak birden çok görevde konu metnini bulun ve değiştirin
VBA kodunu kullanarak birden çok mesajdaki konu metnini bulun ve değiştirin
Belirli metni bulun ve birden çok mesaj konusunda başka biriyle değiştirin, aşağıdaki VBA kodu size bir iyilik yapabilir, lütfen aşağıdaki adımları uygulayın:
1. Konu metnini bulup değiştirmek istediğiniz e-postaları seçin ve ardından ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Daha sonra, Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın, ekran görüntüsüne bakın:
VBA kodu: Birden çok mesajda konu metnini bulun ve değiştirin:
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
not: Yukarıdaki kodda: xNewSubject = Değiştir (.Subject, "kte", "Kutools for Excel"), "KTE"Bulmak istediğiniz eski metin ve"Kutools for Excel"Değiştirmek istediğiniz yeni metindir. Lütfen bunları ihtiyacınıza göre değiştirin.
3. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve mesaj konularındaki belirli metin ihtiyaç duyduğunuzda yeni metinle değiştirildi, ekran görüntüsüne bakın:
VBA kodunu kullanarak birden çok görevde konu metnini bulun ve değiştirin
Görevlerde konu metnini bulmanız ve değiştirmeniz gerekirse, aşağıdaki VBA kodu da size yardımcı olabilir.
1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. Daha sonra, Ekle > modül, aşağıdaki kodu kopyalayıp açılan boş modüle yapıştırın, ekran görüntüsüne bakın:
VBA kodu: Tüm görevlerde konu metnini bulun ve değiştirin:
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. Daha sonra tuşuna basın. F5 Bu kodu yürütmek için bir anahtar ve bir komut kutusu açılır, lütfen görev konularından bulmak istediğiniz metni yazın, ekran görüntüsüne bakın:
4. tıklayın OKve başka bir istem kutusu çıkar, lütfen değiştirmek istediğiniz yeni metni girin, ekran görüntüsüne bakın:
5. Sonra tıklayın OKve kaç konunun değiştirildiğini bildirmek için bir iletişim kutusu görüntülenir, ekran görüntüsüne bakın:
6. tıklayın OKve görev konularındaki eski metinler yenileriyle değiştirildi, ekran görüntüsüne bakın:
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.
