Tietyn tulostimen automaattinen käyttäminen Outlook-sähköpostien tulostamiseen

Et voi määrittää Outlookia käyttämään tiettyä muuta kuin oletustulostinta sähköpostien tulostamiseen. Mutta tässä artikkelissa näytämme sinulle tavan saavuttaa se Outlook VBA:lla.

Tietokoneessasi on oltava oletustulostin, jota käytetään kaikissa tämän tietokoneen ohjelmissa. Tässä tapauksessa, jos haluat tulostaa sähköpostit Outlookin muun kuin oletustulostimen kautta, sinun on vaihdettava tulostin joka kerta, kun tulostat. Se on melko hankalaa. Siksi seuraavassa jaamme sinulle tavan käyttää tiettyä tulostinta automaattisesti sähköpostien lähettämiseen ilman, että tulostinta tarvitsee vaihtaa joka kerta.

Käytä automaattisesti tiettyä tulostinta sähköpostien tulostamiseen

1. Käynnistä Outlook-sovelluksesi aivan aluksi.
2. Paina sitten Outlookin pääikkunassa ”Alt + F11” -näppäimiä.
3. Seuraavaksi avautuvassa ”Microsoft Visual Basic for Applications” -ikkunassa sinun on ensin otettava käyttöön ”Microsoft Word -objektikirjasto”. Voit tehdä sen napsauttamalla ”Työkalut” > ”Viite”.
4. Sitten sinun on käytettävä tyhjää moduulia.
5. Kopioi ja liitä seuraava VBA-koodi tähän moduuliin.

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. Tämän jälkeen voit sulkea nykyisen ikkunan.
7. Siirry sitten "File" -valikkoon ja napsauta "Options".
8. Siirry "Outlook-asetukset" -ikkunassa "Pikatyökalupalkki"-välilehdelle ja lisää uusi makro Quick Access Toolbariin tavalliseen tapaan.
9. Lopulta voit kokeilla tätä VBA-projektia.

• Valitse tai avaa ensin sähköposti, jonka haluat tulostaa.
• Napsauta sitten pikakäynnistystyökalurivin makropainiketta.
• Tietty tulostin tulostaa sähköpostin kerralla.

10. Tästä eteenpäin voit tulostaa sähköpostit tietyllä tulostimella käyttämällä tätä makroa.

Palauta Outlook onnettomuuskorruption jälkeen

Jotta estäisit Outlook-tietojesi katoamisen, sinun on nähtävä paljon vaivaa. Esimerkiksi sinun tulisi varmuuskopioida PST-tiedostosi säännöllisesti. Tietenkin on suositeltavaa hankkia ulkoinen korjaustyökalu, kuten DataNumen Outlook Repair. Se voi korjaa PST virheitä ja palauttaa maksimi Outlook-tiedot puolestasi.

Tekijän esittely:

Shirley Zhang on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien palauttaa sql ja Outlookin korjausohjelmistotuotteet. Lisätietoja osoitteessa www.datanumen.com