วิธีย้ายอีเมลโดยอัตโนมัติด้วย CC Recipients ใน Outlook

โซลูชัน Outlook September 29, 2025

ในความเป็นจริง หลายคนอาจหวังที่จะสร้างกฎใน Outlook เพื่อย้ายอีเมลโดยอัตโนมัติไปยังผู้รับสำเนา (CC) ที่ระบุไว้ แต่กฎใน Outlook ไม่รองรับการตรวจสอบผู้รับสำเนา (CC) ดังนั้นบทความนี้จะสอนวิธีการทำเช่นนั้นโดยใช้ Outlook VBA

เห็นได้ชัดว่าเป็นไปไม่ได้ที่คุณจะสร้างกฎ Outlook เพื่อค้นหาผู้รับ CC ที่ต้องการ ดังที่แสดงในภาพหน้าจอต่อไปนี้สำหรับอีเมลที่ได้รับคุณสามารถตรวจสอบได้ว่าชื่อของคุณเองอยู่ในช่อง CC เท่านั้น ในทำนองเดียวกันสำหรับอีเมลที่ส่งแม้ว่าจะไม่มีเงื่อนไขของกฎในการทำเครื่องหมายในช่อง CC ก็ตาม

ดังนั้นหากคุณต้องการกำหนดค่า Outlook ให้ย้ายอีเมลกับผู้รับ CC ที่ระบุโดยอัตโนมัติคุณต้องแสวงหาวิธีการอื่น แล้ว. ที่นี่เราจะสอนวิธีบรรลุโดยใช้ Outlook VBA

ย้ายอีเมลที่ส่งโดยอัตโนมัติโดยมีผู้รับ CC เฉพาะ

ประการแรกไปที่แท็บ "นักพัฒนา" และคลิกที่ปุ่ม "Visual Basic"
จากนั้นเปิดโครงการ“ ThisOutlookSession” และคัดลอกรหัส VBA ต่อไปนี้ลงในนั้น

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderSentMail).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim ccRecip As String
    Dim desFolder As Folder
 
    'Replace "test" with your desired CC'd recipient name or address
    ccRecip = "test"
    'The "Test" folder is a subfolder under "Sent Items" folder
    Set desFolder = Session.GetDefaultFolder(olFolderSentMail).Folders("Test")
 
    If InStr(LCase(Mail.CC), ccRecip) > 0 Then
       Mail.Move desFolder
    End If
End Sub

จากนั้นคุณควรลงนามรหัสนี้และเปลี่ยนการตั้งค่ามาโครตามปกติ
สุดท้ายคุณสามารถออกจากหน้าต่าง“ Visual Basic” หลังจากนั้นอีเมลที่มีผู้รับ CC เฉพาะจะถูกย้ายไปยังโฟลเดอร์อีเมลที่ระบุ

ย้ายอีเมลที่ได้รับโดยอัตโนมัติโดยมีผู้รับ CC เฉพาะ

ตอนนี้รหัส VBA ด้านบนมีวัตถุประสงค์เพื่อย้ายอีเมลที่ส่งไปยังผู้รับ CC ที่ระบุหากคุณต้องการค้นหาผู้รับ CC เฉพาะในอีเมลที่ได้รับแล้วย้ายคุณควรใช้รหัสต่อไปนี้แทน

Public WithEvents olItems As Outlook.Items

Sub Application_Startup()
    Set olItems = Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Sub olItems_ItemAdd(ByVal Item As Object)
    If Item.Class = olMail Then
       MoveMail Item
    End If
End Sub

Sub MoveMail(Mail As Outlook.MailItem)
    Dim Recips As Recipients
    Dim Recip As Recipient
    Dim ccRecip As String
    Dim desFolder As Folder
 
    Set Recips = Mail.Recipients
    'Replace "test" with the specific words in your desired CC recipient address
    ccRecip = "test"
 
    For Each Recip In Recips
        If Recip.Type = olCC Then
           If InStr(LCase(Recip.Address), ccRecip) > 0 Then
              'The "Test" folder is a subfolder under "Inbox" folder
              Set desFolder = Session.GetDefaultFolder(olFolderInbox).Folders("Test")
              Mail.Move desFolder
           End If
        End If
    Next
End Sub

เตรียมพร้อมสำหรับการทุจริตของ Outlook

แม้ว่า Outlook จะมีคุณลักษณะที่สมบูรณ์ แต่ก็ยังไม่สามารถต้านทานการทุจริตได้ ดังนั้นคุณควรระมัดระวังความเสี่ยงที่อาจเกิดขึ้นทั้งหมด ไม่ต้องสงสัยเลยว่าขั้นตอนที่สำคัญคือการสำรองข้อมูล Outlook ที่สม่ำเสมอและเป็นปัจจุบัน นอกจากนี้คุณควรเก็บไฟล์ เครื่องมือการกู้คืน Outlook เสียหาย ในบริเวณใกล้เคียง จะมีประโยชน์หากทั้งการสำรองข้อมูลและ Scanpst.exe ล้มเหลว

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ซ่อมแซม SQL Server ข้อผิดพลาดไฟล์ mdf และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.