質問編集履歴
1
質問文を追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -281,3 +281,103 @@
|
|
|
281
281
|
|
|
282
282
|
|
|
283
283
|
```
|
|
284
|
+
|
|
285
|
+
|
|
286
|
+
|
|
287
|
+
|
|
288
|
+
|
|
289
|
+
|
|
290
|
+
|
|
291
|
+
|
|
292
|
+
|
|
293
|
+
|
|
294
|
+
|
|
295
|
+
（2020/05/06 追記）
|
|
296
|
+
|
|
297
|
+
コメントいただいたように、VBAを編集してみたのですが、うまく実行しません…。
|
|
298
|
+
|
|
299
|
+
エクセルもすこし変更しました。
|
|
300
|
+
|
|
301
|
+
FileStorePathで指定したフォルダ内を「添付キーワード」で検索するのではなく、
|
|
302
|
+
|
|
303
|
+
FileStorePathで指定したフォルダ内のファイルをすべてメールに添付したいのですが、
|
|
304
|
+
|
|
305
|
+
さらにどこを修正したらよいでしょうか…。
|
|
306
|
+
|
|
307
|
+
|
|
308
|
+
|
|
309
|
+
③FileAttach（変更版）
|
|
310
|
+
|
|
311
|
+
```VBA
|
|
312
|
+
|
|
313
|
+
' 処理① キーワードに合致するファイルを添付する
|
|
314
|
+
|
|
315
|
+
' 処理② 1つ以上のファイルが見つかった場合、Trueを返す
|
|
316
|
+
|
|
317
|
+
Function FileAttach(attachObj As Object, keyword As String) As Boolean
|
|
318
|
+
|
|
319
|
+
|
|
320
|
+
|
|
321
|
+
Dim fileCnt As Long '★添付したファイル数をカウントする
|
|
322
|
+
|
|
323
|
+
|
|
324
|
+
|
|
325
|
+
Dim FileStorePath As String 'ファイル格納パス
|
|
326
|
+
|
|
327
|
+
FileStorePath = "C:\Outlookテスト\" & Cells(r, "D") & "先生\" & Cells(r, "E") & "\通知"
|
|
328
|
+
|
|
329
|
+
|
|
330
|
+
|
|
331
|
+
Dim FileName As String
|
|
332
|
+
|
|
333
|
+
FileName = Dir(FileStorePath & "\" & "*")
|
|
334
|
+
|
|
335
|
+
|
|
336
|
+
|
|
337
|
+
'フォルダ内のファイル数、検索を繰り返す&"
|
|
338
|
+
|
|
339
|
+
Do While FileName <> ""
|
|
340
|
+
|
|
341
|
+
|
|
342
|
+
|
|
343
|
+
'キーワードを含むファイルが見つかったら、下書きアイテムに添付する
|
|
344
|
+
|
|
345
|
+
**'↑は無し。FileStorePathに格納されているファイルすべてを送信したい。**
|
|
346
|
+
|
|
347
|
+
'If Array(FileName) > 0 Then
|
|
348
|
+
|
|
349
|
+
' attachObj.Add FileStorePath & "\" & FileName
|
|
350
|
+
|
|
351
|
+
' fileCnt = fileCnt + 1 '★添付したファイル数
|
|
352
|
+
|
|
353
|
+
'End If
|
|
354
|
+
|
|
355
|
+
|
|
356
|
+
|
|
357
|
+
FileName = Dir()
|
|
358
|
+
|
|
359
|
+
|
|
360
|
+
|
|
361
|
+
Loop
|
|
362
|
+
|
|
363
|
+
|
|
364
|
+
|
|
365
|
+
Set attachObj = Nothing
|
|
366
|
+
|
|
367
|
+
|
|
368
|
+
|
|
369
|
+
'★1以上のファイルを添付した場合Trueを返す
|
|
370
|
+
|
|
371
|
+
'（Boolean型の初期値はFalse）
|
|
372
|
+
|
|
373
|
+
If fileCnt > 0 Then FileAttach = True
|
|
374
|
+
|
|
375
|
+
|
|
376
|
+
|
|
377
|
+
End Function
|
|
378
|
+
|
|
379
|
+
|
|
380
|
+
|
|
381
|
+
```
|
|
382
|
+
|
|
383
|
+
```
|