just put it on the second or third lines, i can not really tell with the way your code has come out
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
item.Body = "Terminal #77" & vbNewLine & item.Body
If item.SentOnBehalfOfName = "Mailbox" Then
strBcc = "Mailbox"
Set objRecip = item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then Cancel = True
'' If res = vbNo Then
Set objRecip = Nothing
End If
End Sub
i changed your code a bit see if it works