この記事は、ショーンツァイ、データウェアハウジングの専門家やハウツーオタクの良い友人によって書かれました
あなたはあなたのOutlookのメールボックスで受信すべての添付ファイルを印刷したいことがありますか?さて、ここでPDF電子メールサービスを無料でファックスを購読してと言うと、それらが単に昔ながらのファックス機のように自動的にプリントアウトすることにしたい。
ここでは、VB(マクロ)プログラミングの少し慣れている場合ことを達成するための簡単な方法です。
私たちはここで見せることはOutlookでルールを作成し、別のサブフォルダに受信FAXのメールを移動することです。あなたがメールを開くと添付ファイルを一つずつ印刷する必要はありませんので、我々はそのサブフォルダ内のすべてのメールに対して、印刷ジョブを実行するためのマクロを作成するVBコードを使用する。
ステップ1
という名前のサブフォルダを作成する"バッチプリント^?の下で〜AC ^ A ^ AMailbox ^ Aここで、YourName〜AC ^?見通しインチ
ステップ2
このようなOutlookでルールを(メニューのツール/仕訳ルールと通知]から)作成します。
フィールドでのファックスベンダーから電子メールアドレスを配置〜AC ^ A ^ Aemail@myfaxservice.com。〜AC ^ A?件名に、(ドン〜AC ^ A ^で定期的に変更されるテキストに置く)ファックスベンダーから毎回送信される永続的なテキストを配置。 3rd フィールド〜AC ^ A ^ ABatch版画〜AC ^ A?あなただけの最初のステップで作成したサブフォルダです。
ステップ3
VBマクロを作成します。最初のツール/マクロ/ Visual Basicエディタに移動して、VBエディタを起動します。あなたは、VBのエディタではこのような表示されるはずです。
ステップ4
左側のプロジェクトウィンドウから、右側のProject1の項目をクリックし、名前のモジュールを挿入する〜AC ^ A ^ AModule1〜AC ^ A?
ステップ5
Module1が作成されると、弾丸#3に示すように、右側のウィンドウに以下のコードをコピーしてください。
Public Sub PrintAttachments() Dim Inbox As MAPIFolder Dim Item As MailItem Dim Atmt As Attachment Dim FileName As String Dim i As Integer Set Inbox = GetNamespace("MAPI").GetDefaultFolder(olFolderInbox).Parent.Folders.Item("Batch Prints") For Each Item In Inbox.Items For Each Atmt In Item.Attachments ~Ac^A^A all attachments are first saved in the temp folder C:\Temp. Be sure to create this folder. FileName = "C:\Temp\" & Atmt.FileName Atmt.SaveAsFile FileName ~Ac^A^A please change the program folder accordingly if the Acrobat Reader is not installed on drive C: Shell """C:\Program Files\Adobe\Reader 8.0\Reader\acrord32.exe"" /h /p """ + FileName + """", vbHide Next Item.Delete ~Ac^A^Aremove this line if you don~Ac^A^At want the email be deleted automatically Next Set Inbox = Nothing End Sub Acrobatをお使いのシステム上のパスに合わせて、呼び出すコード行を変更する必要があることに注意してください。
ステップ6
今すぐセットアップは完了です。 FAXのベンダーからすべての電子メールの移動先となるお〜AC ^ A ^ ABatch版画〜AC ^ A?彼らは例のように、注意してください出番時、我々はすべての添付ファイルを印刷するには、Acrobat acrord32.exeを使用するようにすべての添付ファイルはPDF形式になって期待している。
マクロの使用
今、あなたがすべての添付ファイルを印刷する場合、単純にマクロに移動してマクロPrintAttachmentsを実行し、すべての添付ファイルが順次出力されます。それを印刷した後、電子メールは削除し、ゴミ箱に移動されます。
メモ:有効なプリンタドライバがセットアップされ、選択されていることを確認する必要がありますので、プリントがデフォルトのプリンタにルーティングされます。
これは便利ですね!
0 件のコメント:
コメントを投稿