質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.53%

  • VBA

    2257questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

OutlookVBAのメール表示について

受付中

回答 2

投稿 編集

  • 評価
  • クリップ 0
  • VIEW 3,016

Dori

score 2

Outlookにて、
『Outlook上でメールを開く操作をした時に、メールの件名を判断して、メール本文をExcelファイルに保存を行う』
ような処理を入れたいと考えています。

mailitem.Displayでメールの表示はできたのですが、
下記のような、If文に組み込むと 『functionまたは変数が必要です』と、表示されてエラーとなります。

メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできたのですが、
『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。

If文にDisplayを組み込むことはできるのでしょうか?
教えていただけますと幸いです。

・参考コード
Private Sub Application_ItemLoad(ByVal Item As Object)
Dim mailItem As mailItem
Set mailItem = Item

If mailItem.Display() Then

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

質問への追記・修正、ベストアンサー選択の依頼

  • takito

    2017/01/31 16:24

    `If メール表示 then` の部分は何を判断させたくてそう書いたのでしょうか?表示そのものの成功/失敗でしょうか?

    キャンセル

  • hsk

    2017/01/31 16:50

    具体的な回答を得たいのでしたら、(機密情報は伏せてから)具体的なコードを載せる必要があります。

    キャンセル

  • Dori

    2017/01/31 21:44

    tatikoさん、hskさん ご指摘ありがとうございます。もう少し具体的な質問にすべく、追記いたします。

    キャンセル

回答 2

+3

(コメントの補足をいただいて)

『Outlook上でメールを開く操作をした時に』
の個所は次のようなコードで実現できると思います。

Private WithEvents g_mailItem As mailItem ''(1)

Private Sub g_mailItem_Open(Cancel As Boolean) ''(2)
    MsgBox g_mailItem.Subject   '' サンプル:件名をメッセージボックスで表示
End Sub

Private Sub Application_ItemLoad(ByVal Item As Object) ''(3)
    Dim mailItem As mailItem

    If TypeOf Item Is mailItem Then  ''(4)
        Set g_mailItem = Item
    End If
End Sub

あからじめ、MailItem型のグローバル変数を用意して(1)、MailItem.Openイベントを定義しておきます(2)。

そしてApplicationオブジェクトの(Application.ItemLoad)[https://msdn.microsoft.com/ja-jp/library/office/ff868544.aspx]イベントを定義します(3)。メールや予定表などのアイテムひとつを読み込むときに呼び出されるイベントです。対象が仮引数Itemに入っています。このItemの内容がMailItemである場合(4)には、これを(1)で用意してある変数にセットします。すると、開いたときに(2)のイベントが呼び出されます。メールメッセージは(4)でMailItem型のグローバル変数に入れてありますので、これを参照して件名を判断したり、エクセルファイルに保存したりできます。


もしかして

Private Sub Application_ItemLoad(ByVal Item As Object)
    Dim mailItem As mailItem
    Set mailItem = Item

    If mailItem.Display() Then

    Else

    End If

End Sub

のようにしているのでしょうか?

mailitem.Display() は戻り値がないメソッドですので、If 文には判断のしようがないのでしょう。

「特定のメール」「何らかの処理」が、具体的に何なのかを書いていただければ、具体的な回答が得られると思います。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/01/31 21:57 編集

    別回答者様への返信と重複してしまい恐縮です。

    やりたいことは、
    『Outlook上でメールを開く操作をした時に、メールの件名を判断して、メール本文をExcelファイルに保存を行いたい』になります。
    メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできたのですが、
    『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。
    コードに関してはまさしく、hskさんが記述いただいた通りでございます。

    戻り値がないことを理解しました。
    If文で対応できないということですが、
    もし、ほかに方法があれば教えて頂きたく。

    キャンセル

  • 2017/02/01 09:06

    なるほど、了解しました。
    回答を編集しましたので、ご覧頂ければと思います。

    キャンセル

0

やりたいことがイマイチ掴みきれません。
・マクロを実行したときにメールを開き、そのメールの内容によって続けて何らかの処理をしたい?
・Outlook上でメールを受信した時に、メールの内容を判断して何らかの処理を行いたい?
・Outlook上でメールを開く操作をした時に、メールの内容を判断して何らかの処理を行いたい?

もう少しやりたいことを具体的に書いていただけると助かります。
また、既に作成されたというコードと今回やりたいことの関連性についても補足いただけると助かります。

回答をうけて追記

OutlookVBAには触れたことがなく、また手元にOutlook環境がないので、自分からは一般論的な見解でアドバイスさせていただきますm(__)m

>『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。
ということですが、これはhskさんからも回答があるとおりメールを開いたときに発生するイベント内で処理を記述すればよいと思います。


今回の主な質問は
>If文にDisplayを組み込むことはできるのでしょうか? 
というものでしたが、メールを開いたときに発生するイベント内で処理するということは、メールを開く操作はすでに行っているということになります。
プログラム側からmailItem.Displayで開いてあげる必要はなさそうな気がします。
(すみません、ここらへん動作環境がないため推測で言っています。)


判定したい内容は「メールの件名」であって、Display関数の結果ではないですよね。

今回の行いたい処理
>メールの件名を判断して、メール本文をExcelファイルに保存を行いたい
をそのままコードに書くと、

If メールの件名判断 = True Then
    '処理対象の件名の場合
    Excelに出力する関数
End If


となります。

>メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできた
ということですので、これを上記の流れに乗せてあげればよさそうです。

頑張ってみてください。

投稿

編集

  • 回答の評価を上げる

    以下のような回答は評価を上げましょう

    • 正しい回答
    • わかりやすい回答
    • ためになる回答

    評価が高い回答ほどページの上位に表示されます。

  • 回答の評価を下げる

    下記のような回答は推奨されていません。

    • 間違っている回答
    • 質問の回答になっていない投稿
    • スパムや攻撃的な表現を用いた投稿

    評価を下げる際はその理由を明確に伝え、適切な回答に修正してもらいましょう。

  • 2017/01/31 21:54

    やりたいことは、
    『Outlook上でメールを開く操作をした時に、メールの件名を判断して、メール本文をExcelファイルに保存を行いたい』になります。
    メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできたのですが、
    『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。
    コードに関してはまさしく、hskさんが記述いただいた通りでございます。

    キャンセル

同じタグがついた質問を見る

  • VBA

    2257questions

    VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。