Per meglio gestire il flusso e-mail su Outlook ho avuto l’esigenza di aggiungere il mio indirizzo di posta in BCC ad ogni mail in uscita, in modo da poter archiviare la posta in sottocartelle ed avere subito a portata di mano tutta la corrispondenza dello specifico thread. Per traguardare l’obiettivo ci sono diversi modi, ho scelto quello di usare una macro. Quindi ho avviato Outlook (2013), Alt+F11, e si apre la finestra di sviluppo:

->Sviluppo<-

Espandere Project1 doppio click su ThisOutlookSession
Sul progetto ThisOutlookSession copiate/incollate il seguente 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
On Error Resume Next
' #### USER OPTIONS ####
' address for Bcc -- must be SMTP address or resolvable
' to a name in the address book
strBcc = "[email protected]"
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

Sostituite ovviamente l’indirizzo al campo strBcc = con quello di vostro interesse. Riavviate Outlook ed il gioco è fatto, ovviamente il vostro programma di posta dev’essere abilitato ad eseguire le macro.