質問編集履歴
1
質問文を追記
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -139,4 +139,54 @@
|
|
|
139
139
|
|
|
140
140
|
End Function
|
|
141
141
|
|
|
142
|
+
```
|
|
143
|
+
|
|
144
|
+
|
|
145
|
+
|
|
146
|
+
|
|
147
|
+
|
|
148
|
+
（2020/05/06 追記）
|
|
149
|
+
コメントいただいたように、VBAを編集してみたのですが、うまく実行しません…。
|
|
150
|
+
エクセルもすこし変更しました。
|
|
151
|
+
FileStorePathで指定したフォルダ内を「添付キーワード」で検索するのではなく、
|
|
152
|
+
FileStorePathで指定したフォルダ内のファイルをすべてメールに添付したいのですが、
|
|
153
|
+
さらにどこを修正したらよいでしょうか…。
|
|
154
|
+
|
|
155
|
+
③FileAttach（変更版）
|
|
156
|
+
```VBA
|
|
157
|
+
' 処理① キーワードに合致するファイルを添付する
|
|
158
|
+
' 処理② 1つ以上のファイルが見つかった場合、Trueを返す
|
|
159
|
+
Function FileAttach(attachObj As Object, keyword As String) As Boolean
|
|
160
|
+
|
|
161
|
+
Dim fileCnt As Long '★添付したファイル数をカウントする
|
|
162
|
+
|
|
163
|
+
Dim FileStorePath As String 'ファイル格納パス
|
|
164
|
+
FileStorePath = "C:\Outlookテスト\" & Cells(r, "D") & "先生\" & Cells(r, "E") & "\通知"
|
|
165
|
+
|
|
166
|
+
Dim FileName As String
|
|
167
|
+
FileName = Dir(FileStorePath & "\" & "*")
|
|
168
|
+
|
|
169
|
+
'フォルダ内のファイル数、検索を繰り返す&"
|
|
170
|
+
Do While FileName <> ""
|
|
171
|
+
|
|
172
|
+
'キーワードを含むファイルが見つかったら、下書きアイテムに添付する
|
|
173
|
+
**'↑は無し。FileStorePathに格納されているファイルすべてを送信したい。**
|
|
174
|
+
'If Array(FileName) > 0 Then
|
|
175
|
+
' attachObj.Add FileStorePath & "\" & FileName
|
|
176
|
+
' fileCnt = fileCnt + 1 '★添付したファイル数
|
|
177
|
+
'End If
|
|
178
|
+
|
|
179
|
+
FileName = Dir()
|
|
180
|
+
|
|
181
|
+
Loop
|
|
182
|
+
|
|
183
|
+
Set attachObj = Nothing
|
|
184
|
+
|
|
185
|
+
'★1以上のファイルを添付した場合Trueを返す
|
|
186
|
+
'（Boolean型の初期値はFalse）
|
|
187
|
+
If fileCnt > 0 Then FileAttach = True
|
|
188
|
+
|
|
189
|
+
End Function
|
|
190
|
+
|
|
191
|
+
```
|
|
142
192
|
```
|