Outlook 2010でのメール送信時、添付されたファイルのパスを取得したい。

Question

Outlook 2010 VBAでApplication_ItemSendイベントの際に、添付ファイルが特定の形式である事をマジックナンバーで確かめる為、元ファイルのフルパスを取りたいと思っているのですが、AttachmentのDisplayName、Filenameではファイルの名前しか取得出来ず、Pathnameだと空文字（あるいはNull? 型を確かめていなかった……）が返ってきてしまいます。

MailItem_AttachmentAddイベント時であればGetTemporaryFilePathから完全なパスを取得出来るのですが、これでしか取得出来ないとなると、保存していた未送信メールを送信する時などのケースに対応できません。

今は手元にテスト環境がないので試せてないのですが、おそらくGetTemporaryFilePathが使えるイベントを鑑みるに、

Private g_Path$

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
  Dim WithEvents sendMail As MailItem
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Set sendMail = Item
  For Each x In Item.Attachments
    x.SaveAsFile FSO.GetSpecialFolder(TemporaryFolder) & "\" & FSO.GetTempName
    Call 特定の形式である事を確かめる関数(g_path)
  Next
End Sub

Private Sub sendMail_BeforeAttachmentSave(ByVal Attachment As Attachment, Cancel As Boolean)
    g_Path = Attachment.GetTemporaryFilePath
    Cancel = True
End Sub

という形でパスを取得して、自前の関数で処理するという目的が果たせるようになるのではないかと思っています。
ただこの方法は成功したとしても迂遠な手順を踏むことになります。

もっと直接的なアプローチで、フルパスもしくは元ファイルそのもの（コピー含む）を取得出来る方法をご存じの方がいらっしゃいましたらお教え願えれば幸いと思い、この質問を投稿します。

Answer 1

OSによる（VistaとかWindows7とか８とか１０）で未送信の一時保存先は、
C:\Users\アカウント名\AppData\Local\Microsoft\Windows\Temporary Internet Files\Content.Outlook
だと記憶しているけど。
普通の方法では直接アクセスできなかった気がする。（管理者権限の関係だったと記憶）
なのでセキュリティー上、VBAからアクセスできたかどうか。。。

Answer 2

BeforeAttachmentSaveイベントはAttachment.SaveAsFileでは起きず（MSDNに明記されていた……)、Attachment.PropertyAccessorからLong_PathNameを取りに行ってみるなどの方法を試してみましたが上手くいかず、以下の方法で取得する事になりました。

Set FSO = CreateObject("Scripting.FileSystemObject")
Path$ = FSO.GetSpecialFolder(TemporaryFolder) & "\" & FSO.GetTempName
Call Attachment.SaveAsFile(Path)
Call 特定の形式である事を確かめる関数(Path)

最初に想定していたよりも、さらに迂遠な方法なので落胆しています。

調べる過程で集めた情報から推測するに、メール送信時の添付ファイルは必ずしも添付された当時の元ファイルとは限らないと（あるいは実際に出来るかどうかを問わず）想定されており、添付されてから何らかの編集が加えられた後で送信される（もしくは元ファイルの改変から保護する）可能性が考慮されているようです。

そういった事情を鑑みると、送信直前に出力しないと同一性が保証できないという形は納得の出来るものであり、決して無駄に重い処理を挟んでいるわけではないのだと自分に言い聞かせながらマクロを完成させたいと思います。