Come creare un elenco a discesa per gli oggetti in Outlook?

AutoreSiluvia Data di modifica2025-04-09

Potresti avere diversi oggetti email preimpostati da inviare a destinatari differenti in Outlook. Sarebbe molto più efficiente disporre di un elenco a discesa per l’oggetto, che ti permetta di selezionarne uno senza doverlo digitare manualmente durante la composizione del messaggio, proprio come mostrato nella GIF qui sotto. Questo tutorial ti offre tre codici VBA per creare un elenco a discesa con oggetti predefiniti. Mentre scrivi un'email, potrai scegliere l’oggetto desiderato direttamente dal menu a discesa, che verrà inserito automaticamente nella riga dell’oggetto. Segui la guida passo passo per completare la configurazione.

Creare un Elenco a discesa per gli oggetti in Outlook con codice VBA

In realtà, Outlook non permette di inserire un elenco a discesa nel campo dell’oggetto. Per ottenere questa funzionalità, è necessario creare un modulo personalizzato e abbinarlo a codice VBA.

1. Avvia Outlook e premi i tasti «Alt» + "F11" per aprire la finestra di Microsoft Visual Basic for Applications.

2. Nella finestra «Microsoft Visual Basic for Applications», fai clic su «Inserisci» > «UserForm».

doc-subject-line-drop-down-list-1

3. Il "UserForm1" verrà inserito sotto "Progetto1" nel riquadro sinistro dell’editor di Visual Basic. Aggiungi una casella combinata e un pulsante di comando al form trascinando rispettivamente «ComboBox» e «CommandButton» dalla Casella degli strumenti direttamente su "UserForm1".

doc-subject-line-drop-down-list-2

4. Fai clic con il tasto destro sul pulsante di comando e seleziona “Proprietà” dal menu contestuale.

doc-subject-line-drop-down-list-3

5. Nel riquadro «Proprietà – CommandButton1», modifica il campo «Didascalia» in «OK». Questa modifica aggiornerà il testo visualizzato sul pulsante di comando.

doc-subject-line-drop-down-list-4

6. Fai doppio clic sull’area vuota del UserForm per aprire la relativa finestra «Codice UserForm», quindi sostituisci il codice esistente con il seguente codice VBA.

Codice VBA 1: UserForm con un Elenco a discesa contenente più Oggetto email preimpostati

Private Sub UserForm_Initialize()
'Updated by Extendoffice 20220927
  With ComboBox1
    .AddItem "Subject 1"
    .AddItem "Subject 2"
    .AddItem "Subject 3"
    .AddItem "Subject 4"
    .AddItem "Subject 5"
    .AddItem "No change"
  End With
End Sub

Private Sub CommandButton1_Click()
  GCbbIndex = ComboBox1.ListIndex
  GSelSubject = ComboBox1.Value
  Unload Me
End Sub

doc-subject-line-drop-down-list-5

Nota: nel codice, le voci "Oggetto 1, 2, 3, 4" e "5" corrispondono agli oggetti email preimpostati che desideri utilizzare nei tuoi messaggi. L’opzione «Nessuna modifica» indica di non apportare alcuna variazione all’oggetto email esistente. Puoi personalizzare gli oggetti email preimpostati direttamente nel codice VBA in base alle tue esigenze.

7. Fai doppio clic su "Progetto1" > «Oggetti Microsoft Outlook» > «ThisOutlookSession», quindi copia il seguente codice VBA nella finestra «Codice ThisOutlookSession».

Codice VBA 2 utilizzato nella finestra ThisOutlookSession

Public WithEvents GExplorer As Explorer
'Updated by Extendoffice 20220927
Private Sub Application_Startup()
  Set GExplorer = Application.ActiveExplorer
End Sub

Private Sub GExplorer_InlineResponse(ByVal Item As Object)
  Set GInlineMail = Item
End Sub

doc-subject-line-drop-down-list-6

8. Prosegui facendo clic su «Inserisci» > «Modulo» nell’editor di Visual Basic, quindi copia e incolla il seguente codice VBA nella finestra del modulo.

Codice VBA 3 utilizzato nella finestra Modulo

Public GCbbIndex As Long
'Updated by Extendoffice 20220927
Public GSelSubject As String
Public GInlineMail As MailItem
Public Sub ChangeSubject()
  Dim xItem As MailItem
  Dim xMail As Outlook.MailItem
  On Error Resume Next
  Select Case TypeName(Application.ActiveWindow)
    Case "Explorer"
      Set xMail = GInlineMail
      Debug.Print "Explorer"
    Case "Inspector"
      Set xMail = Application.ActiveInspector.CurrentItem
      Debug.Print "Inspector"
  End Select
  UserForm1.Show
  If (GCbbIndex <> -1) And (GSelSubject <> "no change") Then
    xMail.Subject = GSelSubject
  End If
End Sub

doc-subject-line-drop-down-list-7

9. Salva i codici e premi «Alt» + «Q» per chiudere la finestra dell’Editor di Visual Basic e tornare a Outlook.

10. Fai clic sul pulsante «Nuova Email» nella scheda «Home» per creare subito un nuovo messaggio.

11. Nella nuova finestra del messaggio, fai clic su «Personalizza barra di accesso rapido» > «Altri comandi».

doc-subject-line-drop-down-list-8

12. Nella finestra di dialogo «Opzioni di Outlook», procedi nel modo seguente.

12,1) Seleziona «Macro» in «Scegli comandi da» Elenco a discesa;

12,2) Seleziona "Project1.ChangeSubject" nell’elenco dei comandi;

12,3) Fai clic sul pulsante «Aggiungi»;

12,4) Fai clic sul pulsante «OK». Vedi screenshot:

doc-subject-line-drop-down-list-9

13. A questo punto vedrai che un pulsante doc-subject-line-drop-down-list-10 è stato aggiunto alla barra multifunzione della finestra del messaggio.

doc-subject-line-drop-down-list-11

14. Ora è necessario riavviare Outlook.

15. Quando componi un messaggio email e devi inserire un oggetto preimpostato, ti basta fare clic sul nuovo pulsante aggiunto alla Barra multifunzione per aprire il modulo utente, scegliere un oggetto dal menu a discesa e confermare con il pulsante «OK» per inserirlo automaticamente nella riga dell’oggetto.

Note:

1) Puoi sostituire l’oggetto esistente con qualsiasi oggetto selezionato nella Elenco a discesa;

2) Questo metodo funziona bene quando si risponde o si inoltra un'email in una nuova finestra;

3) Se preferisci rispondere alle email direttamente dal riquadro di lettura anziché aprirle in una finestra separata, puoi visualizzare il modulo utente come segue.

3,1) Fai clic su «Sviluppatore» > «Macro» > "Project1.ChangeSubject". Vedi screenshot:

doc-subject-line-drop-down-list-13

3,2) Quando viene visualizzato il modulo utente, seleziona un oggetto preimpostato dalla Elenco a discesa e fai clic sul pulsante «OK»; l’oggetto originale verrà modificato immediatamente.

4) Se selezioni «Nessuna modifica» nel menu a discesa, l’oggetto originale verrà mantenuto senza alcuna variazione.

Assistente email IA in Outlook: risposte più intelligenti, comunicazione più chiara (magia con un clic!)

Ottimizza le tue attività quotidiane in Outlook con l’Assistente email IA di Kutools per Outlook: uno strumento potente che impara dalle tue email precedenti per suggerirti risposte intelligenti e precise, ottimizzare il contenuto dei messaggi e aiutarti a scrivere e perfezionare le tue email in modo rapido e senza sforzo.

gestione email con intelligenza artificiale di doc

Questa funzionalità supporta:

Risposte intelligenti: ottieni risposte generate dalle tue conversazioni precedenti—personalizzate, precise e pronte all’uso.
Contenuto migliorato: affina automaticamente il testo delle tue email per renderlo più chiaro ed efficace.
Composizione senza sforzo: inserisci solo alcune parole chiave e lascia che l’IA si occupi del resto, con più stili di scrittura.
Estensioni intelligenti: amplia i tuoi pensieri con suggerimenti contestuali.
Sintesi: ottieni subito una panoramica rapida e concisa delle email più lunghe.
Portata globale: traduci le tue email in qualsiasi lingua con estrema facilità.

Questa funzionalità supporta:

Risposte email intelligenti
Contenuto ottimizzato
Bozze basate su parole chiave
Estensione intelligente del contenuto
Sintesi delle email
Traduzione multilingue

Non aspettare—scarica subito l’Assistente email IA e approfitta di!

Migliori strumenti per la produttività in Office

Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!

🤖KUTOOLS AI:Utilizza tecnologia AI avanzata per gestire le email senza sforzo, inclusi rispondere, riassumere, ottimizzare, estendere, tradurre e comporre email.

📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...

📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...

📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…

🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...

👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...

👩🏼‍🤝‍👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...

Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!

Sblocca istantaneamente Kutools per Outlook con un solo clic! Non aspettare oltre: scaricalo ora e aumenta subito la tua efficienza!

Elenco funzionalità di Kutools per Outlook Scarica ora Vai all’acquisto

🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office

Fortemente consigliato: Kutools for Office (5-in-1)

Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!

✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint

Informazioni sulla Suite ⬇ Scarica la Suite 💳 Acquista la Suite