Seguendo questa procedura potrai impostare Outlook affinchè ogni mail inviata sia automaticamente e invisibilmente inoltrata ad un indirizzo in copia per conoscenza nascosta (Ccn)

Prima di tutto si deve lavorare tramite codice VBA quindi apriamo la relativa finestra

In Outlook 2003
Menù Strumenti – Macro – Visual Basic Editor

In Outlook 2007
Bottone di Office – Pulsante Opzioni di Outlook – Impostazioni generali – Opzione “Mostra scheda Sviluppo sulla barra multifunzione” quindi tornare ad Outlook, selezionare la scheda Sviluppo e cliccare sul pulsante Visual Basic

In Outlook 2010
File – Opzioni – Personalizzazione barra multifunzione – Selezionare Sviluppo nella sezione “Schede principali” quindi tornare ad Outlook, selezionare la scheda Sviluppo e cliccare sul pulsante Visual Basic

Nella finestra Visual Basic, nel riquadro di sinistra, cliccare su Microsoft Outlook Oggetti e quindi su ThisOutlookSession quindi spostarsi nel riquadro di destra e nel menù a discesa posto in alto a sinistra selezionare Application anzichè (generale) e nel menù a discesa posto in alto a destra assicurarsi che sia visualizzato ItemSend

A questo punto nella finestra apparirà il seguente codice:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)

End Sub

Posizionarsi sotto la prima riga e copiare prima di End Sub il codice riportato sotto:

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 = "SomeEmailAddress@domain.com"

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

sostituendo nel codice al posto di SomeEmailAddress@domain.com l’indirizzo mail al quale si vuole che vengano inviate in Ccn tutte le mail spedite da Outlook.

Chiudere la finestra di Visual Basic Editor e riavviare Outlook.

Da questo momento ogni mail sarà inviata automaticamente come copia per conoscenza nascosta all’indirizzo mail specificato.

Informatics, ski racer, loves Finland, Norway, mountains, squash, photography, Drones and RC Helicopter – Snapchat: andrea.perotti

Translate »