Outlook2013で送信アカウント毎に異なるBCCを自動追加する方法

Outlook2013で、送信アカウント毎に異なるBCCを自動追加するマクロを、インターネットなどで検索して見よう見まねで組み設定したところ、一応動いているのですが、仕事上で使用するとなるとかなり不安です。
コードにおかしな点や改善したほうが良い点がないかどうかアドバイスを頂きたくご質問しました。

OutlookやVBAに詳しい方がいらっしゃいましたら、ぜひアドバイスをいただけないでしょうか？

VBA
1Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
2  Dim objMe As Recipient
3
4  If Item.SendUsingAccount = "abc@outlook.com" Then
5    Set objMe = Item.Recipients.Add("abc@outlook.com")
6    objMe.Type = olBCC
7 
8  ElseIf Item.SendUsingAccount = "def@outlook.com" Then
9    Set objMe = Item.Recipients.Add("ghi@outlook.com")
10    objMe.Type = olBCC
11
12  Else
13
14  End If
15
16  
17End Sub

行動規範の内容に同意します

回答1件

ベストアンサー

＞一応動いているのですが、仕事上で使用するとなるとかなり不安です。

一応(？)動いているのに不安を感じているとのことですが、何か気になるところなどあるということでしょうか？
それとも単純にネットから拾ったコードを完全に理解しないまま運用することへの不安でしょうか？

後者であれば、十分に試験を繰り返すことや、より広く知識を収集しコードを把握することで経験値がアップし、不安の解消につながると思います。
拾ってきた誰かのコードを自分の技術としてモノにする、ということです。

ネットの情報を十分に理解せず、そのまま鵜呑みにして自分の知識と思い込むのは危険です。
この感覚を持っていることは正しいことです。
ですが、多数のサイトで同じような処理が紹介されているようであれば、一般的な手法として受け入れていいかと思います。

次の段階として、その手法を自身の環境に適用して問題がないか？という検討・検証が必要になります。

提示いただいたコードを拝見しましたが、一般的な記述方法のようですし、動作もしているとのことですので大きな問題はなさそうに見えます。

指摘するとすれば、一応Set objMe = Item.Recipients.Add(～)でオブジェクト変数をSetしていますので、使い終わったタイミングでSet objMe = Notningしてあげた方がエレガントです。
このひと手間でメモリリークなどの不安が拭われますので、セットで使うようにしましょう。

突き詰めて言ってしまえば「このアドバイスが信用できるのか？」ということにもなるのですが、参考になれば幸いです。

投稿2019/01/09 08:30

jawa

総合スコア3013

soonyan0718

2019/01/09 09:05

jawaさまお早いご回答ありがとうございました。こちらのコードですが、いくつかのサイトのコードを参考に自分で合体させたもので、合体方法がシロートの自己流であったため不安になり、質問させていただいた次第です。詳しい方のご意見をいただけてたいへん参考になりました。早速「Set objMe = Notning」を各if文の最後に追加させていただきます。実際に仕事で利用してみて検証していきたいと思います。ありがとうございました。

行動規範の内容に同意します