質問編集履歴
2
質問内容の変更
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,17 +1,9 @@
|
|
1
1
|
### 分からないこと
|
2
2
|
下記プログラムは、ある学習サイトを参考に簡単に作成したものです。
|
3
|
-
9行目で、メールに添付したファイルを削除しています。
|
4
|
-
|
3
|
+
(有料サイトで会員の方しか閲覧できないため、URLは記載しておりません。)
|
5
|
-
9行目の記述は必要でしょうか?
|
6
|
-
|
4
|
+
9行目の.Attachments(1).deleteをしなければ、
|
7
|
-
|
5
|
+
Outlookアプリの指定された保存場所に添付ファイルが残ってしまうままなのでしょうか?
|
8
|
-
それを削除しているものと考えています。
|
9
|
-
Outlookアプリの保存容量削減のため
|
6
|
+
目的は、Outlookアプリの保存容量削減のためです。
|
10
|
-
9行目の記述は必要なのかと考えております。)
|
11
|
-
|
12
|
-
また、メールに添付したファイルはどこに保存されるのでしょうか?
|
13
|
-
メーラーは、Outlook2016を使用しております。
|
14
|
-
(実際にdeleteメソッドの動きを確認したいためです。)
|
15
7
|
|
16
8
|
宜しくお願いいたします。
|
17
9
|
|
1
Killメソッドの追加
test
CHANGED
File without changes
|
test
CHANGED
@@ -1,18 +1,32 @@
|
|
1
1
|
### 分からないこと
|
2
|
+
下記プログラムは、ある学習サイトを参考に簡単に作成したものです。
|
2
|
-
|
3
|
+
9行目で、メールに添付したファイルを削除しています。
|
4
|
+
11行目で圧縮したzipフフォルダを削除しているため、9行目の記述の必要性を感じません。
|
3
|
-
|
5
|
+
9行目の記述は必要でしょうか?
|
6
|
+
(9行目のDeleteメソッドが必要なのかを知りたいです。
|
7
|
+
おそらくOutlookアプリで指定された場所に添付ファイル保存し、
|
8
|
+
それを削除しているものと考えています。
|
9
|
+
Outlookアプリの保存容量削減のために必要だとすれば、
|
10
|
+
9行目の記述は必要なのかと考えております。)
|
11
|
+
|
4
|
-
また、メールに添付したファイルはどこに保存されるのでしょうか?
|
12
|
+
また、メールに添付したファイルはどこに保存されるのでしょうか?
|
13
|
+
メーラーは、Outlook2016を使用しております。
|
14
|
+
(実際にdeleteメソッドの動きを確認したいためです。)
|
15
|
+
|
16
|
+
宜しくお願いいたします。
|
5
17
|
|
6
18
|
### 該当のソースコード
|
7
19
|
```VBA
|
8
20
|
sub a()
|
21
|
+
strAttachZipPath = "C:\ccc.zip"
|
9
22
|
With CreateObject("Outlook.Application").CreateItem(0)
|
10
23
|
.To = "hogepiyo@fugafuga.com"
|
11
24
|
.Subject = "AAAA"
|
12
25
|
.Body = "BBBBBB"
|
13
|
-
.Attachments.Add
|
26
|
+
.Attachments.Add strAttachZipPath
|
14
27
|
.Send
|
15
28
|
.Attachments(1).delete
|
16
29
|
End With
|
30
|
+
Kill strAttachZipPath
|
17
31
|
end sub
|
18
32
|
```
|