Ինչպես խմբաքանակով արտահանել բոլոր նամակները խոսակցության մեջ որպես տեքստային ֆայլեր Outlook VBA-ի միջոցով

Outlook լուծումներ Սեպտեմբեր 29, 2025
Կիսվել հիմա ՝

Երբեմն, դուք կարող եք ցանկանալ խմբաքանակով նկարահանել բոլոր էլ. Այս հոդվածը կսովորեցնի ձեզ, թե ինչպես ստանալ այն արագ ժամանակում:

Խմբաքանակով արտահանել բոլոր էլ. նամակները խոսակցության մեջ որպես տեքստային ֆայլեր Outlook VBA-ի միջոցովԻնչ-ինչ պատճառներով, ձեզ կարող է անհրաժեշտ լինել որոշակի խոսակցության բոլոր նամակները արտահանել ձեր տեղական սկավառակ: Եթե ​​դուք ձեռքով դա անեք, այն է` մեկ առ մեկ գտնել և խնայել, դա հոգնեցուցիչ և դժվարին խնդիր կլինի: Հետևաբար, ավելի լավ է փնտրեք այլ ավելի արագ մեթոդ, ինչպիսին է հետևյալը: Այն կօգտագործի VBA կոդի մի կտոր՝ առանց քրտնելու այն ստանալու համար:

Խմբաքանակով արտահանել բոլոր նամակները զրույցի մեջ որպես տեքստային ֆայլեր

  1. Հենց սկզբից գործարկեք ձեր Outlook հավելվածը:
  2. Դրանից հետո սեղմեք «Alt + F11» ստեղնաշարի կոճակները ՝ Outlook VBA խմբագիր մուտք գործելու համար:
  3. Հետագայում, նոր պատուհանում, դուք պետք է բացեք մի մոդուլ, որը չի օգտագործվում կամ ուղղակիորեն տեղադրեք նոր մոդուլ:
  4. Այնուհետև դուք պետք է պատճենեք և տեղադրեք հետևյալ VBA կոդերը այս մոդուլում:
Public strFilePath, strFileName As String

Sub ExportMailsInConversationAsTXT()
    Dim objSelectedMail As Outlook.MailItem
    Dim objConversation As Outlook.Conversation
    Dim objMail As Outlook.MailItem

    Set objSelectedMail = ActiveExplorer.Selection.Item(1)
    Set objConversation = objSelectedMail.GetConversation
 
    If Not (objConversation Is Nothing) Then
       'Get all root items in this conversation
       For Each objMail In objConversation.GetRootItems
 
          strFileName = objMail.Subject
 
          'Remove the unsupported characters in email subject
          strFileName = Replace(strFileName, "/", " ")
          strFileName = Replace(strFileName, "\", " ")
          strFileName = Replace(strFileName, ":", "")
          strFileName = Replace(strFileName, "?", " ")
          strFileName = Replace(strFileName, Chr(34), " ")

          strFileName = Format(objMail.ReceivedTime, "YYYY-MM-DD") & "_" & strFileName & ".txt"
 
         'Export as Text files
         'Change "E:\" to other local folder path as per your needs
         strFilePath = "E:\" & strFileName
         objMail.SaveAs strFilePath, OLTXT

         'Process all children as well
         Call ProcessChildren(objMail, objConversation)
      Next
   End If

   MsgBox "Complete!", vbExclamation
End Sub

Sub ProcessChildren(objCurMail As Outlook.MailItem, objCurConversation As Outlook.Conversation)
    Dim objItems As Outlook.SimpleItems
    Dim objItem As Outlook.MailItem
 
    Set objItems = objCurConversation.GetChildren(objCurMail)

    If objItems.Count > 0 Then
       For Each objItem In objItems
 
           strFileName = objItem.Subject
 
           strFileName = Replace(strFileName, "/", " ")
           strFileName = Replace(strFileName, "\", " ")
           strFileName = Replace(strFileName, ":", "")
           strFileName = Replace(strFileName, "?", " ")
           strFileName = Replace(strFileName, Chr(34), " ")
 
           strFileName = Format(objItem.ReceivedTime, "yyyy-mm-dd") & "_" & strFileName & ".txt"
 
           strFilePath = "E:\" & strFileName
           objItem.SaveAs strFilePath, OLTXT
 
           'Process all children recursively
           Call ProcessChildren(objItem, objCurConversation)
       Next
    End If
End Sub

VBA Code - խմբաքանակի արտահանման բոլոր նամակները խոսակցության մեջ որպես տեքստային ֆայլեր

  1. Դրանից հետո դուք կարող եք սովորականի պես ավելացնել նոր VBA նախագիծը Quick Access Toolbar-ում:
  2. Հետագայում ապահովեք ձեր Outlook մակրո անվտանգության մակարդակը ցածր:
  3. Ի վերջո, դուք կարող եք փորձել:
  • Նախ ընտրեք էլ.
  • Դրանից հետո կտտացրեք նոր մակրո կոճակին Արագ մուտքի Գործիքադարակում:
  • Երբ ստանում եք «Ավարտել» հաղորդագրությունը, կարող եք բացել նախապես սահմանված տեղական թղթապանակը, որում կտեսնեք նամակները «TXT» ձևաչափով:

Կոռուպցիայից հետո PST-ի տվյալները վերականգնելու խորհուրդներ

Հաճախ Outlook-ում դուք կարող եք հանդիպել Outlook-ի տարբեր սխալների, որոնցից մի քանիսը կարող են շատ լուրջ լինել, այնպես որ դրանք ուղղակիորեն հանգեցնում են PST կոռուպցիայի: Այդ ժամանակ դուք պետք է գործողություններ ձեռնարկեք, որպեսզի վերանորոգել PST ֆայլ՝ ձեր արժեքավոր տվյալները հետ գտնելու համար: Այս դեպքում դուք պարզապես կարող եք կրկին դիմել հեղինակավոր և լավ ապացուցված գործիքին, ինչպիսին է DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել sql server և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

Կիսվել հիմա ՝

Comments փակվում են: