Bạn không thể định cấu hình Outlook để sử dụng máy in không phải mặc định cụ thể để in email. Nhưng trong bài viết này, chúng tôi sẽ chỉ cho bạn một phương pháp để đạt được điều đó với Outlook VBA.
Máy tính của bạn phải đặt máy in làm máy in mặc định, tính năng này sẽ được áp dụng cho tất cả các chương trình trên máy tính này. Trong trường hợp này, nếu bạn muốn in email qua máy in không phải mặc định trong Outlook, bạn phải thay đổi máy in mỗi khi in. Nó khá rắc rối. Do đó, trong phần tiếp theo, chúng tôi sẽ chia sẻ cho bạn một phương tiện để tự động sử dụng một máy in cụ thể cho email mà không cần phải thay đổi máy in mỗi lần.
Tự động sử dụng một máy in cụ thể để in email
- Ngay từ đầu, hãy mở ứng dụng Outlook của bạn.
- Sau đó, trong cửa sổ Outlook chính, nhấn các nút phím “Alt + F11”.
- Tiếp theo, trong cửa sổ “Microsoft Visual Basic for Applications” đang hiển thị, trước tiên bạn cần kích hoạt “Microsoft Word object Library”. Bạn có thể nhấp vào “Tools” > “Reference” để thực hiện việc này.
- Sau đó, bạn cần truy cập vào một mô-đun trống.
- Sau đó, sao chép và dán mã VBA sau vào mô-đun này.
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
- Sau đó, bạn có thể đóng cửa sổ hiện tại.
- Sau đó, vào menu "Tệp" và nhấp vào "Tùy chọn".
- Trong cửa sổ “Tùy chọn Outlook”, hãy chuyển sang tab “Thanh công cụ truy cập nhanh” và thêm macro mới vào Thanh công cụ truy cập nhanh như bình thường.
- Cuối cùng, bạn có thể thử dự án VBA này.
- Đầu tiên, chọn hoặc mở một email mà bạn muốn in.
- Sau đó, nhấp vào nút macro trong Thanh công cụ truy cập nhanh.
- Email sẽ được in ra bởi máy in cụ thể cùng một lúc.
- Từ giờ trở đi, để in email bằng máy in cụ thể, bạn chỉ cần sử dụng macro này.
Khôi phục Outlook sau sự cố tham nhũng
Để ngăn ngừa việc mất dữ liệu Outlook, bạn cần phải nỗ lực rất nhiều. Ví dụ, bạn nên sao lưu tệp PST của mình thường xuyên. Tất nhiên, việc sử dụng một công cụ sửa chữa bên ngoài, như..., cũng được khuyến khích. DataNumen Outlook Repair. Nó có thể sửa PST lỗi và khôi phục dữ liệu Outlook tối đa cho bạn.
Giới thiệu tác giả:
Shirley Zhang là một chuyên gia phục hồi dữ liệu trong DataNumen, Inc., công ty hàng đầu thế giới về công nghệ khôi phục dữ liệu, bao gồm phục hồi sql và các sản phẩm phần mềm sửa chữa triển vọng. Để biết thêm thông tin, hãy truy cập www.datanumennăm