Outlook添付のTIFFファイルを自動印刷するマクロ

なかなか回答がつかないようですので、 以下、見様見真似の恥ずかしいコードで恐縮ですが、 とりあえずご参考までに。 動作の概要 当該メールのすべての添付ファイルを、 指定された一時フォルダに保存し、 (サンプルではC:\Documents and Settings\User_Name\デスクトップ\temp) 関連付けられたアプリケーションで印刷する Private Declare Function ShellExecute Lib "SHELL32.dll" _ Alias "ShellExecuteA" _ (ByVal hWnd As Long, _ ByVal lpOperation As String, _ ByVal lpFile As String, _ ByVal lpParameters As String, _ ByVal lpDirectory As String, _