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

Электрондық поштаны басып шығару үшін әдепкі емес принтерді пайдалану үшін Outlook бағдарламасын теңшей алмайсыз. Бірақ бұл мақалада біз сізге Outlook VBA көмегімен оған жетудің әдісін көрсетеміз.

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

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

1. Ең басында Outlook қолданбаңызды іске қосыңыз.
2. Содан кейін негізгі Outlook терезесінде «Alt + F11» батырмаларын басыңыз.
3. Келесіде, «Қолданбаларға арналған Microsoft Visual Basic» терезесінде алдымен «Microsoft Word нысан кітапханасын» қосу керек. Ол үшін «Құралдар» > «Сілтеме» тармақтарын басуға болады.
4. Содан кейін сізге бос модульге қол жеткізу керек.
5. Кейіннен келесі модульге VBA кодын көшіріңіз және қойыңыз.

Sub PrintEmail()
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objWordApp As Word.Application
    Dim strTempFolder As String
    Dim strMailDocument As String
    Dim objMailDocument As Word.Document
    Dim strPrinter As String

    Select Case Application.ActiveWindow.Class
           Case olInspector
                Set objItem = ActiveInspector.CurrentItem
           Case olExplorer
                Set objItem = ActiveExplorer.Selection.Item(1)
    End Select
 
    If TypeOf objItem Is MailItem Then
       Set objMail = objItem
 
       Set objWordApp = CreateObject("Word.Application")
       strTempFolder = CStr(Environ("USERPROFILE")) & "\AppData\Local\Temp"
       strMailDocument = strTempFolder & "\" & Format(Now, "yyyymmddssnn") & ".doc"
       objMail.SaveAs strMailDocument, olDoc
 
       Set objMailDocument = objWordApp.Documents.Open(strMailDocument)
       objWordApp.Visible = True
       objMailDocument.Activate
 
       strPrinter = objWordApp.ActivePrinter
       'Change to the name of specific printer
       objWordApp.ActivePrinter = "Specific Printer"
       objWordApp.PrintOut Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent
       objWordApp.ActivePrinter = strPrinter
 
       objMailDocument.Close False
       objWordApp.Quit
       Kill strMailDocument
    End If
End Sub

6. Осыдан кейін сіз ағымдағы терезені жаба аласыз.
7. Содан кейін «Файл» мәзіріне өтіп, «Опциялар» батырмасын басыңыз.
8. «Outlook параметрлері» терезесінде «Жылдам қол жетімді құралдар тақтасы» қойындысына ауысыңыз және әдеттегідей жылдам қол жеткізу тақтасына жаңа макросты қосыңыз.
9. Ақыр соңында, сіз осы VBA жобасын байқап көре аласыз.

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

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

Апатты бұзғаннан кейін Outlook қалпына келтіріңіз

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

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

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