თუ გსურთ Outlook-ის მრავალი ელ. ფოსტის ექსპორტი ერთ სიტყვიან დოკუმენტში, შეგიძლიათ გამოიყენოთ ამ სტატიაში ნაჩვენები VBA კოდი. ის დაგეხმარებათ ამ ამოცანის შესრულებაში წამებში.
მე ოდესმე გააცნო, თუ როგორ უნდა გადავიტანო Outlook ელ.წერილი Word დოკუმენტად ჩემს წინა სტატიაში - "2 ეფექტური მეთოდი Outlook ელფოსტის Word დოკუმენტად გადასაყვანად“. თუმცა, ორივე 2 საშუალება აღნიშნული გვost უმწეო იქნება იმ შემთხვევაში, როდესაც გსურთ ბევრი ელ.ფოსტის ექსპორტი ერთ Word დოკუმენტში. აქედან გამომდინარე, აქ სხვა გზას გასწავლით. ახლა წაიკითხეთ, რომ უფრო დეტალურად მიიღოთ იგი.
სერიული ექსპორტი მრავალი Outlook ელ.წერილი ერთ სიტყვა დოკუმენტში
- სtarდა გაუშვით თქვენი Outlook პროგრამა.
- შემდეგ, Outlook-ის მთავარ ფანჯარაში შესვლის შემდეგ, თქვენ უნდა დააჭიროთ "Alt + F11" ღილაკებს.
- შემდეგ თქვენ მიიღებთ წვდომას Outlook VBA რედაქტორზე, რომელშიც უნდა გახსნათ ცარიელი მოდული.
- ამის შემდეგ, დააკოპირეთ ქვემოთ მოცემული VBA კოდი გახსნილ მოდულის ფანჯარაში.
Sub ExportMultipleEmails_OneWordDocument()
Dim objFileSystem As Object
Dim strTempFolder As String
Dim objSelection As Outlook.Selection
Dim objMail As Outlook.MailItem
Dim strFileName As String
Dim objWordApp As Word.Application
Dim objNewWordDocument As Word.Document
Dim objWordRange As Word.Range
Dim strWordDocument As String
Dim i As Long
'Create a temp folder
Set objFileSystem = CreateObject("Scripting.FileSystemObject")
strTempFolder = objFileSystem.GetSpecialFolder(2).Path & "\Temp" & Format(Now, "YYYYMMDDhhmmss")
MkDir (strTempFolder)
On Error Resume Next
'Save each selected email as an individual Word document in a temp folder
Set objSelection = Outlook.Application.ActiveExplorer.Selection
For Each objMail In objSelection
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), " ")
objMail.SaveAs strTempFolder & "\" & strFileName & ".doc", olDoc
Next
'Merge all the Word documents into a single document
Set objWordApp = CreateObject("Word.Application")
Set objNewWordDocument = objWordApp.Documents.Add
strWordDocument = Dir(strTempFolder & "\" & "*.doc")
i = 0
Do Until strWordDocument = ""
i = i + 1
Set objWordRange = objNewWordDocument.Range
With objWordRange
.Collapse wdCollapseEnd
If i > 1 Then
.InsertBreak wdSectionBreakNextPage
.End = objNewWordDocument.Range.End
.Collapse wdCollapseEnd
End If
.InsertFile strTempFolder & "\" & strWordDocument
End With
strWordDocument = Dir()
Loop
'Change the path as per your own needs
objNewWordDocument.SaveAs "E:\Exported Emails " & Format(Now, "YYYY-MM-DD hh-mm-ss")
objWordApp.Quit
'Delete the temp folder
objFileSystem.DeleteFolder (strTempFolder)
End Sub
- ამის შემდეგ, უმჯობესია დაამატოთ ეს ახალი VBA პროექტი სწრაფი წვდომის ხელსაწყოთა ზოლში ან ლენტაში.
- საბოლოო ჯამში, შეგიძლიათ სცადოთ.
- პირველ რიგში, აირჩიეთ რამდენიმე Outlook ელ.წერილი.
- შემდეგ იპოვნეთ და დააჭირეთ ახლად დამატებულ მაკრო ღილაკს.
- მას შემდეგ, რაც მოგეთხოვებათ „დასრულება“, შეგიძლიათ დაათვალიეროთ წინასწარ განსაზღვრული ადგილობრივი საქაღალდე, რათა იპოვოთ ახალი Word დოკუმენტი.
- გახსენით ეს დოკუმენტი, რომელშიც ხედავთ, რომ ყველა არჩეული ელფოსტა ექსპორტირებულია.
შეინახეთ Mighty Recovery Tool ახლოს
მრავალი ფუნქციის მიუხედავად, Outlook მაინც ვერ იქნება დაზღვეული შეცდომებისგან. თუ თქვენ მიჩვეული ხართ შეცდომების მარტო დატოვებაზე, მათთან ერთად, Outlook-ის ავარია აუცილებლად მოხდება. ამ დროს აუცილებელია ხელახლა მივმართოთ აღდგენის ძლიერ და ეფექტურ ინსტრუმენტს, როგორიცაა DataNumen Outlook Repair. კარგად ერკვევა PST შესწორება. სანამ მასთან ერთად, თქვენ აღარ დაგჭირდებათ შეშფოთება Outlook მონაცემების დაკარგვაზე.
ავტორი შესავალი:
შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის დაზიანებული მდფ და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად