Сөйлесу кезінде барлық электрондық пошталарды мәтіндік файлдар түрінде Outlook VBA арқылы қалай экспорттауға болады

Outlook шешімдері Қыркүйек 29, 2025
Қазір бөлісу:

Кейде сіз белгілі бір сұхбаттағы барлық электрондық хаттарды топтамамен жазып алып, оларды жергілікті файлға мәтіндік файл ретінде экспорттауды қалауыңыз мүмкін. Бұл мақала сізге оны тез арада алуды үйретеді.

Сөйлесу кезінде барлық электрондық пошталарды мәтіндік файлдар түрінде Outlook VBA арқылы экспорттауБелгілі бір себептермен сізге белгілі бір сөйлесімдегі барлық электрондық хаттарды жергілікті дискіге экспорттау қажет болуы мүмкін. Егер сіз мұны қолмен жасасаңыз, яғни бірінен соң бірін тауып, сақтасаңыз, бұл сізді жалықтыратын және ауыр жұмыс болады. Сондықтан тезірек әдісті, мысалы келесі әдісті іздегеніңіз жөн. Ол терді алмай-ақ алу үшін VBA кодының бір бөлігін пайдаланады.

Сөйлесу барысында барлық пошталарды мәтіндік файлдар түрінде экспорттау

  1. Ең басында Outlook қосымшасын іске қосыңыз.
  2. Содан кейін Outlook VBA редакторына кіру үшін «Alt + F11» батырмаларын басыңыз.
  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 коды - сөйлесу кезінде барлық электрондық пошта хабарларын мәтіндік файлдар түрінде экспорттау

  1. Осыдан кейін сіз жаңа VBA жобасын жылдам кіру құралдар тақтасына әдеттегідей қосуға болады.
  2. Кейінірек сіздің Outlook макроқауіпсіздік деңгейіңізді төмен деңгейге жеткізіңіз.
  3. Ақырында, сіз көріңіз.
  • Біріншіден, электрондық поштаны таңдаңыз.
  • Содан кейін жылдам қол жеткізу құралдар тақтасындағы жаңа макро батырманы басыңыз.
  • «Аяқталды» хабарламасын алған кезде сіз алдын-ала анықталған жергілікті қалтаны аша аласыз, онда сіз «TXT» форматындағы электрондық хаттарды көресіз.

Сыбайлас жемқорлықтан кейін PST деректерін қалпына келтіру бойынша кеңестер

Көбінесе, Outlook бағдарламасында сіз Outlook-та әр түрлі қателіктерге тап болуыңыз мүмкін, олардың кейбіреулері тікелей PST сыбайлас жемқорлыққа соқтыратындай болып көрінуі мүмкін. Сол кезде сізге қандай да бір әрекет жасау керек жөндеу PST құнды деректерді табу үшін файл. Бұл жағдайда сіз беделді және дәлелденген құралға қайта оралуға болады DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру sql server және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com

Қазір бөлісу:

Пікірлер жабылды.