Nu puteți configura Outlook să utilizeze o anumită imprimantă care nu este implicită pentru a imprima e-mailuri. Dar în acest articol, vă vom arăta o metodă pentru a o realiza cu Outlook VBA.
Computerul dvs. trebuie să aibă setat o imprimantă ca implicită, care va fi aplicată tuturor programelor de pe acest computer. În acest caz, dacă doriți să imprimați e-mailuri printr-o imprimantă care nu este implicită în Outlook, trebuie să schimbați imprimanta de fiecare dată când imprimați. Este destul de supărător. Prin urmare, în cele ce urmează, vă vom împărtăși un mijloc de a utiliza automat o anumită imprimantă pentru e-mailuri fără a fi nevoie să schimbați imprimanta de fiecare dată.
Utilizați automat o anumită imprimantă pentru a imprima e-mailuri
- Chiar de la început, porniți aplicația Outlook.
- Apoi, în fereastra principală Outlook, apăsați butoanele tastei „Alt + F11”.
- Apoi, în fereastra „Microsoft Visual Basic for Applications” care se afișează, trebuie mai întâi să activați „Microsoft Word object Library”. Puteți face clic pe „Tools” > „Reference” pentru a face acest lucru.
- Apoi, trebuie să accesați un modul gol.
- Ulterior, copiați și inserați următorul cod VBA în acest modul.
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
- După aceea, puteți închide fereastra curentă.
- Apoi, accesați meniul „Fișier” și faceți clic pe „Opțiuni”.
- În fereastra „Opțiuni Outlook”, treceți la fila „Bară de instrumente Acces rapid” și adăugați noua macrocomandă în Bara de instrumente Acces rapid, ca de obicei.
- În cele din urmă, puteți încerca acest proiect VBA.
- În primul rând, selectați sau deschideți un e-mail pe care doriți să-l imprimați.
- Apoi, faceți clic pe butonul macro din Bara de instrumente Acces rapid.
- E-mailul va fi imprimat de către imprimanta specifică imediat.
- De acum înainte, pentru a imprima e-mailuri cu o anumită imprimantă, puteți utiliza doar această macrocomandă.
Recuperați Outlook după o corupție accidentală
Pentru a împiedica pierderea datelor Outlook, trebuie să depuneți eforturi considerabile. De exemplu, ar trebui să faceți copii de rezervă ale fișierului PST în mod regulat. Desigur, este recomandat să obțineți un instrument extern de reparare, cum ar fi DataNumen Outlook Repair. Poate reparați PST erori și restaurați maximum de date Outlook pentru dvs.
Introducerea autorului:
Shirley Zhang este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv recupera sql și produse software de reparații Outlook. Pentru mai multe informații vizitați www.datanumen.com