BCCを送信したメールボックスに自動的に送信

Question

Outlook上に既存のメールボックスを使用しているユーザーが複数います。メールボックスから送信するすべての人は、自分の個人メールボックスに「送信済みアイテム」を受信します。私はルールを見てきましたが、送信されたアイテムがグループメールボックスの送信アイテムに表示されるようなものは見つかりませんでした。

次のコードがありますが、なぜ実行されていないのか分かりません。

Private Sub Application_ItemSend(ByVal Item As Object, _ 
          Cancel As Boolean) 
Dim objRecip As Recipient 
Dim strMsg As String 
Dim res As Integer 
Dim strBcc As String 
On Error Resume Next 

strBcc = "<mailboxname>" 

If Item.SendUsingAccount = "<mailboxname>" Then 

Set objRecip = Item.Recipients.Add(strBcc) 
objRecip.Type = olBCC 

'Set variable objRecip (recipient) = Item.Recipients.Add (strBcc) 
If Not objRecip.Resolve Then 
    strMsg = "Could not resolve the Bcc recipient. " & _ 
      "Do you want to send the message?" 
    res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _ 
      "Could Not Resolve Bcc") 
    If res = vbNo Then 
     Cancel = True 
    End If 
End If 

End If 

Set objRecip = Nothing 
End Sub 

Answer 1

次の操作を実行する必要があるメールボックスアカウントから送信されたメールました：

oMailItemと oOutlookがあなたの関連するオブジェクトを参照して iAccountが希望のメールボックスのインデックス番号である

With oMailItem 
Set .SendUsingAccount = oOutlook.Session.Accounts.Item(iAccount) 
... 
End With 

を使用する。私の場合、私は私の個人的なものとグループのものから送信するために利用できる2つのメールボックスを持っています。個人アカウントは最初（インデックス1）、グループメールボックスは2番目（インデックス2）です。

メールこのコードを使用して送信するメールアイテムは、自分のメールボックスではなく、グループメールボックスの[送信済みアイテム]フォルダに移動します。