OutlookでPDF添付ファイルを一括印刷

この記事は、データウェアハウスの専門家でHow-To Geekの親友であるSean Tsaiによって書かれました。

OutlookのEメールボックスに入っているすべての添付ファイルを印刷したいと思ったことはありますか？無料のファックスからPDFへのEメールサービスを購読していて、昔ながらのファックス機のようにそれらを自動的にプリントアウトしたいとしましょう。.

ちょっとしたVB（マクロ）プログラミングに慣れていればこれを達成するための簡単な方法はここにあります.

ここで示しているのは、Outlookでルールを作成し、受信したファックスEメールを別のサブフォルダーに移動することです。 VBコードを使用して、そのサブフォルダー内のすべてのEメールに対して印刷ジョブを実行するためのマクロを作成するので、Eメールを開いて添付ファイルを1つずつ印刷する必要はありません。.

ステップ1

Outlookの[メールボックス - YourName]の下に[バッチプリント]という名前のサブフォルダを作成します。.

ステップ2

このようなOutlookで（メニューツール/ルールと警告から）ルールを作成します。

ファックスベンダーのEメールアドレスを「[email protected]」フィールドに入力してください。件名に、毎回FAXベンダから送信される永続的なテキストを配置します（定期的に変更されるテキストには入れないでください）。その3^第二「バッチプリント」フィールドは、最初のステップで作成したばかりのサブフォルダーです。.

ステップ3

VBマクロを作成します。まずTools / Macro / Visual Basic Editorに移動してVBエディタを起動します。 VBエディタはこのように見えるはずです。

ステップ4

左側のプロジェクトウィンドウからProject1項目を右クリックし、Module1という名前のモジュールを挿入します。

ステップ5

Module1が作成されたら、箇条書き3に示すように右側のウィンドウに以下のコードをコピーします。.

パブリックSub PrintAttachments（）MAPIFolderとしてのDim受信トレイ添付ファイルとしてのDim AtmtとしてのDim FileName整数としてのDim i受信セット= GetNamespace（ "MAPI"）GetDefaultFolder（olFolderInbox）.Parent.Folders.Item（ "バッチ印刷" ）受信トレイの各アイテムの場合Item.Attachmentsの各アイテムの場合は、最初にすべての添付ファイルが一時フォルダC：\ Tempに保存されます。必ずこのフォルダを作成してください。 FileName = "C：\ Temp \"＆Atmt.FileName Atmt.SaveAsFile FileName 'Acrobat ReaderがCドライブにインストールされていない場合は、プログラムフォルダを適宜変更してください。シェル "" C：\ Program Files \ Adobe \ Reader 8.0 \ Reader \ acrord32.exe "" / h / p "" "+ FileName +" "" "、vbHide Next Item.Delete 'メールを自動的に削除したくない場合は、この行を削除してください。Next Set Inbox = Nothing End Sub

システム上のパスと一致するようにAcrobatを呼び出すコード行を変更する必要があるかもしれないことに注意してください。.

ステップ6

これでセットアップは完了です。ファックスベンダからのすべてのEメールは、入ってきたときにあなたの "Batch Prints"に移動されます。この例では、すべての添付ファイルがPDF形式であると想定しています。.

マクロを使う

今、あなたがすべての添付ファイルを印刷したいときは、単にマクロに行き、マクロPrintAttachmentsを実行すると、すべての添付ファイルが順番に印刷されます。印刷された電子メールは削除され、ゴミ箱に移動されます.

注意：プリントはデフォルトプリンタに転送されるので、有効なプリンタドライバがセットアップされ選択されていることを確認する必要があります。.

これが役に立つことを願っています!