質問編集履歴
1
行いたい処理に関して追記・修正
title
CHANGED
File without changes
|
body
CHANGED
@@ -1,15 +1,19 @@
|
|
1
|
-
Outlookにて
|
1
|
+
Outlookにて、
|
2
|
+
『Outlook上でメールを開く操作をした時に、メールの件名を判断して、メール本文をExcelファイルに保存を行う』
|
2
|
-
|
3
|
+
ような処理を入れたいと考えています。
|
3
4
|
|
4
5
|
mailitem.Displayでメールの表示はできたのですが、
|
5
|
-
下記のような、If文に組み込むと 『functionまたは変数が必要です』と、
|
6
|
+
下記のような、If文に組み込むと 『functionまたは変数が必要です』と、表示されてエラーとなります。
|
6
|
-
表示されてエラーとなります。
|
7
7
|
|
8
|
+
メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできたのですが、
|
9
|
+
『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。
|
10
|
+
|
8
11
|
If文にDisplayを組み込むことはできるのでしょうか?
|
9
12
|
教えていただけますと幸いです。
|
10
13
|
|
14
|
+
・参考コード
|
15
|
+
Private Sub Application_ItemLoad(ByVal Item As Object)
|
16
|
+
Dim mailItem As mailItem
|
17
|
+
Set mailItem = Item
|
18
|
+
|
11
|
-
If
|
19
|
+
If mailItem.Display() Then
|
12
|
-
処理1
|
13
|
-
else
|
14
|
-
処理2
|
15
|
-
end if
|