သီးခြား Outlook အီးမေးလ်များမှတဆင့် Windows Folder တွင် ဖိုင်များအားလုံးကို အစုလိုက်ပေးပို့နည်း

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

ကျွန်တော့်ရဲ့ အရင်ဆောင်းပါးကို ဖတ်ပြီးရင် “3 Outlook အီးမေးလ်တစ်ခုသို့ Local Folder တစ်ခုတွင် ဖိုင်များအားလုံးကို ပူးတွဲရန် အမြန်နည်းလမ်းများ"၊ အချို့သောအသုံးပြုသူများသည် သီးခြားအီးမေးလ်များမှတစ်ဆင့် ဒေသတွင်းဖိုင်တွဲတစ်ခုရှိ ဖိုင်အားလုံးကို ပေးပို့လိုကြသည်။ ပုံမှန်ပုံစံဖြင့်၊ သင်သည် အီးမေးလ်များကို ဖန်တီးပြီး ဖိုင်များကို တစ်ခုပြီးတစ်ခု ပူးတွဲသင့်သည်။ တော်တော်ဒုက္ခပေးတယ်။ ထို့ကြောင့်၊ အောက်ပါတို့၌ ကျွန်ုပ်တို့သည် သင့်အတွက် ပိုမိုထိရောက်သောနည်းလမ်းကို မိတ်ဆက်ပေးပါမည်။

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

1. အရင်ဆုံး Outlook ပရိုဂရမ်ကို စတင်လိုက်ပါ။
2. ထို့နောက်၊ Outlook တွင်၊ ဆောင်းပါးကိုရည်ညွှန်းသည့် VBA တည်းဖြတ်သူကိုဝင်ရောက်ကြည့်ရှုပါ – “သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။"။
3. ထို့နောက်၊ အောက်ပါ VBA ကုဒ်ကို ပရောဂျက်တစ်ခု သို့မဟုတ် မော်ဂျူးတစ်ခုသို့ ကူးယူပြီး ကူးထည့်ပါ။

Sub SendAllFilesInSeparateEmails()
    Dim objShell As Object
    Dim objWindowsFolder As Object
    Dim objFile As Object
    Dim strWindowsFolder As String
    Dim objFileSystem As Object
    Dim objMail As Outlook.MailItem
 
    'Select a Windows folder
    Set objShell = CreateObject("Shell.Application")
    Set objWindowsFolder = objShell.BrowseForFolder(0, "Select a Windows Folder:", 0, "")
 
    If Not objWindowsFolder Is Nothing Then
       strWindowsFolder = objWindowsFolder.self.Path & "\"
       Set objFileSystem = CreateObject("Scripting.FileSystemObject")
       Set objWindowsFolder = objFileSystem.GetFolder(strWindowsFolder)
 
       'Send each file in an email
       For Each objFile In objWindowsFolder.Files
 
           'Create a new mail
           Set objMail = Outlook.Application.CreateItem(olMailItem)
           'Change the details as per your needs
           With objMail
                .Subject = Left(objFile.Name, Len(objFile.Name) - (Len(objFileSystem.GetExtensionName(objFile.Name)) + 1))
                .Attachments.Add objFile.Path
                .Recipients.Add ("someone@datanumen.com")
                .Recipients.ResolveAll
                .Send
          End With
       Next
 
       'Prompt you when completing sending
       MsgBox "All done!", vbOKOnly + vbExclamation
    End If
End Sub

4. ၎င်းနောက်၊ သင်သည် ဤ macro ကို တစ်ကြိမ်တည်း လုပ်ဆောင်နိုင်သည်။ "F5" ခလုတ်ကိုနှိပ်ရုံပါပဲ။
5. နောက်ပိုင်းတွင်၊ ပေါ်လာသော ဒိုင်ယာလော့ဘောက်စ်ရှိ အရင်းအမြစ် Windows ဖိုဒါကို ရွေးချယ်ရန် လိုအပ်မည်ဖြစ်သည်။
6. နောက်ဆုံးတွင်၊ Outlook သည် ဤ Windows ဖိုင်တွဲရှိ ဖိုင်အားလုံးကို အီးမေးလ်များကို ခွဲထုတ်ပြီး ကြိုတင်သတ်မှတ်ထားသော လက်ခံသူထံ မေးလ်များ ပေးပို့မည်ဖြစ်သည်။
7. ပြီးသွားသောအခါ “အားလုံးပြီးပြီ!” ဟူသော မက်ဆေ့ချ်ကို ရရှိမည်ဖြစ်သည်။

Outlook Health ကို စောင့်ကြည့်ပါ။

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

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

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