Nie można skonfigurować programu Outlook do używania określonej drukarki innej niż domyślna do drukowania wiadomości e-mail. Ale w tym artykule pokażemy metodę osiągnięcia tego za pomocą programu Outlook VBA.
Twój komputer musi mieć ustawioną drukarkę jako domyślną, która zostanie zastosowana do wszystkich programów na tym komputerze. W takim przypadku, jeśli chcesz drukować wiadomości e-mail za pomocą drukarki innej niż domyślna w programie Outlook, musisz zmieniać drukarkę za każdym razem podczas drukowania. Jest to dość kłopotliwe. Dlatego w dalszej części udostępnimy sposób automatycznego używania określonej drukarki do wysyłania wiadomości e-mail bez konieczności każdorazowej zmiany drukarki.
Automatyczne użycie określonej drukarki do drukowania wiadomości e-mail
- Na samym początku uruchom aplikację Outlook.
- Następnie w głównym oknie Outlooka wciśnij klawisze „Alt + F11”.
- Następnie, w wyświetlonym oknie „Microsoft Visual Basic for Applications” należy najpierw włączyć „Bibliotekę obiektów Microsoft Word”. Aby to zrobić, kliknij „Narzędzia” > „Odniesienia”.
- Następnie musisz uzyskać dostęp do pustego modułu.
- Następnie skopiuj i wklej następujący kod VBA do tego modułu.
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
- Następnie możesz zamknąć bieżące okno.
- Następnie przejdź do menu „Plik” i kliknij „Opcje”.
- W oknie „Opcje programu Outlook” przejdź do zakładki „Pasek narzędzi szybkiego dostępu” i jak zwykle dodaj nowe makro do paska narzędzi szybkiego dostępu.
- W końcu możesz wypróbować ten projekt VBA.
- Najpierw wybierz lub otwórz wiadomość e-mail, którą chcesz wydrukować.
- Następnie kliknij przycisk makra na pasku narzędzi szybkiego dostępu.
- Wiadomość e-mail zostanie natychmiast wydrukowana przez określoną drukarkę.
- Od teraz, aby drukować wiadomości e-mail na określonej drukarce, możesz po prostu używać tego makra.
Odzyskaj program Outlook po awarii spowodowanej wypadkiem
Aby zapobiec utracie danych w Outlooku, należy dołożyć wszelkich starań. Na przykład, należy regularnie tworzyć kopię zapasową pliku PST. Oczywiście zaleca się skorzystanie z zewnętrznego narzędzia do naprawy, takiego jak DataNumen Outlook Repair. To może naprawić PST błędy i przywrócić maksymalną ilość danych programu Outlook dla Ciebie.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym odzyskać sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com