回答編集履歴
2
ソース修正
answer
CHANGED
|
@@ -31,6 +31,7 @@
|
|
|
31
31
|
Set appWord = CreateObject("Word.Application")
|
|
32
32
|
Set appOlook = CreateObject("Outlook.Application")
|
|
33
33
|
|
|
34
|
+
i = 1
|
|
34
35
|
fname = Dir(EXPORT_FOLDER & "*.msg")
|
|
35
36
|
Do While fname <> ""
|
|
36
37
|
' 一時ファイルのファイル名の作成
|
|
@@ -48,6 +49,7 @@
|
|
|
48
49
|
docRTF.Close
|
|
49
50
|
Set docRTF = Nothing
|
|
50
51
|
|
|
52
|
+
i = i + 1
|
|
51
53
|
fname = Dir()
|
|
52
54
|
Loop
|
|
53
55
|
|
1
誤字
answer
CHANGED
|
@@ -7,7 +7,7 @@
|
|
|
7
7
|
Set appOlook = CreateObject("Outlook.Application")
|
|
8
8
|
Set objMail = appOlook.CreateItemFromTemplate(msgファイルフルパス)
|
|
9
9
|
```
|
|
10
|
-
とりあえずC:\作業中\tempを読込対象のディレクトリして、
|
|
10
|
+
とりあえずC:\作業中\tempを読込対象のディレクトリとして、
|
|
11
11
|
全てのmsgファイルを変換するならこんな感じでしょうか。
|
|
12
12
|
```VBA
|
|
13
13
|
Option Explicit
|