Outlook имэйлийг хэвлэхийн тулд тусгай принтерийг хэрхэн автоматаар ашиглах вэ

Та Outlook-г имэйл хэвлэхийн тулд тусгай зориулалтын бус хэвлэгч ашиглахаар тохируулах боломжгүй. Гэхдээ энэ нийтлэлд бид Outlook VBA-ийн тусламжтайгаар үүнийг хийх аргыг танд үзүүлэх болно.

Таны компьютер принтерийг анхдагчаар тохируулсан байх ёстой бөгөөд энэ нь энэ компьютер дээрх бүх программуудад хэрэглэгдэх болно. Энэ тохиолдолд, хэрэв та Outlook дээр өгөгдмөл бус хэвлэгчээр дамжуулан имэйл хэвлэхийг хүсвэл хэвлэх бүрт хэвлэгчээ солих хэрэгтэй. Энэ нь нэлээд төвөгтэй юм. Тиймээс, бид танд принтерээ байнга солих шаардлагагүйгээр цахим шуудангаар тодорхой хэвлэгчийг автоматаар ашиглах аргыг танд хэлэх болно.

Имэйл хэвлэхийн тулд тусгай принтерийг автоматаар ашиглах

1. Хамгийн эхэнд Outlook програмаа ажиллуулна уу.
2. Дараа нь Outlook-ийн үндсэн цонхонд "Alt + F11" товчийг дарна уу.
3. Дараа нь, гарч ирэх “Microsoft Visual Basic for Applications” цонхонд та эхлээд “Microsoft Word object Library”-г идэвхжүүлэх хэрэгтэй. Үүнийг хийхийн тулд 'Tools' > “Reference” дээр дарна уу.
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" цонхны "Quick Access Toolbar" таб руу шилжиж, шинэ макрог ердийнхөөрөө Quick Access Toolbar-д нэмнэ үү.
9. Эцсийн эцэст та энэ VBA төслийг туршиж үзэх боломжтой.

• Эхлээд хэвлэхийг хүсэж буй имэйлээ сонгох буюу нээнэ үү.
• Дараа нь Quick Access Toolbar дээрх макро товчлуур дээр дарна уу.
• Имэйлийг тодорхой хэвлэгчээр нэг дор хэвлэнэ.

10. Одооноос эхлэн имэйлийг тодорхой принтерээр хэвлэхийн тулд та энэ макро ашиглах боломжтой.

Авлигын ослын дараах төлөв байдлыг сэргээх

Outlook өгөгдлөө алдахаас сэргийлэхийн тулд та маш их хүчин чармайлт гаргах хэрэгтэй. Жишээлбэл, та PST файлаа тогтмол нөөцлөх хэрэгтэй. Мэдээж хэрэг, гадны засварлах хэрэгсэл авахыг зөвлөж байна, жишээ нь DataNumen Outlook RepairБайна. Ингэж чаддаг PST засах алдаа гаргаж, хамгийн их Outlook өгөгдлийг сэргээх.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. sql сэргээх програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com