Outlook бағдарламасындағы маңызды кіріс электрондық хаттардың бірінші бетін қалай автоматты түрде басып шығаруға болады

Қазір бөлісу:

Кейбір пайдаланушылар 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

VBA коды - Маңызды кіріс хаттарының бірінші бетін автоматты түрде басып шығару

  1. Осыдан кейін сіз ағымдағы терезеден шыға аласыз.
  2. Содан кейін «Файл» мәзіріне өтіп, «Ережелер мен ескертулерді басқару» түймесін басыңыз.
  3. Қалқымалы «Ережелер мен ескертулер» диалогтық терезесінде «Жаңа ереже» түймесін басыңыз.
  4. Әрі қарай, «Ережелер шеберінің» жаңа тілқатысу терезесінде «Мен алатын хабарламаларға ереже қолдану» тармағын таңдап, «Келесі» түймесін басыңыз.
  5. «Ережелер шеберінің» екінші экранында сіз шарттарды көрсетуіңіз керек, атап айтқанда сіз үшін маңызды электрондық поштаны анықтауыңыз керек, мысалы, нақты жіберушілерден келетінін және т.б.
  6. Осыдан кейін «Келесі» түймесін басыңыз, ол сізді келесі экранға апарады, онда ереже әрекетін орнату қажет. «Сценарийді іске қосу» тармағын таңдап, бұрын қосылған макросты таңдаңыз.«Сценарийді іске қосу» ереже әрекетін таңдаңыз
  7. Кейінірек, соңғы экран – «Ереже орнатуды аяқтау» шыққанша бірнеше «Келесі» түймесін басыңыз, онда осы ереженің атын көрсетуге және ереже параметрін тағы бір рет тексеруге болады.
  8. Соңында осы жаңа ережені сақтау үшін «Аяқтау» түймесін басыңыз.
  9. Соңында, содан бері пошта жәшігіңізге жаңа маңызды кіріс электрондық пошта келген сайын, егер ол тым ұзын болса, Outlook өзінің бірінші бетін автоматты түрде басып шығарады.

Бұзылған PST файлдарынан максималды деректерді шығарып алыңыз

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

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

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

Қазір бөлісу:

Пікірлер жабылды.