Outlook ရှိ အဆက်အသွယ်အသစ်များကို အခြားအဆက်အသွယ်ဖိုင်တွဲသို့ အော်တိုစင့်ခ်လုပ်နည်း

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

သင့် Outlook တွင် အီးမေးလ်အကောင့်များစွာကို ပြင်ဆင်သတ်မှတ်ပြီးဖြစ်နိုင်သည်။ ၎င်းတို့တစ်ခုစီတွင် ၎င်း၏ကိုယ်ပိုင်အဆက်အသွယ်ဖိုင်တွဲရှိသည်။ ထိုသို့သော အခြေအနေမျိုးတွင် သင်သည် ဖိုင်တွဲတစ်ခုတွင် အဆက်အသွယ်တစ်ခုကို ဖန်တီးသောအခါ၊ ၎င်းကို အခြားအီးမေးလ်အကောင့်များ၏ အဆက်အသွယ်များဖိုဒါများသို့လည်း စင့်ခ်လုပ်လိုပေမည်။ အဘယ်ကြောင့် Outlook သည် ၎င်းကို အလိုအလျောက် ပြီးမြောက်အောင် မပြုလုပ်ရသနည်း။ ဤတွင် ကျွန်ုပ်တို့သည် ၎င်းကို နားလည်နိုင်ပုံကို သင်ပေးပါမည်။

အဆက်အသွယ်အသစ်များကို အခြားအဆက်အသွယ်ဖိုင်တွဲသို့ အလိုအလျောက် စင့်ခ်လုပ်ပါ။

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

Public WithEvents objSourceFolder As Outlook.Folder
Public WithEvents objContacts As Outlook.Items

Private Sub Application_Startup()
    'Get the source Contacts folder
    Set objSourceFolder = Application.Session.GetDefaultFolder(olFolderContacts)
    Set objContacts = objSourceFolder.Items
End Sub

'Occurs when new item is added to the source folder
Private Sub objContacts_ItemAdd(ByVal Item As Object)
    Dim objContact As Outlook.ContactItem
    Dim objTargetFolder As Outlook.Folder
    Dim objCopiedContact As Outlook.ContactItem
 
    If TypeOf Item Is ContactItem Then
       Set objContact = Item
 
       'Specify the target Contacts folder
       '"Personal" refers to the displaying name of target Outlook file
       On Error Resume Next
       Set objTargetFolder = Application.Session.Folders("Personal").Folders("Contacts").Folders("From John Smith")
       If objTargetFolder Is Nothing Then
          Set objTargetFolder = Application.Session.Folders("Personal").Folders("Contacts").Folders.Add("From John Smith")
       End If
 
       'Copy the new contact
       Set objCopiedContact = objContact.Copy
       'Move copied contact to the target folder
       objCopiedContact.Move objTargetFolder
    End If
End Sub

5. အဲဒီနောက်မှာတော့ ဒီကုဒ်ကို လက်မှတ်ထိုးဖို့ လိုပါတယ်။ ကိရိယာဘားရှိ “Tools” ခလုတ်ကို နှိပ်ပြီး “ဒစ်ဂျစ်တယ် လက်မှတ်” ကို ရွေးပါ။ ပေါ်လာသော ဒိုင်ယာလော့ဘောက်စ်တွင်၊ မျက်နှာပြင်ပေါ်ရှိ ညွှန်ကြားချက်များကို လိုက်နာပါ။
6. နောက်ပိုင်းတွင် သင်သည် လက်ရှိဝင်းဒိုးမှ ထွက်ပြီး ဒစ်ဂျစ်တယ်ဖြင့် လက်မှတ်ထိုးထားသော မက်ခရိုများကို ခွင့်ပြုရန် သင်၏ Outlook မက်ခရိုဆက်တင်များကို ပြောင်းလဲနိုင်သည်။
7. နောက်ဆုံးအနေနဲ့ ဒီ macro အသစ်ကို အသက်သွင်းဖို့ Outlook ကို restart လုပ်နိုင်ပါတယ်။
8. ယခုမှစ၍ ရင်းမြစ်ဖိုဒါထဲသို့ အဆက်အသွယ်အသစ်တစ်ခုထည့်တိုင်း ကြိုတင်သတ်မှတ်ထားသော ပစ်မှတ်ဖိုဒါသို့ အလိုအလျောက် ထပ်တူပြုသွားပါမည်။

မကြာခဏ Outlook ပြဿနာများကို တုံ့ပြန်ပါ။

Outlook ကို ဆယ်စုနှစ်များစွာ အသုံးပြုလာခဲ့တယ်ဆိုရင် Outlook ရပ်တန့်သွားခြင်း၊ မကြာခဏ error message တွေနဲ့ PST ဖိုင်ပျက်စီးခြင်းစတဲ့ ပြဿနာအမျိုးမျိုးနဲ့ ကြုံတွေ့ခဲ့ရမှာ သေချာပါတယ်။ ယေဘုယျအားဖြင့် Outlook ကို safe mode မှာ restart လုပ်ခြင်း၊ Outlook profile အသစ်တစ်ခု ဖန်တီးခြင်း၊ ချို့ယွင်းနေတဲ့ add-in တွေကို disable လုပ်ခြင်းစတဲ့ နည်းလမ်းတွေနဲ့ ဖြေရှင်းနိုင်ပါတယ်။ ဥပမာ- အစွမ်းထက်တဲ့ repair tool တစ်ခုရဲ့ အကူအညီကို ရယူနိုင်ပါတယ်။ DataNumen Outlook Repair။ ဖြစ်နိုင်ပါသည် PST ကိုပြင်ပါ။ ဖော့ကဲ့သို့ အမှားများ။

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

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