როგორ გამოვრიცხოთ ჩაშენებული სურათები Outlook ელფოსტის დაბეჭდვისას

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

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

გამორიცხეთ ჩაშენებული სურათები ელფოსტის დაბეჭდვისას

1. პირველ რიგში, გაუშვით Outlook აპლიკაცია.
2. შემდეგ, შედით Outlook VBA რედაქტორზე სტატიის მიხედვით – ”როგორ გაუშვათ VBA კოდი თქვენს Outlook-ში".
3. შემდგომში, თქვენ უნდა ჩართოთ „MS Word-ის ობიექტების ბიბლიოთეკა“, რომლის შესახებაც შეგიძლიათ იხილოთ „როგორ დავამატოთ ობიექტის ბიბლიოთეკის მითითება VBA-ში".
4. ამის შემდეგ ჩადეთ შემდეგი VBA კოდი გამოუყენებელ მოდულში.

Sub ExcludeEmebeddedImagesWhenPrintingEmail()
    Dim objMail As Outlook.MailItem
    Dim strMailDocument As String
    Dim objWordApp As Word.Application
    Dim objMailDocument As Word.Document
    Dim objInlineShape As Word.InlineShape
 
    'Get the source email
    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objMail = ActiveInspector.CurrentItem
           Case olExplorer
                Set objMail = ActiveExplorer.Selection.Item(1)
    End Select
 
    'Save the email as a Word document
    strMailDocument = Environ("Temp") & "\" & objMail.Subject & ".doc"
    objMail.SaveAs strMailDocument, olDoc
 
    'Remove the embedded images from the document
    Set objWordApp = CreateObject("Word.Application")
    Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
    objWordApp.Visible = True
    For Each objInlineShape In objMailDocument.InlineShapes
        objInlineShape.Delete
    Next
 
    'Print out the document
    objMailDocument.PrintOut
 
    objMailDocument.Close
    objWordApp.Quit
    Kill strMailDocument
End Sub

5. მოგვიანებით, დახურეთ მიმდინარე "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარა.
6. ამის შემდეგ, დაამატეთ ახალი მაკრო Quick Access Toolbar-ში.
7. საბოლოოდ, შეგიძლიათ სცადოთ ეს მაკრო ახლა.

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

დაიცავით თქვენი Outlook მონაცემები ეფექტურად

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

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

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