excel のマクロで他のアプリケーションを使うには

Question

１）excel2013でOutlook内容を見るマクロを書くにはどうすればよいですか？

２）この様な質問のヘルプをするには？(以前は検索窓があったが今はない）

Answer 1

http://www.ken3.org/cgi-bin/group/vba_outlook_Mail.asp

ここの

「メールを読む」の

Sub OL_TEST_LOOK_MAIL_0221()

    Dim oApp As Object        'OutlookのApplication オブジェクトを入れる

    Dim myNameSpace As Object '名前のスペースと言われても、、

    Dim myFolder As Object    'フォルダー指定

    'outlook 起動をCreateObjectで ※これだと複数起動してしまうがご勘弁を

    Set oApp = CreateObject("Outlook.Application")

    '呪文１ 名前空間 の 指定 と言っても、.GetNamespace("MAPI")しただけ

    Set myNameSpace = oApp.GetNamespace("MAPI")

    '次は作業フォルダーの指定(.GetDefaultFolder) と 表示(.Display)

    Set myFolder = myNameSpace.GetDefaultFolder(6) '規定のフォルダー olFolderInbox=6 指定

    myFolder.Display  '表示 いつものクセで .Visible = True とやりがちだけど

    '次にメールの中身を取り出したいと思います。

    Dim objMAILITEM As Object 'メールアイテム

    Dim n As Integer  'カウンター

    For n = 1 To myFolder.Items.Count  'フォルダーのアイテム数分ループ

        'メールを１通取り出す、変数にセットする

        Set objMAILITEM = myFolder.Items(n) '別にあらためてセットしなくても使えるけど

        'テストデータをセルにセットする※11行目からセットする。。。

        Cells(n + 10, "A") = objMAILITEM.CreationTime  '作成日

        Cells(n + 10, "B") = objMAILITEM.SenderName    '差出人

        Cells(n + 10, "C") = objMAILITEM.SenderEmailAddress    '差出人のアドレス

        Cells(n + 10, "D") = objMAILITEM.Subject       '件名

        Cells(n + 10, "E") = objMAILITEM.Body          '本文

    Next n

End Sub

を試してみたら取り込むことが出来ました。

ただし、本文のサイズが大きいとメモリ不足エラーになりました。

Answer 2

BANSUI さん、TETUO さん、いつもアドバイスありがとうございます。

くろちゃんとしろちゃん さん、こんにちは。

複数の質問をまとめて投稿することは避け、質問には常にひとつの回答が対応するような書き込みをお願いします。

今回の投稿には、個別に回答を求める複数の質問が含まれています。

この質問では 「Excel 2013 で Outlook の内容を見るマクロの書き方」 のやり取りのみとしてください。

タイトルや投稿文の変更は「編集」から行えます。

「マクロのヘルプの検索窓がなくヘルプが見れない」 については、このスレッドとは別に新しく投稿してください。

Answer 3

TETUO様

有難うございます。

お知らせいただいたURLをざっと見てみると、まさに私が欲しかった内容のようです。

詳細はこれからやってみますが、とりあえず御礼申し上げます。

くろちゃんとしろちゃん

Answer 4

BANSUI様

早速の回答をありがとうございます。

回答に会ったURLを見てみたのですが、私の疑問は全く解決しませんでした。上記のURLでは、「２０１３でマクロをつかうには」が書かれているようですが、私は既にマクロを使用しています。私の質問は「マクロで他のアプリケーションを処理する方法（ExcelでOutlookのメール内容を整理する）について」です。

また、この様な疑問を以前はマクロのヘルプから見れましたが現在は検索窓がなく見れないのです。

これらの件についてお分かりでしたら、教えてください。

Answer 5

下記サイトは如何。

http://www.relief.jp/itnote/archives/018317.php