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 travels, Finland, Norway, mountains, squash, photography, Drones and RC Helicopter
RSS - Articoli
Due precisazioni per chi si appresta ad usare questa soluzione:
1. bisogna cambiare gli apici (quello sotto il punto di domanda) e le virgolette (quelle sopra il 2) del codice copiato e incollato.
2. In Strumenti > Macro > Protezione spuntate il campo Medio (o Basso ma la sicurezza ne risente…) altrimenti non parte niente!
dimenticavo: Grazie! funziona benissimo anche su Win7 (Outlook 2003 nel mio caso) dove diversi programmi già pronti si bloccano.
Grazie gzar, in effetti c’era un problema di apici dovuto alla migrazione dal vecchio blog su Blogspot a questo su WordPress; purtroppo apici e virgolette sono state modificate con altri caratteri; ho modificato, dovrebbe essere a posto.
Chiaramente trattandosi di macro bisogna anche non avere le Macro disabilitate; il controllo sullo stato della protezione delle macro viene fatto giustamente tramite il menù Strumenti -> Macro -> Protezione (in Office 2003/2007)
Ho provato a utilizzare la macro ma non mi funziona, seguendo la procedura, incollando il tutto e mettendo protezione macro media (ho provato anche bassa) e riavviando il tutto.
E’ compatibile anche in microsoft outlook 2000 (ho questa versione)?
Si Cesare è compatibile anche con Outlook 2000.
Ciao, complimenti, ma chiedo scusa: quali apici e virgolette si dwvono sostituire?
Utile!
Nota: non essendo una macro certificata, c’è un modo per evitare che ad ogni avvio di outlook 2010 venga mostrato l’avviso per l’attivazione?
Andrea…. credevo di avere trovato il mio salvatore e ti stavo già facendo un monumento… ma non funge….
Outlook 2003, win xp pro sp3, macro a basso livello, copiato ed incollato il testo che a quanto ho capito adesso è corretto come sintassi…. chiuso e riavviato: nessun ccn esce come dovrebbe…
Puoi gentilmente aiutarmi?
Paolo così sui due piedi e a distanza mi viene difficile aiutarti, nel senso che io ho ancora provato ieri e a me funziona perfettamente, se provo con XP con Oultook 2003. Ti direi come prima cosa di controllare che il codice sia giusto, ossia che facendo copia/incolla le virgolette e gli apici siano riconosciuti, ovvero a volta bisogna riscriverli perché nel copiarli dalla pagina vengono inseriti in modo non corretto.
Prova a togliere e riscrivere le virgolette quando hai copiato in VBA; in teoria dovrebbe già essere a posto perché avevo modificato ma prova a verificare.
Ho inserito il codice VBA in outlook e sembra funzionare a dovere.
Però avrei un problema “aggiuntivo” : il mio outlook ha piu’ account quindi indipendentemente da quale account io utilizzi invia la mail posta in Ccn.
Non è possibile legare il codice VBA a solo uno degli account?
Grazie anticipatamente per l’aiuto.
complimenti e grazie!
complimenti per le istruzioni eccezionali che ho trovato !!! Bravo e grazie. CL
Complimenti per gli ottimi consigli ma io ho un problema leggermente diverso:
Nel mio Outlook 2007 precedentemente hanno impostato un Cc automatico che si inserisce quando scrivo un nuovo messaggio, praticamente il destinatario riceve l’email dal mio attuale indirizzo di posta con in Cc un altro account ormai obsoleto. Credo che abbiano lavorato sul visual basic. Ti chiedo come posso togliere questa impostazione.
Nelle mail in arrivo c’è anche lì un altro Cc automatico di un altro account.
Chi riesce ad aiutarmi?
Grazie in anticipo
@Silvia: se si tratta di un invio in automatico in CC probabilmente è una semplice regola; in questo caso questo articolo ti può aiutare a cancellare o modificare la regola:
http://office.microsoft.com/it-it/outlook-help/invio-automatico-di-una-copia-dei-messaggi-inviati-HA010239583.aspx
Ottimo script !! Funziona alla perfezione. Io consiglio di riscrivere le virgolette.
Uso Outlook 2013 e quando entro in Visual basic non trovo Microsoft Outlook Oggetti, per cui non riesco a continuare la procedura.
Poichè ho visto che questo procedimento è per Outlook 2010, mi chiedevo se per caso non fosse o stesso per il 2013…
Idee?
Grazie mille
@olfea87: probabilmente non hai aperta la finestra Progetti sulla sinistra della schermata; per poterla vedere devi andare nel menù Visualizza della finestra Visual Basic e scegliere Visualizza Progetti.
Ciao, la regola è compatibile con Outlook 2014 ?
Ho provato a seguire i passaggi, ma non mi funziona.
Grazie
Risolto attivando tutte le macro in centro protezione.
Grazie
Volendo inviare a più indirizzi qual’è la sintassi in strBcc.
Grazie e ottimo lavoro!
Grazie, funziona perfettamente ma vorrei fare una domanda.
Avendo più account sullo stesso profilo, è possibile fare in modo che la macro sia utilizzata solamente da uno di questi?
Pardon,
soluzione trovata utilizzando questo codice:
If Item.SendUsingAccount = “Account Name” Then
strBcc = “BSomeEmailAddress@domain.com”
End If
Set objRecip = Item.Recipients.Add(strBcc)
objRecip.Type = olBCC
If Not objRecip.Resolve Then
If res = vbNo Then
Cancel = True
End If
End If
Set objRecip = Nothing
Dove account name è il nome indicato nelle informazioni dello stesso
ciao a tutti, grazie per le vs spiegazioni. sto provando a mettere in ccn automaticamente un indirizzo email con Outlook 2013, ho seguito tutti i passaggi ma alla fine non funziona.
C’è per caso qualche correzione da fare nella sintassi del codice da copiare e incollare per Outlook 2013?
grazie
elisa
Ciao, io ho windows 7 e outlook 2010 ma nonostante tutti questi accorgimenti non riesco a visualizzare il mio indirizzo personale nel campo Ccn.
In pratica vorrei inserire il mio indirizzo per tutte le mail che mando, così me le ritrovo inviate anche in un altro pc.
Grazie per aiutarmi.
Augusto
Ciao,
funziona anche con Outlook 2016, ho seguito questo consiglio:
1. bisogna cambiare gli apici (quello sotto il punto di domanda) e le virgolette (quelle sopra il 2) del codice copiato e incollato.
2. In Strumenti > Macro > Protezione spuntate il campo Medio (o Basso ma la sicurezza ne risente…) altrimenti non parte niente!
Grazie.
Ho risolto, grazie a tutti.
Buonasera!
Mi aiutate a risolvere?
è quasto il definitivo?
Mille grazie!
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
buongiorno a tutti. ho visto come si possano inoltrare automaticamente tutte le email ad indirizzo in Ccn,
ma come si può modificare il codice per poter inoltrare solo alcune email ad un destinatario Ccn? (per es vorrei inoltrare in Ccn a :
paperino@gmail.com tutte le email inviate a ogni indirizzo @mailcust.com
quindi per esempio: mario@mailcust.com; giulio@mailcust.com; ..)
grazie anticipatamente per l’aiuto
Ciao il tutto funziona perfettamente da dentro Outlook 2013. Selezionando però un file sul desktop ed inviandolo via mail, tramite tasto dx->invia a destinatario di posta, la mail non viene inviata in ccn al destinatario specificato nello script.
Potete aiutarmi?
Grazie
Dopo vari tentativi il Codice funziona (ultima versione qui sopra), ma ho dovuto sostituire nella finestra Visual Basic tutti gli apostrofi(‘) e tutte le virgolette (“).
Ora però c’è un altro problema: se invio da indirizzo PEC mi ritorna il messaggio di errore:”è stato rilevato un problema che ne impedisce l’accettazione a causa di presenza di destinatari in copia nascosta”.
Come posso correggere il Codice dando istruzioni di non applicare il CCN automatico quando il mittente è il mio indirizzo PEC?
Meraviglioso, grazie di cuore.
Io con oulook 2013 non riesco proprio a farlo funzionare, com’è possibile?!?
Salve ragazzi io l’ho utilizzato e funziona, ma si crea un problema nel momento in cui si invia una pec, come da script l’invio viene fatto ma siccome il ccn non è contemplato nelle pec, succede che le pec non partono più. Ci vorrebbe qualche riga che esclude alcuni mittenti. Pensate sia possibile?
Buongiorno,
io ho Outlook 2016. Non riesco a farlo funzionare in nessun modo. Qual è la versione da utilizzare?
salve funziona ma in presenza di differenti account di cui uno Pec avrei bisogno di indicare di non inviare CCN @krn il tuo codice sostituisce completamente quello in precedenza scritto o va aggiunto?