質問編集履歴
1
ファイルパス、保存先の指定内容が分かるようにコード部分を更新しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -54,7 +54,7 @@
|
|
|
54
54
|
|
|
55
55
|
For i = 2 To MaxRow
|
|
56
56
|
|
|
57
|
-
Set m = ol.CreateItemFromTemplate("
|
|
57
|
+
Set m = ol.CreateItemFromTemplate("\●●-SV\△△\INVOICE\A_TEXT_JP\INVOICE_JP_A.oft")
|
|
58
58
|
|
|
59
59
|
m.To = Cells(i, 列.宛先).Value
|
|
60
60
|
|
|
@@ -74,7 +74,7 @@
|
|
|
74
74
|
|
|
75
75
|
|
|
76
76
|
|
|
77
|
-
m.SaveAs "
|
|
77
|
+
m.SaveAs \●●-SV\△△\INVOICE\A_TEXT_JP\作成済_Created\" & Cells(i, 列.部屋番号).Value & ".msg"
|
|
78
78
|
|
|
79
79
|
|
|
80
80
|
|