マイクロソフトアウトルックの件名内容を特定フォルダにメモ帳貼付したい。【エクセルVBA】

C:\Users\zzzzzz\savemail.vbs(14,5) Microsoft Office Outlook: 操作は失敗しました。オブジェクトが見つかりませんでした。

14行目というと、以下の行ですよね。

    Set mail_folder = inbox.Folders("自分の出品必要")

inbox が正しく取得できてないようなので、その前の行の

    Set inbox = namespace.GetDefaultFolder(6)   ' InBox

の戻り値が、きちんと取れてないっぽいです。
これ、「受信トレイ」のフォルダを取得してるんですが、最初からあるフォルダですよね？
13～14行目の間に、以下の行を追加すると、コマンドプロンプトになんて表示されますか？

    Set inbox = namespace.GetDefaultFolder(6)   ' InBox
    wscript.echo inbox.Name 
    Set mail_folder = inbox.Folders("自分の出品必要")

inbox が正しく取れてると「受信トレイ」と表示されるはずで、inbox が取得できてないと、コメントにあったようなエラーが表示されるはずです。

あ、.pst ファイルでしたね。

    Set inbox = namespace.GetDefaultFolder(6)   ' InBox
    Set mail_folder = inbox.Folders("自分の出品必要")

の部分を、以下のように変えるとどうでしょうか。

    Set personal = namespace.Folders("個人用フォルダ")  ' 個人用フォルダ
    Set inbox = personal.Folders("受信トレイ")          ' 受信トレイ
    Set mail_folder = inbox.Folders("自分の出品必要")

「フォルダ」とか「トレイ」は、半角のカナの可能性もありますので、適宜変えてください。

質問の画像を見直してみたら、微妙にフォルダ名を間違えてました。

    Set personal = namespace.Folders("個人用フォルダ")  ' 個人用フォルダ
    Set inbox = personal.Folders("受信トレイ")          ' 受信トレイ
    Set mail_folder = inbox.Folders("自分出品必要")     ' 「の」を消しました

「自分の出品必要」の「の」を削ってやってみてください。

あ、そうでしたか。
Outlook2010 ですが、以下のような階層の .pst ファイルを作って試した感じでは、正しく抽出できているのですがねえ。

ググってみると、Outlook2003 で同じやり方で .pst ファイルに逃がしたメールをたどっていく VBA はあるので、2007 でも問題ないと思うんですけどね。
http://stackoverflow.com/questions/8041842/loop-through-psts-in-outlook-2003-with-vba
http://windowssecrets.com/forums/showthread.php/108644-Using-VBA-to-move-a-message-to-a-PST-file-%28Outlook-2003%29

一応、.pst ファイルにある方のフォルダをたどっていくスクリプトの全体を載せておきます。

base_dir = "C:\Users\zzzzzz\Desktop\PC移動受け\写真(現在)\"

Sub save_mail

    Set re = New RegExp
    re.Pattern = "^(\d{6})\d{3}"

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set outlook = WScript.CreateObject("Outlook.Application")

    Set namespace = outlook.GetNamespace("MAPI")
    
    Set personal = namespace.Folders("個人用フォルダ")  ' 個人用フォルダ
    Set inbox = personal.Folders("受信トレイ")          ' 受信トレイ
    Set mail_folder = inbox.Folders("自分出品必要")
    
    
    For i = 1 To mail_folder.Items.Count
        Set mail = mail_folder.Items(i)
        Set ma = re.Execute(mail.Subject)
        If ma.Count > 0 Then
            folder = ma(0).SubMatches(0)
            file = mail.Subject
            If Not fs.FolderExists(base_dir & folder) Then
                fs.CreateFolder(base_dir & folder)
                fs.CreateFolder(base_dir & folder & "\楽天")
            End If
            If Not fs.FileExists(base_dir & folder & "\楽天\" & file & ".txt") Then
                Set f = fs.CreateTextFile(base_dir & folder & "\楽天\" & file & ".txt", True)
                f.Write(mail.Body)
                f.Close
            Else
                wscript.echo "File already exists. " & file
            End If
        Else
            wscript.echo "Bad title. " & mail.Subject
        End If
    Next

'   outlook.Quit        ' Outlook を終了させる
    Set outlook = Nothing
    Set fs = Nothing

End Sub

うーん、もやもやします　(´・ω・｀)