Kā automātiski izmantot noteiktu printeri, lai drukātu Outlook e-pastus

Jūs nevarat konfigurēt programmu Outlook izmantot īpašu printeri, kas nav noklusējums, lai drukātu e-pastus. Bet šajā rakstā mēs parādīsim metodi, kā to sasniegt, izmantojot Outlook VBA.

Jūsu datorā kā noklusējuma printerim jābūt iestatītam printerim, kas tiks lietots visām šī datora programmām. Šajā gadījumā, ja vēlaties drukāt e-pastus, izmantojot programmu Outlook, kas nav noklusējuma printeris, drukājot, printeris ir jāmaina katru reizi. Tas ir diezgan apgrūtinoši. Tāpēc turpmāk mēs jums pastāstīsim par līdzekli, kā automātiski izmantot konkrētu printeri e-pastiem, katru reizi nemainot printeri.

Automātiski izmantojiet īpašu printeri, lai drukātu e-pastus

1. Pašā sākumā palaidiet savu Outlook lietojumprogrammu.
2. Pēc tam galvenajā Outlook logā nospiediet taustiņu pogas “Alt + F11”.
3. Pēc tam logā “Microsoft Visual Basic for Applications” vispirms ir jāiespējo “Microsoft Word objektu bibliotēka”. Lai to izdarītu, varat noklikšķināt uz “Rīki” > “Atsauce”.
4. Pēc tam jums ir jāpiekļūst tukšam modulim.
5. Pēc tam šajā modulī nokopējiet un ielīmējiet šādu VBA kodu.

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. Pēc tam jūs varat aizvērt pašreizējo logu.
7. Pēc tam dodieties uz izvēlni Fails un noklikšķiniet uz Opcijas.
8. Logā “Outlook opcijas” pārejiet uz cilni “Ātrās piekļuves rīkjosla” un kā parasti pievienojiet jauno makro ātrās piekļuves rīkjoslai.
9. Galu galā jūs varat izmēģināt šo VBA projektu.

• Pirmkārt, atlasiet vai atveriet e-pastu, kuru vēlaties izdrukāt.
• Pēc tam ātrās piekļuves rīkjoslā noklikšķiniet uz makro pogas.
• E-pastu uzreiz izdrukās konkrētais printeris.

10. Turpmāk, lai drukātu e-pastus ar konkrētu printeri, varat vienkārši izmantot šo makro.

Atgūt Outlook pēc negadījumu korupcijas

Lai novērstu Outlook datu zudumu, jums ir jāpieliek lielas pūles. Piemēram, jums regulāri jādublē PST fails. Protams, ieteicams iegādāties ārēju labošanas rīku, piemēram, DataNumen Outlook Repair. Tā var noteikt PST kļūdas un atjaunotu maksimālo Outlook datu apjomu.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar