Automàtic CCO per els correus sortints des d’Outlook

Bon dia!

Be, per temes de treball he tingut que fer la copia absoluta de tot el que es rep en un correu  mitjançant Outlook 2010 i rebre-ho en un altre ordinador amb Outlook, que és lo de menys. La cosa es que en el lloc on rebo el backup d’aquesta conta de correu tinc que tindre    tant els rebuts com els enviats. Per tot això i desprès de diverses proves amb Regles d’Outlook, m’he decidit posar en pràctica el que vaig aprendre en un curset de vBasic, òbviament ajudant-me de sant Google, ja que tinc el poc codi que sé oxidat.

Per fer això hem d’anar a Visual Basic d’intre d’Outlook, el trobareu a la pestanya de «Programador». Un cop allà anem a «Application» i al desplegable de la dreta «ItemSend». Un cop allà copiem aquest codi:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
 Dim CorreuEnviat As Recipient
 Dim Missatge As String
 Dim Resposta As Integer
 Dim CorreuCCO As String
 On Error Resume Next
 ' #### Opcions d'usuari ####
 ' adreça per CCO -- ha de ser una adreça SMTP
 ' dins de l'agenda
 CorreuCCO = "correu@elvostredomini.algo"
 Set CorreuEnviat = Item.Recipients.Add(CorreuCCO)
 CorreuEnviat.Type = olBCC
 If Not CorreuEnviat.Resolve Then
 Missatge = "No s'ha trobat el destinatari CCO. " & _
 "Segueixes volent enviar el missatge?"
 Resposta = MsgBox(Missatge, vbYesNo + vbDefaultButton1, _
 "No s'ha trovat el destinatari CCO")
 If Resposta = vbNo Then
 Cancel = True
 End If
 End If
 Set CorreuEnviat = Nothing
 End Sub

Recordeu d’habilitar les macros i de comprovar que realment funciona havent reiniciat outlook desprès de modificar el ItemSend, marcant sobre la funció dins de Visual Basic. Aquesta marca serveix per posar un punt de pausa sobre l’execució d’aquesta funció.
 Minimitzar-lo i enviar un correu de prova, un cop li doneu a enviar os ha de saltar la pantalla del Visual Basic amb això
Si premeu F8 veureu com recorre la funció pas a pas, si no F5 per que segueixi fent normal.

Trobareu el post original en aquest enllaç
Com podreu veure poca pràctica he fet, tot i que això em serveixi al menys per entendre el que he fet. jaja