როგორ გამოვიყენოთ ავტომატური სპეციფიკური პრინტერი Outlook ელფოსტის დასაბეჭდად

თქვენ არ შეგიძლიათ Outlook-ის კონფიგურაცია, რათა გამოიყენოს კონკრეტული არანაგულისხმევი პრინტერი ელფოსტის დასაბეჭდად. მაგრამ ამ სტატიაში ჩვენ გაჩვენებთ მეთოდს, რათა მიაღწიოთ მას Outlook VBA-ით.

თქვენს კომპიუტერს უნდა ჰქონდეს პრინტერი ნაგულისხმევად დაყენებული, რომელიც გამოყენებული იქნება ამ კომპიუტერის ყველა პროგრამაზე. ამ შემთხვევაში, თუ გსურთ წერილების დაბეჭდვა Outlook-ში ნაგულისხმევი პრინტერის მეშვეობით, თქვენ უნდა შეცვალოთ პრინტერი ყოველ ჯერზე დაბეჭდვისას. საკმაოდ პრობლემურია. ამიტომ, შემდეგში, ჩვენ გაგიზიარებთ საშუალებას, რომ ავტომატურად გამოიყენოთ კონკრეტული პრინტერი ელფოსტისთვის, ყოველ ჯერზე პრინტერის შეცვლის საჭიროების გარეშე.

ავტომატური გამოყენება კონკრეტული პრინტერი ელ.ფოსტის დასაბეჭდად

1. დასაწყისისთვის, გაუშვით თქვენი Outlook აპლიკაცია.
2. შემდეგ, Outlook-ის მთავარ ფანჯარაში დააჭირეთ ღილაკს "Alt + F11".
3. შემდეგ, გამოჩენილ ფანჯარაში „Microsoft Visual Basic for Applications“ ჯერ უნდა ჩართოთ „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 Options" ფანჯარაში გადადით "სწრაფი წვდომის ხელსაწყოთა ზოლზე" ჩანართზე და დაამატეთ ახალი მაკრო სწრაფი წვდომის ხელსაწყოთა ზოლში, როგორც ყოველთვის.
9. საბოლოოდ, შეგიძლიათ სცადოთ ეს VBA პროექტი.

• პირველ რიგში, აირჩიეთ ან გახსენით ელფოსტა, რომლის დაბეჭდვაც გსურთ.
• შემდეგ დააწკაპუნეთ მაკრო ღილაკზე სწრაფი წვდომის ინსტრუმენტთა პანელში.
• ელ.წერილი ერთდროულად დაიბეჭდება კონკრეტული პრინტერის მიერ.

10. ამიერიდან, კონკრეტული პრინტერით წერილების დასაბეჭდად, შეგიძლიათ უბრალოდ გამოიყენოთ ეს მაკრო.

აღადგინეთ მსოფლმხედველობა ავარიის კორუფციის შემდეგ

თქვენი Outlook მონაცემების დაკარგვის თავიდან ასაცილებლად, დიდი ძალისხმევა უნდა გაწიოთ. მაგალითად, რეგულარულად უნდა შექმნათ თქვენი PST ფაილის სარეზერვო ასლი. რა თქმა უნდა, რეკომენდებულია გარე აღდგენის ინსტრუმენტის შეძენა, მაგალითად DataNumen Outlook Repair. Მას შეუძლია შეასწორეთ PST შეცდომები და აღადგინეთ მაქსიმალური Outlook მონაცემები თქვენთვის.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის sql-ის აღდგენა და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად