質問編集履歴
6
タイトルにUiPathを追加
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
VB.NETでMicrosoft Outlookのmsg形式ファイルを読み込みたい
|
1
|
+
UiPath内のVB.NETでMicrosoft Outlookのmsg形式ファイルを読み込みたい
|
test
CHANGED
File without changes
|
5
タイトル修正
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
|
1
|
+
VB.NETでMicrosoft Outlookのmsg形式ファイルを読み込みたい
|
test
CHANGED
File without changes
|
4
ソースコードを動作テストした内容と同期。
test
CHANGED
File without changes
|
test
CHANGED
@@ -32,7 +32,7 @@
|
|
32
32
|
|
33
33
|
```vb
|
34
34
|
|
35
|
-
Dim app As Microsoft.Office.Interop.Outlook.Application
|
35
|
+
Dim app As Microsoft.Office.Interop.Outlook.Application
|
36
36
|
|
37
37
|
Dim obj As Object
|
38
38
|
|
3
ソースコード修正/Outlook.mailItem ⇒ Outlook.MailItem
test
CHANGED
File without changes
|
test
CHANGED
@@ -36,7 +36,7 @@
|
|
36
36
|
|
37
37
|
Dim obj As Object
|
38
38
|
|
39
|
-
Dim mailItem As Microsoft.Office.Interop.Outlook.
|
39
|
+
Dim mailItem As Microsoft.Office.Interop.Outlook.MailItem
|
40
40
|
|
41
41
|
|
42
42
|
|
@@ -50,7 +50,7 @@
|
|
50
50
|
|
51
51
|
|
52
52
|
|
53
|
-
mailItem = CType(obj, Microsoft.Office.Interop.Outlook.
|
53
|
+
mailItem = CType(obj, Microsoft.Office.Interop.Outlook.MailItem)
|
54
54
|
|
55
55
|
```
|
56
56
|
|
2
実現したいことの詳細化
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
VB.NETでMicrosoft Outlookのmsg形式ファイルを読み込みたい
|
1
|
+
,VB.NETでMicrosoft Outlookのmsg形式ファイルを読み込みたい
|
test
CHANGED
@@ -2,7 +2,7 @@
|
|
2
2
|
|
3
3
|
|
4
4
|
|
5
|
-
VB.NETを使用して、Microsoft Office 365 Outlookが出力した.msg形式のファイルを読み込みたいのですが、以下のコードを実行すると、例外が発生してしまいます。
|
5
|
+
VB.NETを使用して、Microsoft Office 365 Outlookが出力した.msg形式のファイルを読み込み、本文のHTMLを抽出したいのですが、以下のコードを実行すると、例外が発生してしまいます。
|
6
6
|
|
7
7
|
|
8
8
|
|
1
ソースコードの訂正
test
CHANGED
@@ -1 +1 @@
|
|
1
|
-
VB.NETでOutlookのmsg形式ファイルを読み込みたい
|
1
|
+
VB.NETでMicrosoft Outlookのmsg形式ファイルを読み込みたい
|
test
CHANGED
@@ -34,6 +34,12 @@
|
|
34
34
|
|
35
35
|
Dim app As Microsoft.Office.Interop.Outlook.Application
|
36
36
|
|
37
|
+
Dim obj As Object
|
38
|
+
|
39
|
+
Dim mailItem As Microsoft.Office.Interop.Outlook.mailItem
|
40
|
+
|
41
|
+
|
42
|
+
|
37
43
|
app = New Microsoft.Office.Interop.Outlook.Application()
|
38
44
|
|
39
45
|
|