Apertura del VBA Editor
Il codice per la creazione del pulsante verrà inserito nell’evento di startup, ossia quando si avvia Microsoft Outlook 2003, si noti che la protezione delle macro, dev’essere impostata in modo che venga eseguito il codice (protezione media con un messaggio a video di richiesta se eseguire o no il codice macro) .
Per aprire l’ambiente Visual Basic for Application (VBA), dal menu Strumenti, selezionare l'opzione Macro e successivamente l'opzione Visual Basic Editor, verrà aperta la finestra di VBA, a questo punto selezionare nella casella combinata la voce Application mentre nella casella combinata degli eventi (quella di destra) la voce Startup.
Codice per la creazione del pulsante
Si dichiara a livello di progetto, un oggetto di tipo CommandBarButton tramite la parola chiave withevents possiamo impostare il relativo evento di tale oggetto. Quest’oggetto rappresenta un pulsante della barra dei comandi di Microsoft Outlook 2003.
Di seguito si riporta un esempio di codice:
Dim WithEvents objPulsante As CommandBarButton
Nell’evento Startup dell’oggetto Application, inseriamo il codice per la creazione di un pulsante. In particolare un oggetto di tipo Outlook.Application per la gestione dell’applicativo Microsoft Outlook 2003, un oggetto di tipo Office.CommandBar per la gestione delle barre e l’oggetto creato in precedenza.
Di seguito si riporta un frammento di codice di esempio:
Private Sub Application_Startup()
'oggetto outlook
Dim ObjApp As New Outlook.Application
'oggetto barra
Dim ObjBarra As Office.CommandBar
'imposto la barra
Set ObjBarra = ObjApp.ActiveExplorer.CommandBars.Item("Standard")
Set objPulsante = ObjBarra.Controls.Add(, , , 1, True)
'imposto l'icona
objPulsante.FaceId = 59
'imposto il testo
objPulsante.Caption = "Pulsante"
'imposto lo stile del pulsante (immagine e testo)
objPulsante.Style = msoButtonIconAndCaption
End Sub
Tramite la proprietà Item, impostiamo la barra in cui inserire il pulsante, il metodo add della proprietà control dell’oggetto commandbar permette di aggiungere un nuovo pulsante alla barra impostata in precedenza. Il metodo accetta diversi argomenti, in questo caso, abbiamo impostato la posizione in cui il pulsante verrà inserito e la durata, in modo che venga cancellato una volta chiuso Microsoft Outlook 2003, il pulsante verrà ricreato al prossimo avvio del programma.
Dopo aver inizializzato l’oggetto commandbarbutton, impostiamo le varie proprietà, quale faceid per impostare un immagine al pulsante, la proprietà caption il quale inserisce del testo, mentre tramite la proprietà style viene impostata lo stile (immagine e testo)
Figura 1: un pulsante aggiunto nella barra degli strumenti standard
Il codice per la creazione del pulsante è terminato, ora non resta che scrivere il codice quando si fa clic su tale pulsante, nella casella degli oggetti, viene visualizzato il nome del nostro oggetto pulsante (objpulsante) facciamo clic sulla casella combinata degli eventi (quella di sinistra) e selezioniamo l’evento Click.
Di seguito si riporta un esempio di codice.
Private Sub objPulsante_Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean)
MsgBox ("Testo a scelta")
End Sub
Conclusioni
In questo articolo abbiamo visto come inserire un pulsante nella barra degli strumenti standard di Microsoft Outlook 2003.
Note sul copyright
Questo articolo è stato fornito con esplicito consenso dell'autore sotto licenza Creative Commons.
Leggi la licenza d'uso.
|
