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.

World Winter Masters Games - Slovenia - Bled 2010
Widget ricerca personalizzata Google nel proprio blog o sito web

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

Translate »