特定のプリンターを使用してOutlookの電子メールを自動印刷する方法

Outlookソリューション 2025 年 9 月 29 日

電子メールを印刷するために特定のデフォルト以外のプリンターを使用するようにOutlookを構成することはできません。ただし、この記事では、OutlookVBAでそれを実現する方法を紹介します。

お使いのコンピューターは、このコンピューター上のすべてのプログラムに適用されるデフォルトのプリンターとしてプリンターを設定している必要があります。この場合、Outlookの既定以外のプリンターを使用して電子メールを印刷する場合は、印刷するたびにプリンターを変更する必要があります。かなり面倒です。そのため、以下では、毎回プリンターを変更することなく、特定のプリンターをメールに自動使用する方法を紹介します。

特定のプリンターを使用して電子メールを自動印刷する

非常に最初に、starOutlookアプリケーション。
次に、Outlookのメインウィンドウで、「Alt + F11」キーボタンを押します。
次に、表示されている「Microsoft Visual Basic for Applications」ウィンドウで、最初に「MicrosoftWordオブジェクトライブラリ」を有効にする必要があります。rary」。あなたはそれを達成するために「ツール」>「参照」をクリックすることができます。
次に、空のモジュールにアクセスする必要があります。
続いて、次の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

その後、現在のウィンドウを閉じることができます。
次に、「ファイル」メニューに移動し、「オプション」をクリックします。
「Outlookオプション」ウィンドウで、「クイックアクセスツールバー」タブに移動し、通常どおり新しいマクロをクイックアクセスツールバーに追加します。
最終的には、このVBAプロジェクトを試すことができます。

まず、印刷するメールを選択するか開きます。
次に、クイックアクセスツールバーのマクロボタンをクリックします。
メールは特定のプリンターで一度に印刷されます。

今後、特定のプリンターでメールを印刷するには、このマクロを使用するだけです。

事故による破損後の見通しの回復

Outlookデータがlになるのをブロックするためost、あなたは多大な努力をしなければなりません。たとえば、PSTファイルを定期的にバックアップする必要があります。もちろん、次のような外部の修復ツールを入手することをお勧めします。 DataNumen Outlook Repair。それができる PSTを修正エラーが発生し、最大のOutlookデータを復元します。

著者紹介：

Shirley Zhangは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 SQLを回復すると見通し修理ソフトウェア製品。詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com