回答編集履歴

4

てにをはなど修正

2017/02/01 00:08

投稿

hsk
hsk

スコア728

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

3

てにをは等

2017/02/01 00:08

投稿

hsk
hsk

スコア728

test CHANGED
File without changes

2

コメントの補足を受けて

2017/02/01 00:07

投稿

hsk
hsk

スコア728

test CHANGED
@@ -1,3 +1,57 @@
1
+ (コメントの補足をいただいて)
2
+
3
+ > 『Outlook上でメールを開く操作をした時に』
4
+
5
+ の個所は次のようなコードで実現できると思います。
6
+
7
+
8
+
9
+ ```VBA
10
+
11
+ Private WithEvents g_mailItem As mailItem ''(1)
12
+
13
+
14
+
15
+ Private Sub g_mailItem_Open(Cancel As Boolean) ''(2)
16
+
17
+ MsgBox g_mailItem.Subject '' サンプル:件名をメッセージボックスで表示
18
+
19
+ End Sub
20
+
21
+
22
+
23
+ Private Sub Application_ItemLoad(ByVal Item As Object) ''(3)
24
+
25
+ Dim mailItem As mailItem
26
+
27
+
28
+
29
+ If TypeOf Item Is mailItem Then ''(4)
30
+
31
+ Set g_mailItem = Item
32
+
33
+ End If
34
+
35
+ End Sub
36
+
37
+
38
+
39
+ ```
40
+
41
+
42
+
43
+ あからじめ、MailItem型のグローバル変数を用意して(1)、[MailItem.Open](https://msdn.microsoft.com/ja-jp/library/office/ff865989.aspx)イベントを定義しておきます(2)。
44
+
45
+
46
+
47
+ そして[Application](https://msdn.microsoft.com/ja-jp/library/office/ff866895.aspx)オブジェクトの(Application.ItemLoad)[https://msdn.microsoft.com/ja-jp/library/office/ff868544.aspx]イベントを定義します(3)。メールや予定表などのアイテムひとつを読み込むときに呼び出されるイベントです。対象が仮引数Itemに入っています。このItemの内容がMailItemである場合(4)には、これを(1)で用意してある変数にセットします。すると、開いたときに(2)のイベントが呼び出されます。メールメッセージは(3)でMailItem型のグローバル変数に入っていますので、ここで件名を判断したり、エクセルファイルに保存したりできます。
48
+
49
+
50
+
51
+ ---
52
+
53
+
54
+
1
55
  もしかして
2
56
 
3
57
 

1

補足

2017/02/01 00:06

投稿

hsk
hsk

スコア728

test CHANGED
@@ -37,3 +37,7 @@
37
37
 
38
38
 
39
39
  mailitem.Display() は戻り値がないメソッドですので、If 文には判断のしようがないのでしょう。
40
+
41
+
42
+
43
+ 「特定のメール」「何らかの処理」が、具体的に何なのかを書いていただければ、具体的な回答が得られると思います。