Outlook-ის ელფოსტის Word დოკუმენტად გადაქცევის 2 ეფექტური მეთოდი

თუ გსურთ შეინახოთ ან გადაიყვანოთ Outlook ელ.წერილი Word დოკუმენტად, შეგიძლიათ გამოიყენოთ ამ სტატიაში წარმოდგენილი 2 მეთოდი.

Outlook არ გვთავაზობს რაიმე მშობლიურ ფუნქციას Outlook-ის ელფოსტის Word დოკუმენტად შესანახად ან გადაქცევისთვის. ამიტომ, თუ ამის მიღწევა გსურთ, დამატებითი ძალისხმევა მოგიწევთ. აქ ჩვენ გასწავლით 2 სწრაფ მეთოდს. ერთი არის ჭკვიანურად გამოიყენოთ "შენახვა" ფუნქცია. მეორე არის Outlook VBA ტაქტიანად გამოყენება. გთხოვთ, წაიკითხოთ, რომ მიიღოთ ისინი დეტალურად.

მეთოდი 1: გამოიყენეთ "შენახვა" ფუნქცია

1. დასაწყებად, გაუშვით თქვენი Outlook პროგრამა.
2. შემდეგ გაავრცელეთ ელ.წერილი.
3. შემდეგ გადადით მენიუში "ფაილი" და აირჩიეთ "შენახვა როგორც".
4. შემდეგ, ამომხტარ დიალოგურ ფანჯარაში, აირჩიეთ დანიშნულების საქაღალდე და აირჩიეთ "მხოლოდ ტექსტი" ველში "შენახვა როგორც ტიპის".
5. ღილაკზე „შენახვა“ დაწკაპუნების შემდეგ, შეგიძლიათ გახსნათ თქვენი Microsoft Word აპლიკაცია.
6. MS Word-ში გადადით მენიუში „ფაილი“ და აირჩიეთ „გახსნა“.
7. ამომხტარ დიალოგურ ფანჯარაში „გახსნა“, აირჩიეთ „ყველა ფაილი“ „ფაილის სახელი“ სტრიქონში და დააყენეთ ადრე შენახულ ტექსტურ ფაილზე.
8. მას შემდეგ, რაც დააჭირეთ ღილაკს "გახსნა", ელ.წერილი ტექსტური ფაილის ტიპით გაიხსნება Word-ში.
9. მოგვიანებით შეგიძლიათ აირჩიოთ "ფაილი" > "შენახვა როგორც".
10. ბოლოს "შენახვა როგორც" დიალოგურ ფანჯარაში აირჩიეთ "Word Document" "Save as Type"-ში და დააჭირეთ "Save".

მეთოდი 2: გამოიყენეთ Outlook VBA

1. პირველ რიგში, დააჭირეთ "Alt + F11" კლავიშთა მალსახმობებს Outlook-ში.
2. შემდეგ Outlook VBA რედაქტორის ფანჯარაში გახსენით ახალი მოდული.
3. შემდეგ დააკოპირეთ და ჩასვით მასში შემდეგი VBA კოდები.

Sub ConvertEmailtoWordDocument()
    Dim objMail As Outlook.MailItem
    Dim strMessage As String
    Dim objWordApp As Word.Application
    Dim objWordDocument As Word.Document
    Dim objWordRange As Word.Range
    Dim strFilePath, strFileName As String
 
    Select Case Application.ActiveWindow.Class
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
    End Select
 
    strMessage = "From: " & objMail.SenderName & vbCrLf & "Sent: " & objMail.SentOn & vbCrLf & "Subject: " & objMail.Subject & vbCrLf & vbCrLf & objMail.Body
 
    'create a word document
    Set objWordApp = CreateObject("Word.Application")
    Set objWordDocument = objWordApp.Documents.Add
    objWordDocument.Activate
    Set objWordRange = objWordDocument.Range(0, 0)
    'insert the email information to the document
    objWordRange.Text = strMessage
 
    'change the email contents' format
    With objWordRange.Font
         .Name = "Cambria"
         .Color = wdColorBlack
         .Size = 12
    End With
 
    'show the word document
    objWordApp.Visible = True
    objWordDocument.ActiveWindow.Visible = True
End Sub

4. შემდგომში, დაამატეთ ახალი VBA პროექტი Quick Access Toolbar-ს.
5. ამის შემდეგ, აირჩიეთ ელფოსტა და დააწკაპუნეთ მაკრო ღილაკზე სწრაფი წვდომის ინსტრუმენტთა პანელში.
6. ერთბაშად გამოჩნდება Word დოკუმენტი ელ.ფოსტის შინაარსით.
7. საბოლოოდ შეგიძლიათ შეინახოთ ახალი ამომხტარი Word დოკუმენტი, როგორც ყოველთვის.

ეფექტურად გააუქმეთ Outlook-ის შემაშფოთებელი საკითხები

ვინაიდან Outlook მიდრეკილია შეცდომებისა და კორუფციისკენ, თქვენ უნდა დახარჯოთ მეტი ძალისხმევა თქვენი Outlook მონაცემების დასაცავად. მაგალითად, თქვენ უნდა გააკეთოთ რეგულარული სარეზერვო ასლები თქვენი Outlook მონაცემებისთვის. გარდა ამისა, გონივრულია უპირატესობის ხელში ჩაგდება Outlook აღდგენა ინსტრუმენტი, როგორიცაა DataNumen Outlook Repair, რომელიც აუცილებლად გამოგადგებათ ერთ დღეს.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის SQL Server სარემონტო და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად