回答編集履歴
4
Test_Sample_Miniature
test
CHANGED
|
@@ -10,7 +10,7 @@
|
|
|
10
10
|
|
|
11
11
|
```ここに言語を入力
|
|
12
12
|
|
|
13
|
-
Sub
|
|
13
|
+
Sub Test_Sample_Miniature()
|
|
14
14
|
|
|
15
15
|
Dim Outlook As New Outlook.Application
|
|
16
16
|
|
3
変更
test
CHANGED
|
@@ -44,7 +44,7 @@
|
|
|
44
44
|
|
|
45
45
|
ご参照されたページは動作環境の記載が全くありませんので、公開された方の環境で動いているだけで、他のPC上でそのまま動く様には見えません。
|
|
46
46
|
|
|
47
|
-
下記ページ
|
|
47
|
+
下記ページが参考になるかと思います。
|
|
48
48
|
|
|
49
49
|
[https://docs.microsoft.com/ja-jp/office/vba/api/outlook.namespace.getdefaultfolder](https://docs.microsoft.com/ja-jp/office/vba/api/outlook.namespace.getdefaultfolder)
|
|
50
50
|
|
2
追記
test
CHANGED
|
@@ -2,7 +2,9 @@
|
|
|
2
2
|
|
|
3
3
|
初めの参照設定にはOutlook 15.0 Objectがありませんので、OutlookVBAからExcelへ書き込むのではなく、Excel(又はWord)VBAからOutlookを起動してその内容をExcelへ書き込みたいと言う御趣旨ではないですか。
|
|
4
4
|
|
|
5
|
-
ExcelVBAからであれば下記を貼り付けて動かして見て下さい。
|
|
5
|
+
ExcelVBAからであれば下記を貼り付けて動かして見て下さい。
|
|
6
|
+
|
|
7
|
+
デフォルトアカウントの受信フォルダーのBodyデータ取得ができると思います。
|
|
6
8
|
|
|
7
9
|
(Outlook 12.0 Object Libraryでは動きました)
|
|
8
10
|
|
1
文書変更
test
CHANGED
|
@@ -42,7 +42,7 @@
|
|
|
42
42
|
|
|
43
43
|
ご参照されたページは動作環境の記載が全くありませんので、公開された方の環境で動いているだけで、他のPC上でそのまま動く様には見えません。
|
|
44
44
|
|
|
45
|
-
下記ページ
|
|
45
|
+
下記ページを参考にしました。
|
|
46
46
|
|
|
47
47
|
[https://docs.microsoft.com/ja-jp/office/vba/api/outlook.namespace.getdefaultfolder](https://docs.microsoft.com/ja-jp/office/vba/api/outlook.namespace.getdefaultfolder)
|
|
48
48
|
|