Buongiorno a tutti,

avrei bisogno di alcune indicazioni su come iniziare a gestire alcune operazioni in VBA su un modulo personalizzato di outlook 2010.

Vi descrivo cosa ho fatto:

1) ho creato una cartella PUBBLICA contatti chiamata "XX Aziende"
2) in questa cartella ho aggiunto 4 campi:
- Classificazione
- Fatturato
- NumeroInsoluti
- Rating
3) ho creato un modulo di nome "AZIENDA" che visualizza i 4 campi oltre a 2 campi standard (nome azienda e note)
4) ho pubblicato il modulo

Fino a qui tutto funziona.


Avrei bisogno di:

A) calcolare e valorizzare il campo Rating in funzione del valore presente negli altri 3 campi aggiunti
B) di farlo subito prima di salvare (tasto salva, chiudi e salva o chiudi+con ferma di salvataggio)
C) di farlo solo per il modulo "AZIENDA"

di seguito il codice che ho tentato di far (inutilmente) funzionare.

codice:
Private Sub Application_ItemLoad(ByVal Item As Object)   

Dim miaApplicazione As Outlook.Application   
Dim mioSpazio As Outlook.NameSpace   
Dim CartellaContatti As Outlook.MAPIFolder   
Dim mieiContatti As Outlook.Items   
Dim mioContatto As Outlook.ContactItem      

Set miaApplicazione = New Outlook.Application   
Set mioSpazio = miaApplicazione.GetNamespace("MAPI")   
Set mieiContatti = mioSpazio.Folders(1).Folders("XX Aziende").Items   
Set mioContatto = mieiContatti.Item(olContactItem)      

If mioContatto.Fatturato > 1000000 Then        
   ContactItem.Rating = 10
Else
   ContactItem.Rating = 5
End If  

End Sub