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に変更できます。

未分類

Posted by admin