回答編集履歴
1
削除された添付ファイルリストに上書きしたMSGファイル名を追加
test
CHANGED
|
@@ -52,7 +52,7 @@
|
|
|
52
52
|
|
|
53
53
|
|
|
54
54
|
|
|
55
|
-
Dup = "削除された添付ファイル,MSG
|
|
55
|
+
Dup = "削除された添付ファイル,削除されたMSG,上書きしたMSG" & vbCrLf '2021/07/22 @Nonomura 重複メッセージ
|
|
56
56
|
|
|
57
57
|
list = "MSGファイル,添付ファイル" & vbCrLf
|
|
58
58
|
|
|
@@ -200,7 +200,7 @@
|
|
|
200
200
|
|
|
201
201
|
If .FileExists(fn) = True Then
|
|
202
202
|
|
|
203
|
-
Dup = Dup & atc.FileName & "," & Mydic(atc.FileName) & vbCrLf '2021/07/22 @Nonomura
|
|
203
|
+
Dup = Dup & atc.FileName & "," & Mydic(atc.FileName) & "," & .getFileName(MsgFilePath) & vbCrLf '2021/07/22 @Nonomura
|
|
204
204
|
|
|
205
205
|
If Mydic.Exists(atc.FileName) = True Then '2021/07/22 @Nonomura
|
|
206
206
|
|
|
@@ -248,8 +248,6 @@
|
|
|
248
248
|
|
|
249
249
|
AddPathSeparator = s
|
|
250
250
|
|
|
251
|
-
End Function
|
|
251
|
+
End Function
|
|
252
|
-
|
|
253
|
-
コード
|
|
254
252
|
|
|
255
253
|
```
|