როგორ სწრაფად დააკოპიროთ ყველა ცხრილი ერთი ელფოსტიდან მეორეზე Outlook-ში

Outlook-ში, როდესაც თქვენ გჭირდებათ ყველა ცხრილის ამოღება და კოპირება ერთი ელფოსტიდან მეორეზე, უდავოდ დამღლელი და რთულია ამის ხელით გაკეთება. ეს სტატია გაგიზიარებთ ბევრად უფრო ჭკვიან გზას.

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

დააკოპირეთ ყველა ცხრილი ერთი ელფოსტიდან მეორეზე

1. დასაწყისისთვის, თქვენ ჩვეულებრივად უნდა შეხვიდეთ თქვენს Outlook-ში.
2. შემდეგ, Outlook-ის მთავარ ფანჯარაში, შეგიძლიათ დააჭიროთ "Alt + F11" მალსახმობის ღილაკებს.
3. ამის შემდეგ, ამომხტარ ფანჯარაში „Microsoft Visual Basic აპლიკაციებისთვის“, თქვენ უნდა გახსნათ გამოუყენებელი მოდული ან უბრალოდ ჩასვათ ახალი.
4. შემდეგი, შეგიძლიათ დააკოპიროთ შემდეგი VBA კოდი ამ მოდულში.

Sub CopyAllTablesFromOneEmailToAnother()
    Dim objSourceMail As Outlook.MailItem
    Dim objSourceMailDocument As Word.Document
    Dim objNewMail As Outlook.MailItem
    Dim objNewMailDocument As Word.Document
    Dim objTable As Word.Table
 
    'Get the source email
    Select Case TypeName(Application.ActiveWindow)
           Case "Explorer"
                Set objSourceMail = ActiveExplorer.Selection.Item(1)
                objSourceMail.Display
           Case "Inspector"
                Set objSourceMail = ActiveInspector.CurrentItem
    End Select
 
    Set objSourceMailDocument = objSourceMail.GetInspector.WordEditor
 
    If objSourceMailDocument.Tables.count > 0 Then
 
       'Create a new email
       Set objNewMail = Application.CreateItem(olMailItem)
 
       For Each objTable In objSourceMailDocument.Tables
           Set objNewMailDocument = objNewMail.GetInspector.WordEditor
 
           'Copy all tables from source email to the new email
           With objNewMailDocument.Range
                .Collapse wdCollapseEnd
                .FormattedText = objTable.Range.FormattedText
                .Collapse wdCollapseEnd
                .Text = vbCrLf
           End With
      Next
 
      'Close the source email
      objSourceMail.Close olSave
      'Display the new email
      objNewMail.Display
    End If
End Sub

5. ამის შემდეგ შეგიძლიათ გახვიდეთ მიმდინარე VBA რედაქტორის ფანჯრიდან.
6. მოგვიანებით თქვენ უნდა შეცვალოთ თქვენი Outlook მაკრო პარამეტრები, რათა ჩართოთ ყველა მაკრო.
7. ასევე, უმჯობესია დაამატოთ ეს მაკრო სწრაფი წვდომის ინსტრუმენტთა პანელში, რაც შეიძლება განხორციელდეს "Outlook Options"-ში.
8. საბოლოოდ შეგიძლიათ სცადოთ:

• თავიდანვე გახსენით ან აირჩიეთ ელფოსტა, რომლის ცხრილები უნდა დააკოპიროთ.
• შემდეგ დააჭირეთ ახლად დამატებულ მაკრო ღილაკს სწრაფი წვდომის ინსტრუმენტთა პანელში.
• მას შემდეგ, რაც მაკრო დასრულდება, გამოჩნდება ახალი ელფოსტა, რომელშიც ჩასმულია წყაროს ელ.ფოსტის ცხრილები.

დაიცავი Outlook ფაილი კორუფციისგან

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

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

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