როგორ ავტომატურად ამობეჭდოთ მნიშვნელოვანი შემომავალი ელფოსტის პირველი გვერდი თქვენს Outlook-ში

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

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

მნიშვნელოვანი შემომავალი ელფოსტის პირველი გვერდის ავტომატური ამობეჭდვა

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

Sub PrintFirstPage_ImportantIncomingEmails(objMail As Outlook.MailItem)
    Dim objWordApp As Word.Application
    Dim objTempWordDocument As Word.Document
    Dim objMailDocument As Word.Document
    Dim lPageCount As Long
 
    objMail.Display
    Set objMailDocument = objMail.GetInspector.WordEditor
    objMailDocument.Range.Copy
    
    Set objWordApp = CreateObject("Word.Application")
    Set objTempWordDocument = objWordApp.Documents.Add
    objWordApp.Visible = True
    objTempWordDocument.Activate
 
    objTempWordDocument.Range.Paste
 
    lPageCount = objTempWordDocument.ComputeStatistics(wdStatisticPages)
 
    'If the email takes up more than one page
    If lPageCount > 1 Then
       'Only print the first page
       objTempWordDocument.PrintOut Range:=wdPrintFromTo, From:="1", To:="1"
    Else
       'Otherwise, print the whole email
       objMail.PrintOut
    End If
 
    objMail.Close olDiscard
    objMail.UnRead = True
 
    objTempWordDocument.Close False
    objWordApp.Quit
End Sub

5. ამის შემდეგ, შეგიძლიათ გახვიდეთ მიმდინარე ფანჯრიდან.
6. შემდეგ გადადით მენიუში "ფაილი" და დააწკაპუნეთ ღილაკზე "წესებისა და გაფრთხილებების მართვა".
7. დიალოგურ ფანჯარაში "წესები და გაფრთხილებები" დააჭირეთ ღილაკს "ახალი წესი".
8. შემდეგი, "წესების ოსტატის" ახალ დიალოგურ ფანჯარაში აირჩიეთ "გამოიყენე წესი შეტყობინებებზე, რომლებსაც მიღებ" და დააჭირეთ "შემდეგი".
9. „წესების ოსტატის“ მეორე ეკრანზე თქვენ უნდა მიუთითოთ პირობები, კერძოდ, განსაზღვროთ, რომელი ელ.წერილია თქვენთვის მნიშვნელოვანი, მაგალითად, კონკრეტული გამგზავნისგან და ა.შ.
10. ამის შემდეგ დააწკაპუნეთ „შემდეგი“, რომელიც გადაგიყვანთ შემდეგ ეკრანზე, რომელშიც უნდა დააყენოთ წესების მოქმედება. აირჩიეთ „სკრიპტის გაშვება“ და აირჩიეთ ადრე დამატებული მაკრო.
11. მოგვიანებით დააწკაპუნეთ რამდენიმე „შემდეგი“ ბოლო ეკრანის მიღებამდე – „დასრულდეს წესის დაყენება“, რომელშიც შეგიძლიათ მიუთითოთ ამ წესის სახელი და კიდევ ერთხელ შეამოწმოთ წესის პარამეტრი.
12. ბოლოს დააწკაპუნეთ „დასრულება“ ამ ახალი წესის შესანახად.
13. და ბოლოს, მას შემდეგ, ყოველ ჯერზე, როცა ახალი მნიშვნელოვანი შემომავალი ელფოსტა მოხვდება თქვენს საფოსტო ყუთში, Outlook ავტომატურად დაბეჭდავს თავის პირველ გვერდს, თუ ის ძალიან გრძელია.

ამოიღეთ მაქსიმალური მონაცემები დაზიანებული PST ფაილებიდან

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

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

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