質問編集履歴
1
行いたい処理に関して追記・修正
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,14 +1,20 @@
|
|
1
|
-
Outlookにて
|
1
|
+
Outlookにて、
|
2
2
|
|
3
|
+
『Outlook上でメールを開く操作をした時に、メールの件名を判断して、メール本文をExcelファイルに保存を行う』
|
4
|
+
|
3
|
-
|
5
|
+
ような処理を入れたいと考えています。
|
4
6
|
|
5
7
|
|
6
8
|
|
7
9
|
mailitem.Displayでメールの表示はできたのですが、
|
8
10
|
|
9
|
-
下記のような、If文に組み込むと 『functionまたは変数が必要です』と、
|
11
|
+
下記のような、If文に組み込むと 『functionまたは変数が必要です』と、表示されてエラーとなります。
|
10
12
|
|
13
|
+
|
14
|
+
|
15
|
+
メールの件名を判断する箇所、メール本文をExcelファイルに保存をする箇所まではできたのですが、
|
16
|
+
|
11
|
-
|
17
|
+
『Outlook上でメールを開く操作をした時に』という箇所ができませんでした。
|
12
18
|
|
13
19
|
|
14
20
|
|
@@ -18,12 +24,14 @@
|
|
18
24
|
|
19
25
|
|
20
26
|
|
21
|
-
|
27
|
+
・参考コード
|
22
28
|
|
23
|
-
|
29
|
+
Private Sub Application_ItemLoad(ByVal Item As Object)
|
24
30
|
|
25
|
-
el
|
31
|
+
Dim mailItem As mailItem
|
26
32
|
|
27
|
-
|
33
|
+
Set mailItem = Item
|
28
34
|
|
35
|
+
|
36
|
+
|
29
|
-
en
|
37
|
+
If mailItem.Display() Then
|