Outlook электрондық поштасын басып шығару кезінде ендірілген кескіндерді қалай алып тастауға болады

Кейде ендірілген кескіндерді қоспағанда, электрондық поштаның мәтінін басып шығарғыңыз келуі мүмкін. Басып шығару алдында кескіндерді жоюдың орнына осы мақалада келтірілген әдісті қолдануға болады. Ол басып шығару кезінде кескіндерді автоматты түрде алып тастай алады.

Барлығымыз білетіндей, суреттерді басып шығару сияны ысырап етеді. Сондықтан, кейде электрондық поштаны басып шығару кезінде кірістірілген кескіндер пайдасыз деп ойлауыңыз мүмкін. Осылайша, электрондық поштаны басып шығару кезінде кескіндерді алып тастауды қалауыңыз мүмкін. Бұл жағдайда оған оңай қол жеткізу үшін келесі жолды қолдануға болады.

Электрондық поштаны басып шығару кезінде ендірілген кескіндерді қоспаңыз

1. Алдымен Outlook қосымшасын іске қосыңыз.
2. Содан кейін мақалаға сәйкес Outlook VBA редакторына кіріңіз - «Outlook бағдарламасында VBA кодын қалай іске қосуға болады«.
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 for Applications» терезесін жабыңыз.
6. Содан кейін жаңа макросты Жылдам кіру құралдар тақтасына қосыңыз.
7. Ақыр соңында бұл макросты қазір қолданып көруге болады.

• Бастау үшін бастапқы электрондық поштаны таңдаңыз немесе ашыңыз.
• Содан кейін жылдам қол жеткізу құралдар тақтасындағы макро батырманы басыңыз.
• Бірден электрондық пошта ендірілген кескіндерсіз басып шығарылады, ол келесі скриншотқа ұқсайды:

Outlook деректерін тиімді қорғаңыз

Қазіргі уақытта деректер әрқашан қауіпсіз емес, өйткені аппараттық ақаулар, бағдарламалық құрал ақаулары, вирустық инфекция және т.б. сияқты ықтимал қауіптер тым көп. Бұл сіздің Outlook деректеріңізге де қатысты. Сондықтан Outlook деректерін қорғауға күш салу керек. Мысалы, сіз тұрақты PST сақтық көшірмелерін жасауыңыз керек. Оған қоса, пайдалануды үйрену керек Сканерлеу Outlook файлын жөндеу үшін. Соңғысы, бірақ кем дегенде, күшті сыртқы жөндеу құралын дайындау да қажеттілік болып табылады, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. mdf қалпына келтіру және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com