teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

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

2017/01/31 13:02

投稿

Dori
Dori

スコア6

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 メール表示 then
19
+ If mailItem.Display() Then
12
- 処理1
13
- else
14
- 処理2
15
- end if