Outlook дээр тодорхой CC хүлээн авагчтай имэйлийг хэрхэн автоматаар зөөх вэ

Бодит байдал дээр та нарын ихэнх нь тодорхой CC хүлээн авагчтай имэйлийг автоматаар зөөх Outlook дүрмийг бий болгохыг хүсч магадгүй юм. Гэхдээ Outlook дүрэм нь CC хүлээн авагчдыг шалгахыг дэмждэггүй. Тиймээс энэ нийтлэлд Outlook VBA ашиглан үүнийг хэрхэн хэрэгжүүлэхийг танд заах болно.

Тодорхой CC хүлээн авагчдыг хайхын тулд Outlook дүрмийг бий болгох боломжгүй нь ойлгомжтой. Дараах дэлгэцийн агшинд үзүүлсэнчлэн, хүлээн авсан имэйлийн хувьд та зөвхөн өөрийн нэр CC талбарт байгаа эсэхийг шалгах боломжтой. Үүнтэй адилаар илгээсэн имэйлийн хувьд ч гэсэн CC нүдийг шалгах дүрмийн нөхцөл байхгүй.

Тиймээс, хэрэв та тодорхой CC хүлээн авагчтай имэйлийг автоматаар шилжүүлэхээр Outlook-г тохируулахыг хүсвэл өөр арга хайх хэрэгтэй. Дараа нь. Энд бид танд Outlook VBA-ийн тусламжтайгаар хэрхэн хүрэхийг заах болно.

Тодорхой CC хүлээн авагчтай илгээсэн имэйлийг автоматаар зөөх

1. Эхлээд "Хөгжүүлэгч" таб руу очоод "Visual Basic" товчийг дарна уу.
2. Дараа нь "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

3. Үүний дараа та энэ кодыг гарын үсэг зурж, макро тохиргоог ердийнхөөрөө өөрчлөх хэрэгтэй.
4. Эцэст нь та "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 хоёулаа амжилтгүй болвол энэ нь хэрэг болно.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. засвар SQL Server mdf файлын алдаа програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com