Outlook'u, e-postaları yazdırmak için varsayılan olmayan belirli bir yazıcı kullanacak şekilde yapılandıramazsınız. Ancak bu yazıda size Outlook VBA ile bunu başarmanın bir yöntemini göstereceğiz.
Bilgisayarınız, bu bilgisayardaki tüm programlara uygulanacak olan bir yazıcıyı varsayılan olarak ayarlamış olmalıdır. Bu durumda, e-postaları Outlook'ta varsayılan olmayan bir yazıcı aracılığıyla yazdırmak istiyorsanız, her yazdırırken yazıcıyı değiştirmeniz gerekir. Oldukça zahmetlidir. Bu nedenle, aşağıda, her seferinde yazıcıyı değiştirmeye gerek kalmadan e-postalar için belirli bir yazıcıyı otomatik olarak kullanmanın bir yolunu paylaşacağız.
E-postaları Yazdırmak İçin Belirli Bir Yazıcıyı Otomatik Olarak Kullanın
- Öncelikle Outlook uygulamanızı başlatın.
- Ardından, ana Outlook penceresinde “Alt + F11” tuş düğmelerine basın.
- Ardından, görüntülenen "Microsoft Visual Basic for Applications" penceresinde öncelikle "Microsoft Word nesne kitaplığı"nı etkinleştirmeniz gerekir. Bunu yapmak için "Araçlar" > "Referans" seçeneğine tıklayabilirsiniz.
- Ardından, boş bir modüle erişmeniz gerekir.
- Ardından, aşağıdaki VBA kodunu kopyalayıp bu modüle yapıştırın.
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
- Bundan sonra mevcut pencereyi kapatabilirsiniz.
- Ardından, “Dosya” menüsüne gidin ve “Seçenekler” e tıklayın.
- "Outlook Seçenekleri" penceresinde, "Hızlı Erişim Araç Çubuğu" sekmesine geçin ve yeni makroyu her zamanki gibi Hızlı Erişim Araç Çubuğuna ekleyin.
- Sonunda, bu VBA projesini deneyebilirsiniz.
- Öncelikle, yazdırmak istediğiniz bir e-postayı seçin veya açın.
- Ardından, Hızlı Erişim Araç Çubuğundaki makro düğmesine tıklayın.
- E-posta, ilgili yazıcı tarafından hemen yazdırılacaktır.
- Artık e-postaları belirli bir yazıcıya göre yazdırmak için bu makroyu kullanabilirsiniz.
Kaza Bozulmasından Sonra Outlook'u Kurtarın
Outlook verilerinizin kaybolmasını önlemek için büyük çaba sarf etmeniz gerekiyor. Örneğin, PST dosyanızı düzenli olarak yedeklemeniz şart. Elbette, harici bir onarım aracı edinmeniz de önerilir, örneğin... DataNumen Outlook Repair. Bu olabilir PST'yi düzelt hatalar ve sizin için maksimum Outlook verilerini geri yükleyin.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql'yi kurtar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com