質問編集履歴

1

行いたい処理に関して追記・修正

2017/01/31 13:02

投稿

Dori
Dori

スコア6

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
- If メル表示 then
27
+ ・参考コ
22
28
 
23
- 処理1
29
+ Private Sub Application_ItemLoad(ByVal Item As Object)
24
30
 
25
- else
31
+ Dim mailItem As mailItem
26
32
 
27
- 処理2
33
+ Set mailItem = Item
28
34
 
35
+
36
+
29
- end if
37
+ If mailItem.Display() Then