[VBA] Aggiungere indirizzo nel campo BCC in Outlook Express

[medorex]

Ciao a tutti spero di postare nella sezione appropriata e di scrivere (partendo dal titolo) cose sensate, in quanto di vb non ci capisco nulla.

Dunque mi trovo nella necessità di dover impostare un automatismo in outlook 2010, ovvero mettere in automatico un destinatario nascosto.
Cercando nel web ho trovato questo codice:

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
Dim strBcc1 As String
On Error Resume Next
' #### USER OPTIONS ####
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
strBcc = "xxx@xxx.xxx"
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
strMsg = "Could not resolve the Bcc recipient. " & _
"Do you want still to send the message?"
res = MsgBox(strMsg, vbYesNo + vbDefaultButton1, _
"Could Not Resolve Bcc Recipient")
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
End Sub

che funziona ed è pefetto...
ma se volessi aggiungere un' altro indirizzo in ccn?
Riuscite ad aiutarmi?
Grazie ai volenterosi
ciao
Medo