Siz Outlook-ni elektron pochta xabarlarini chop etish uchun maxsus standart bo'lmagan printerdan foydalanishga sozlay olmaysiz. Ammo ushbu maqolada biz sizga Outlook VBA bilan erishish usulini ko'rsatamiz.
Sizning kompyuteringiz printerni standart sifatida o'rnatgan bo'lishi kerak, u ushbu kompyuterdagi barcha dasturlarga qo'llaniladi. Bunday holda, agar siz Outlook-da standart bo'lmagan printer orqali elektron pochta xabarlarini chop qilmoqchi bo'lsangiz, har safar chop etishda printerni o'zgartirishingiz kerak. Bu juda muammoli. Shuning uchun, quyida biz sizga har safar printerni o'zgartirmasdan elektron pochta xabarlari uchun ma'lum bir printerdan avtomatik foydalanish vositalarini baham ko'ramiz.
Elektron pochta xabarlarini chop etish uchun maxsus printerdan avtomatik foydalanish
- Eng boshidanoq, Outlook ilovangizni ishga tushiring.
- Keyin, asosiy Outlook oynasida "Alt + F11" tugmachalarini bosing.
- Keyin, paydo bo'lgan "Microsoft Visual Basic for Applications" oynasida avval "Microsoft Word obyekt kutubxonasi"ni yoqishingiz kerak. Buni amalga oshirish uchun "Asboblar" > "Ma'lumotnoma" ni bosishingiz mumkin.
- Keyin bo'sh modulga kirishingiz kerak.
- Keyinchalik, ushbu modulga quyidagi VBA kodini nusxa ko'chiring va joylashtiring.
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
- Shundan so'ng siz joriy oynani yopishingiz mumkin.
- Keyin "Fayl" menyusiga o'ting va "Options" ni bosing.
- "Outlook Options" oynasida "Tez kirish asboblar paneli" yorlig'iga o'ting va odatdagidek tez kirish asboblar paneliga yangi makrosni qo'shing.
- Oxir-oqibat, siz ushbu VBA loyihasini sinab ko'rishingiz mumkin.
- Birinchidan, chop qilmoqchi bo'lgan elektron pochtani tanlang yoki oching.
- Keyin, Tez kirish asboblar panelidagi makros tugmasini bosing.
- Elektron pochta bir vaqtning o'zida maxsus printer tomonidan chop etiladi.
- Bundan buyon ma'lum bir printerda elektron pochta xabarlarini chop etish uchun siz ushbu makrosdan foydalanishingiz mumkin.
Baxtsiz hodisalar korruptsiyasidan keyin Outlookni tiklang
Outlook ma'lumotlaringiz yo'qolishining oldini olish uchun siz katta kuch sarflashingiz kerak. Masalan, siz PST faylingizning zaxira nusxasini muntazam ravishda yaratishingiz kerak. Albatta, tashqi ta'mirlash vositasini olish tavsiya etiladi, masalan DataNumen Outlook Repair. U qila oladi PST ni tuzatish xatolar va siz uchun maksimal Outlook ma'lumotlarini tiklang.
Muallif kirish:
Shirli Chjan ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc sql-ni tiklash va Outlook ta'mirlash dasturiy mahsulotlar. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com