Outlook တွင် အီးမေးလ်တစ်စောင်ပေးပို့သည့်အခါ ပူးတွဲပါဖိုင်များကို အမည်ပြောင်းနည်း

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

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

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

1. ပထမတွင်၊ Outlook ကိုဖွင့်ပြီး "Developer" တက်ဘ်သို့သွားပါ။
2. ထို့နောက် ရှာဖွေပြီး “Visual Basic” ခလုတ်ကို နှိပ်ပါ။
3. ထို့နောက်တွင်၊ ပေါ့ပ်အပ်ဝင်းဒိုးအသစ်တွင်၊ "Insert" > "Module" ကိုရွေးချယ်ခြင်းဖြင့် module အသစ်တစ်ခုကိုဖွင့်ပါ။
4. ထို့နောက်တွင်၊ သင်သည် အောက်ပါ VBA ကုဒ်များကို ၎င်းထဲသို့ ကူးယူပြီး ကူးထည့်သင့်သည်။

Sub RenameAttachmentsWhenForwarding()
    Dim olItem As MailItem
    Dim Att As Attachment
    Dim Atts As Attachments
    Dim olForward As MailItem
    Dim FWAtt As Attachment
    Dim FWAtts As Attachments
    Dim FSO As Object
    Dim TempFPath As Object
    Dim FilePath As String
    Dim strName As String
    Dim strExten As String
    Dim strFile As String
 
    Set olItem = Application.ActiveExplorer.Selection.Item(1)
    Set Atts = olItem.Attachments
    Set olForward = olItem.Forward
    olForward.Display
 
    On Error Resume Next
 
    For Each Att In Atts
        'Get the path to Temporary Folder
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set TempFPath = FSO.GetSpecialFolder(2)
        FilePath = TempFPath.Path & "\"
 
        'Rename the attachments
        strName = InputBox("Enter a new name for" & vbCrLf & Att.FileName)
        'Change "4" based on the length of the attachment file extension
        strExten = Right(Att.FileName, 4)
        strFile = FilePath & strName & "." & strExten
 
        If strName <> "" Then
           'Save the attachments to the Temporary Folder
           Att.SaveAsFile (strFile)
 
           'Add the attachments saved in new names from the Temporary Folder
           olForward.Attachments.Add (strFile)
           Set FWAtts = olForward.Attachments
 
           'Remove the original attachments
           For Each FWAtt In FWAtts
               If InStr(FWAtt.FileName, Att.FileName) > 0 Then
                  FWAtt.Delete
               End If
           Next
        End If
    Next
End Sub

5. ၎င်းနောက်၊ သင်သည် လက်ရှိ “Visual Basic” ဝင်းဒိုးမှ ထွက်နိုင်ပြီး ပုံမှန်အတိုင်း Quick Access Toolbar သို့ မက်ခရိုအသစ်ကို ထပ်ထည့်ရန် ဆက်လက်လုပ်ဆောင်ပါ။
6. နောက်ဆုံးတော့ သင်ကြိုးစားကြည့်နိုင်ပါတယ်။

• ပထမဦးစွာ၊ အီးမေးလ်တစ်စောင်ကို ရွေးချယ်ပြီးနောက် အမြန်ဝင်ရောက်ခြင်းတူးလ်ဘားရှိ မက်ခရိုခလုတ်အသစ်ကို နှိပ်ပါ။
• ထို့နောက် ထပ်ဆင့်ပို့သည့် အီးမေးလ်အသစ်တစ်ခု ပွင့်လာမည်ဖြစ်သည်။ “Attached” လိုင်းရှိ မူရင်းအမည်များဖြင့် ပူးတွဲပါဖိုင်များကို သင်တွေ့မြင်နိုင်ပြီး တိကျသော ပူးတွဲပါဖိုင်အတွက် အမည်အသစ်တစ်ခုထည့်ရန် သင့်အား တောင်းဆိုသော ဒိုင်ယာလော့ခ်ဘောက်စ်ကိုလည်း လက်ခံရရှိနိုင်ပါသည်။
• ဖိုင်အားလုံးအတွက် အမည်အသစ်များကို သတ်မှတ်ပြီး “OK” ကိုနှိပ်ပြီးနောက်၊ ပူးတွဲပါဖိုင်များအားလုံးသည် အမည်အသစ်တွင် ရှိနေသည်ကို သင်တွေ့ရပါမည်။
• နောက်ဆုံးတွင် သင်သည် ထပ်ဆင့်ပို့သည့်အီးမေးလ်များကို ရေးဖွဲ့နိုင်ပြီး မက်ဆေ့ချ်ထုတ်ရန် "ပို့ရန်" ခလုတ်ကို နှိပ်နိုင်သည်။

သင့် Outlook အတွက် ဖြစ်နိုင်ချေရှိသော ခြိမ်းခြောက်မှုများအားလုံးကို သတိထားပါ။

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

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

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