Outlookで常に自分をBCCに入れる方法(複数アカウント編)
久しぶりの投稿です。備忘録を兼ねて投稿します。
こちらのリンクで、Outlookで常に自分をBCCに入れる方法が紹介されているのですが、私のOutlookでは複数アカウントを使い分けている為、BCCに一意のアドレスしか指定できないとなると不都合でした(例:アカウントBで送信したいのにアカウントAがBCCに追加される)。
そこで、マクロを少し変更することで対応できることが判明しました。
変更前
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add("example@example.domain")
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub
変更後
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim objMe As Recipient
Set objMe = Item.Recipients.Add(Item.SendUsingAccount)
objMe.Type = olBCC
objMe.Resolve
Set objMe = Nothing
End Sub
このように「Item.SendUsingAccount」とすることで、送信元アドレスが指定できます。
ちなみに、olBCCをolCCに変更するとBCCからCCに変更できます。
ディスカッション
コメント一覧
まだ、コメントがありません