質問編集履歴
1
エラー発生箇所を追記しました。
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -137,3 +137,25 @@
|
|
|
137
137
|
|
|
138
138
|
|
|
139
139
|
```
|
|
140
|
+
|
|
141
|
+
|
|
142
|
+
|
|
143
|
+
<補足> 情報不足ですみませんでした。追記いたします。
|
|
144
|
+
|
|
145
|
+
```VBA
|
|
146
|
+
|
|
147
|
+
Dim attached As String
|
|
148
|
+
|
|
149
|
+
Dim myattachments As Outlook.Attachments 'Outlookで使用するオブジェクト生成
|
|
150
|
+
|
|
151
|
+
Set myattachments = mailItemObj.Attachments
|
|
152
|
+
|
|
153
|
+
attached = Cells(33, "H").Value '添付ファイル
|
|
154
|
+
|
|
155
|
+
'↑ここで処理がとまり、エラーが発生します。
|
|
156
|
+
|
|
157
|
+
|
|
158
|
+
|
|
159
|
+
myattachments.Add attached
|
|
160
|
+
|
|
161
|
+
```
|