メールに添付したファイルを消す必要があるのかを知りたいです。

Question

分からないこと

下記プログラムは、ある学習サイトを参考に簡単に作成したものです。
（有料サイトで会員の方しか閲覧できないため、URLは記載しておりません。）
9行目の.Attachments(1).deleteをしなければ、
Outlookアプリの指定された保存場所に添付ファイルが残ってしまうままなのでしょうか？
目的は、Outlookアプリの保存容量削減のためです。

宜しくお願いいたします。

該当のソースコード

sub a()
  strAttachZipPath = "C:\ccc.zip"
  With CreateObject("Outlook.Application").CreateItem(0)
        .To = "[e-mail]"
        .Subject = "AAAA"
        .Body = "BBBBBB"
        .Attachments.Add strAttachZipPath
        .Send
        .Attachments(1).delete
    End With
    Kill strAttachZipPath
end sub

Comments

[ikedas]

そのサイトの該当ページのURL を明記してください (このコメント欄に書くのではありません。質問文を編集して書いてください)。

Answer 1

必要かどうかは目的次第です。「～～～～という目的のために必要か？」という質問でないと意味を為しません。
「メールを送るために必要か？」であれば、メールを送った後の話なので、必要無いに決まっています。削除しても削除しなくても送付先には影響しません。
「メール送付後、送信済みフォルダーに入った送ったメールから、添付ファイルを削除したいという目的のために必要か？」であれば、削除したいのだから必要に決まっています。
「メール送付後、送信済みフォルダーに入った送ったメールを送った時のまま残しておきたいという目的のために必要か？」であれば、削除しちゃ駄目です。
「メール送付後、そのメールを手元に残したくない。消えて欲しいという目的のために必要か？」であれば、添付ファイルの削除だけでは不十分で、.Attachments(1).deleteじゃなくて.deleteでメール全体を削除でしょうか。
（Microsoft製品は排他制御がおかしいことがあるので、変なエラーになるかも知れませんが）

Comments

[rokku]

ご回答ありがとうございます。
質問が分かりづらくて申し訳ございません。
質問を編集致しましたので、お手数お掛けして申し訳ございませんが、
再度ご確認のほど宜しくお願いいたします。

Answer 2

必要かどうかは運用側の問題では？
VBAでコントロールできるメーラーは限られているので実効性は高くないと思います

Answer 3

ソースコードの一部しか書いておらず、申し訳ございません。
ループ処理をしており、添付ファイルを削除しないと、
次のメールを送信する時に前にメールした時に添付したファイルがくっついてしまうことが分かりました。
次に質問する時は、質問内容に気を付けて、質問するように致します。
今後とも宜しくお願いいたします。

Comments

[otn]

ループ処理部分が書かれてませんが、毎回CreateItemで新規にメールを作っているのであればそんなことにはならないはずです。
CreateItemを一度しかせずに1つのメールをループで使い回しているなら、添付ファイルの追加などの変更は累積していくのでしょうね。

[rokku]

ご回答ありがとうございます。

＞毎回CreateItemで新規にメールを作っているのであればそんなことにはならないはずです。
→　おっしゃる通りで上記の方法で試してみたところ、
　　前回送信した添付ファイルが追加されずに送信することができました。
　　otnさんのおかげで新しい視点を発見することができました。ありがとうざいます。

＞CreateItemを一度しかせずに1つのメールをループで使い回しているなら、
→　おっしゃる通りで１度のみ、CreateItemを行っておりました。

Answer 4

ソースコードの一部しか書いておらず、申し訳ございません。
ループ処理をしており、添付ファイルを削除しないと、
次のメールを送信する時に前にメールした時に添付したファイルが
くっついてしまうことが分かりました。
次に質問する時は、質問内容に気を付けて、質問するように致します。

今後とも宜しくお願いいたします。