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

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

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

ရွေးချယ်ထားသော ပူးတွဲပါဖိုင်များသာ အီးမေးလ်တစ်စောင် အမြန်ပို့ပါ။

1. အစပိုင်းတွင်၊ "Alt + F11" ဖြတ်လမ်းမှတစ်ဆင့် Outlook VBA တည်းဖြတ်မှုကို စတင်ပါ။
2. ထို့နောက် အောက်ပါကုဒ်ကို ပရောဂျက် သို့မဟုတ် မော်ဂျူးတစ်ခုထဲသို့ ကူးထည့်ပါ။

Sub ForwardMailWithSelectedAttachmentsOnly()
    Dim objMail As Outlook.MailItem
    Dim strTempFolder As String
    Dim strFile As String
    Dim objSelectedAttachments As Outlook.AttachmentSelection
    Dim objAttachment As Outlook.Attachment
    Dim objForward As Outlook.MailItem
 
    'Get the selected email
    Set objMail = Outlook.Application.ActiveExplorer.Selection.Item(1)
 
    'Get the selected attachments
    Set objSelectedAttachments = Outlook.Application.ActiveExplorer.AttachmentSelection
    If objSelectedAttachments.Count > 0 Then
       'Forward this email
       Set objForward = objMail.Forward
       objForward.Display
 
       'Delete all the forwarded attachments
       Do Until objForward.Attachments.Count = 0
          objForward.Attachments.Item(1).Delete
       Loop
 
       On Error Resume Next
       strTempFolder = "E:\Temp" & Format(Now, "yyymmddhhmmss") & "\"
       MkDir (strTempFolder)
 
       'Re-attach the selected attachments to the forward mail
       For Each objAttachment In objSelectedAttachments
           strFile = strTempFolder & objAttachment.FileName
           objAttachment.SaveAsFile (strFile)
           objForward.Attachments.Add (strFile)
       Next
 
       Kill strFile
    End If
End Sub

3. ထို့နောက် VBA တည်းဖြတ်သူမှ ထွက်ပါ။
4. ၎င်းနောက်၊ ယခင် p ရှိ “ရွေးချယ်နိုင်သော အဆင့်” ကို လိုက်နာပါ။ost "သင်၏ Outlook တွင် VBA ကုဒ်ကိုမည်သို့ဖွင့်မည်နည်း။” ဤ macro ကို Quick Access Toolbar သို့မဟုတ် ribbon သို့ ထည့်ရန်။
5. နောက်ဆုံးတွင် သင်သည် ဤ macro ကို စမ်းကြည့်နိုင်သည်။

• ပထမဦးစွာ၊ စာဖတ်ခြင်းအကန့်ကို ဖွင့်ထားကြောင်း သေချာပါစေ။
• ထို့နောက် သင်ပေးပို့လိုသော အီးမေးလ်နှင့် ပူးတွဲပါဖိုင်များကို ရွေးချယ်ပါ။
• ထို့နောက်၊ Quick Access Toolbar သို့မဟုတ် ဖဲကြိုးရှိ မက်ခရိုခလုတ်ကို နှိပ်ပါ။
• တစ်ချိန်တည်းတွင် အီးမေးလ်အသစ်တစ်ခု ပေါ်လာလိမ့်မည်။ သင်မြင်ရသည့်အတိုင်း၊ ၎င်းသည် ရွေးချယ်ထားသော ပူးတွဲပါဖိုင်များသာ ပါရှိသည့် ထပ်ဆင့်ပို့သည့် အီးမေးလ်ဖြစ်သည်။

Knotty Outlook Data Corruption ကို ပြင်ဆင်ပါ။

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

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

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