Attachment ဖိုင်အမည်များကို အခြေခံ၍ အဝင်အီးမေးလ်များကို တိကျသောဖိုင်တွဲများသို့ အလိုအလျောက်ရွှေ့နည်း

အသုံးပြုသူများစွာသည် Outlook သည် ပူးတွဲပါဖိုင်အမည်များအလိုက် အဝင်အီးမေးလ်များကို သီးခြားမေးလ်ဖိုင်တွဲများသို့ အလိုအလျောက်ရွှေ့ကာ သိမ်းဆည်းနိုင်မည်ဟု မျှော်လင့်ပါသည်။ ထို့ကြောင့်၊ ဤဆောင်းပါးတွင်၊ သင့်အား Outlook VBA ဖြင့် ရရှိနိုင်ရန် အမြန်နည်းလမ်းကို ဖော်ထုတ်ပါမည်။

အကယ်၍ သင်သည် ၎င်းတို့၏ ပူးတွဲပါဖိုင်အမည်များအတိုင်း ဝင်လာသောအီးမေးလ်များကို သီးခြားဖိုင်တွဲများသို့ အလိုအလျောက်ရွှေ့လိုပါက၊ သင်သည် Outlook စည်းမျဉ်းကို ပထမဆုံးအနေဖြင့် အသုံးပြုရန် သေချာပေါက်စဉ်းစားမိမည်ဖြစ်သည်။ သို့သော်၊ Outlook စည်းမျဉ်းတွင် ပူးတွဲပါဖိုင်အမည်ကို စစ်ဆေးရန် အင်္ဂါရပ်မရှိသည်ကို နောက်ဆုံးတွင် သင်တွေ့ရှိလိမ့်မည်။ ထို့ကြောင့်၊ သင်အမှန်တကယ်သဘောပေါက်လိုပါက၊ ဥပမာအားဖြင့်၊ ပြင်ပအဖွဲ့အစည်း add-in သို့မဟုတ် Outlook VBA မှတဆင့် အခြားနည်းလမ်းများကို အသုံးပြုရပါမည်။ ဒါကြောင့် VBA နဲ့ အောင်မြင်အောင် ဘယ်လိုလုပ်ရမလဲဆိုတာ ဒီမှာ သင်ပေးမှာပါ။ အသေးစိတ်လုပ်ဆောင်မှုများနှင့် ခိုင်မာသော VBA ကုဒ်များကို ရယူရန် ဆက်လက်ဖတ်ရှုပါ။

ပူးတွဲပါဖိုင်များအပေါ် အခြေခံ၍ အဝင်အီးမေးလ်များကို တိကျသောဖိုင်တွဲများသို့ အလိုအလျောက်ရွှေ့ပါ။

1. အဖြစ်အတွက်tart၊ သင်၏ Outlook ပရိုဂရမ်ကို ပုံမှန်အတိုင်းဖွင့်ပါ။
2. ထို့နောက် VBA တည်းဖြတ်ခြင်းကို ဝင်ရောက်ရန် “Alt + F11” ခလုတ်များကို နှိပ်ပါ။
3. နောက်ဆက်တွဲ “Microsoft Visual Basic for Applications” ဝင်းဒိုးတွင်၊ ဘယ်ဘက်ရှိ “ThisOutlookSession” ပရောဂျက်ကို သင်ရှာပြီး နှစ်ချက်နှိပ်နိုင်ပါသည်။
4. နောက်တစ်ခု ဖွင့်လှစ်ထားသည့် “ThisOutlookSession” ပရောဂျက်ဝင်းဒိုးတွင်၊ အောက်ပါ VBA ကုဒ်များကို ကူးယူပြီး ကူးထည့်ပါ။

Public WithEvents objMails As Outlook.Items

Private Sub Application_Startup()
 Set objMails = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub objMails_ItemAdd(ByVal Item As Object)
    Dim objMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim objAttachment As Outlook.Attachment
    Dim strAttachmentName As String
    Dim objInboxFolder As Outlook.Folder
    Dim objTargetFolder As Outlook.Folder
 
    'Ensure the incoming item is an email
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objAttachments = objMail.attachments
 
       'Check if the incoming email contains one or more attachments
       If objAttachments.Count > 0 Then
          For Each objAttachment In objAttachments
              strAttachmentName = objAttachment.DisplayName
              Set objInboxFolder = Application.Session.GetDefaultFolder(olFolderInbox)
              'Check the names of all the attachments
              'Specify the target folders
              If InStr(LCase(strAttachmentName), "worklog") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("WorkLog")
              ElseIf InStr(LCase(strAttachmentName), "report") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Report")
              ElseIf InStr(LCase(strAttachmentName), "statistics") > 0 Then
                 Set objTargetFolder = objInboxFolder.Folders("Statistics")
              End If
         Next
         'Move the email to specific folder
          objMail.Move objTargetFolder
       End If
    End If
End Sub

5. နောက်ပိုင်းတွင်၊ သင်သည် VBA ပရောဂျက်အသစ်ကို ဒစ်ဂျစ်တယ်စနစ်ဖြင့် လက်မှတ်ထိုးရန် လိုအပ်သည်။

• ပထမဦးစွာ၊ သင်သည် ကိုယ်ရေးကိုယ်တာ လက်မှတ်တစ်ခုဖန်တီးရန် VBA ပရောဂျက်များအတွက် ဒစ်ဂျစ်တယ် လက်မှတ်များကို သင်အသုံးပြုနိုင်သည်။
• ထို့နောက် VBA တည်းဖြတ်မှုတွင်၊ toolbar ရှိ “Tools” > “Digital Signature” ကိုနှိပ်ပါ။
• ထို့နောက် လက်မှတ်ထိုးရန် မျက်နှာပြင်ပေါ်ရှိ ညွှန်ကြားချက်များကို လိုက်နာပါ။

6. ၎င်းနောက်၊ သင်သည် VBA တည်းဖြတ်သူမှထွက်ပြီး Outlook မက်ခရိုလုံခြုံရေးကို အနိမ့်သို့ပြောင်းနိုင်သည်။
7. နောက်မှ ပြန်လုပ်သင့်တယ်။tart VBA ပရောဂျက်အသစ်ကို အသက်သွင်းရန် Outlook။
8. နောက်ဆုံးတွင်၊ ယခုမှစပြီး Outlook သည် ဝင်လာသောအီးမေးလ်အားလုံး၏ ပူးတွဲပါဖိုင်အမည်များကို အလိုအလျောက်စစ်ဆေးပြီး သီးခြားဖိုင်များကို သီးခြားဖိုင်တွဲများသို့ ရွှေ့ပေးမည်ဖြစ်သည်။

သင်၏ PST ဒေတာကို ကာကွယ်ပါ။

ဆွမ်းခံသည်။ost Outlook သည် အကျင့်ပျက်ခြစားမှုကို ခံရနိုင်သည်ဟူသော မေးခွန်းထုတ်စရာမရှိသောအချက်တစ်ခုဖြစ်သည်။ ထို့ကြောင့် သင်၏ PST ဒေတာ ပျက်စီးခြင်းမှ ကာကွယ်ရန် အလွန်ခက်ခဲသော အလုပ်ဖြစ်သည်။ ဒါပေမယ့် စည်းမျဉ်းနဲ့ အကြံပြုချက်အချို့ကို သင်ရှာတွေ့နိုင်ပါသေးတယ်။ ဥပမာအားဖြင့်၊ PST ဒေတာဆုံးရှုံးမှုကို ရှောင်ရှားရန်၊ သင်သည် ပုံမှန်ဒေတာ အရန်သိမ်းခြင်းကို ဆက်လက်လုပ်ဆောင်နိုင်သည်။ ထို့အပြင်၊ Outlook ပျက်ကျပြီးနောက် ချက်ခြင်းကယ်တင်နိုင်ရန်၊ အတွေ့အကြုံရှိသူတစ်ဦးကို သင်ပြင်ဆင်နိုင်သည်။ PST ပြင်ဆင်ခြင်း။ တူးလ်၊ DataNumen Outlook Repair.

စာရေးသူနိဒါန်း:

Shirley Zhang သည် ဒေတာပြန်လည်ရယူရေးဆိုင်ရာ ကျွမ်းကျင်သူဖြစ်သည်။ DataNumen, Inc. အပါအဝင် ဒေတာပြန်လည်ရယူရေးနည်းပညာများတွင် ကမ္ဘာ့ခေါင်းဆောင်ဖြစ်သည်။ SQL Server နာလန်ထူ နှင့် outlook ပြုပြင်ရေး software ထုတ်ကုန်များ။ ပိုမိုသိရှိလိုပါကသွားရောက်ကြည့်ရှု www ။datanumen.com