วิธีค้นหาและแทนที่ข้อความหัวเรื่องภายในข้อความหรืองานใน Outlook
ใน Outlook หากมีหลายหัวข้อของข้อความหรือหัวข้องานที่จำเป็นต้องแทนที่ด้วยข้อความที่คุณระบุแน่นอนคุณสามารถเปลี่ยนทีละรายการ แต่คุณมีวิธีที่รวดเร็วในการทำงานนี้ให้เสร็จพร้อมกันใน Outlook หรือไม่?
ค้นหาและแทนที่ข้อความหัวเรื่องภายในหลายข้อความโดยใช้รหัส VBA
ค้นหาและแทนที่ข้อความหัวเรื่องภายในงานต่างๆโดยใช้รหัส VBA
ค้นหาและแทนที่ข้อความหัวเรื่องภายในหลายข้อความโดยใช้รหัส VBA
ค้นหาข้อความที่ต้องการและแทนที่ด้วยข้อความอื่นในหลายหัวเรื่องของข้อความรหัส VBA ด้านล่างสามารถช่วยคุณได้โปรดทำตามขั้นตอนต่อไปนี้:
1. เลือกอีเมลที่คุณต้องการค้นหาและแทนที่ข้อความหัวเรื่องจากนั้นกด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลว่างที่เปิดดูภาพหน้าจอ:
รหัส VBA: ค้นหาและแทนที่ข้อความหัวเรื่องภายในหลายข้อความ:
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
หมายเหตุ: ในโค้ดด้านบน: xNewSubject = แทนที่ (.ubject, "kte", "Kutools for Excel")"เคที” คือข้อความเก่าที่คุณต้องการค้นหาและ“Kutools สำหรับ Excel” คือข้อความใหม่ที่คุณต้องการแทนที่ด้วย โปรดเปลี่ยนตามความต้องการของคุณ

3. จากนั้นกด F5 กุญแจสำคัญในการเรียกใช้รหัสนี้และข้อความเฉพาะในหัวข้อข้อความถูกแทนที่ด้วยข้อความใหม่ตามที่คุณต้องการดูภาพหน้าจอ:

ค้นหาและแทนที่ข้อความหัวเรื่องภายในงานต่างๆโดยใช้รหัส VBA
หากคุณต้องการค้นหาและแทนที่ข้อความหัวเรื่องในงานรหัส VBA ต่อไปนี้สามารถช่วยคุณได้
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. จากนั้นคลิก สิ่งที่ใส่เข้าไป > โมดูลคัดลอกและวางโค้ดด้านล่างลงในโมดูลว่างที่เปิดดูภาพหน้าจอ:
รหัส VBA: ค้นหาและแทนที่ข้อความหัวเรื่องภายในงานทั้งหมด:
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. จากนั้นกด F5 คีย์ในการรันโค้ดนี้และกล่องพร้อมต์จะปรากฏขึ้นโปรดพิมพ์ข้อความที่คุณต้องการค้นหาจากหัวข้องานดูภาพหน้าจอ:

4. คลิก OKและกล่องข้อความแจ้งอีกอันจะปรากฏขึ้นโปรดป้อนข้อความใหม่ที่คุณต้องการแทนที่ดูภาพหน้าจอ:

5. จากนั้นคลิก OKและกล่องโต้ตอบจะปรากฏขึ้นเพื่อบอกคุณว่ามีการเปลี่ยนแปลงกี่เรื่องโปรดดูภาพหน้าจอ:

6. คลิก OKและข้อความเก่าในหัวข้องานถูกแทนที่ด้วยข้อความใหม่ดูภาพหน้าจอ:

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
ข่าวด่วน: Kutools สำหรับ Outlook เปิดตัว เวอร์ชันฟรี!
สัมผัสประสบการณ์ Kutools ใหม่สำหรับ Outlook เวอร์ชันฟรีพร้อมฟีเจอร์ที่น่าทึ่งกว่า 70 รายการ ให้คุณใช้งานได้ตลอดไป! คลิกดาวน์โหลดเลย!
🤖 Kutools AI : ใช้เทคโนโลยี AI ขั้นสูงเพื่อจัดการอีเมลได้อย่างง่ายดาย รวมถึงการตอบกลับ การสรุป การเพิ่มประสิทธิภาพ การขยาย การแปล และการเขียนอีเมล
📧 การทำงานอัตโนมัติของอีเมล: ตอบกลับอัตโนมัติ (ใช้ได้กับ POP และ IMAP) / กำหนดการส่งอีเมล / Auto CC/BCC ตามกฎเมื่อส่งอีเมล / ส่งต่ออัตโนมัติ (กฎขั้นสูง) / เพิ่มคำทักทายอัตโนมัติ / แบ่งอีเมลผู้รับหลายรายออกเป็นข้อความส่วนตัวโดยอัตโนมัติ ...
📨 การจัดการอีเมล์: เรียกคืนอีเมล / บล็อกอีเมลหลอกลวงตามหัวเรื่องและอื่นๆ / ลบอีเมลที่ซ้ำกัน / การค้นหาขั้นสูง / รวมโฟลเดอร์ ...
📁 ไฟล์แนบโปร: บันทึกแบทช์ / การแยกแบทช์ / การบีบอัดแบบแบตช์ / บันทึกอัตโนมัติ / ถอดอัตโนมัติ / บีบอัดอัตโนมัติ ...
🌟 อินเตอร์เฟซเมจิก: 😊อีโมจิที่สวยและเจ๋งยิ่งขึ้น / เตือนคุณเมื่อมีอีเมลสำคัญมาถึง / ลดขนาด Outlook แทนที่จะปิด ...
???? เพียงคลิกเดียวสิ่งมหัศจรรย์: ตอบกลับทั้งหมดด้วยไฟล์แนบที่เข้ามา / อีเมลต่อต้านฟิชชิ่ง / 🕘 แสดงโซนเวลาของผู้ส่ง ...
👩🏼🤝👩🏻 รายชื่อและปฏิทิน: แบทช์เพิ่มผู้ติดต่อจากอีเมลที่เลือก / แบ่งกลุ่มผู้ติดต่อเป็นกลุ่มแต่ละกลุ่ม / ลบการแจ้งเตือนวันเกิด ...

