Come creare un elenco a discesa per gli oggetti in Outlook?
Potresti avere diversi oggetti email preimpostati che devono essere distribuiti a diversi destinatari in Outlook. Sarebbe molto efficiente avere un elenco a discesa nella riga dell'oggetto per selezionare un oggetto senza doverlo digitare manualmente durante la composizione di un'email. Proprio come dimostra il gif qui sotto. Questo tutorial fornisce tre codici VBA per aiutarti a creare un elenco a discesa con diversi oggetti preimpostati. Durante la composizione di un'email, puoi selezionare qualsiasi oggetto di cui hai bisogno dall'elenco a discesa per riempire automaticamente la riga dell'oggetto. Segui attentamente la guida passo-passo per completare l'operazione.
Crea un elenco a discesa per gli oggetti in Outlook con il codice VBA
In realtà, Outlook non consente di aggiungere un elenco a discesa nella riga dell'oggetto. Qui è necessario creare un modulo utente e combinarlo con i codici VBA per completare l'operazione.
1. Avvia Outlook, premi i tasti "Alt" + "F11" per aprire la finestra "Microsoft Visual Basic for Applications".
2. Nella finestra "Microsoft Visual Basic for Applications", clicca su "Inserisci" > "UserForm".
3. Successivamente, il "UserForm1" viene inserito sotto "Project1" nel riquadro sinistro dell'editor "Visual Basic". Devi aggiungere una casella combinata e un pulsante di comando a questo userform trascinando rispettivamente "ComboBox" e "CommandButton" dalla "Toolbox" al "UserForm1".
4. Fai clic con il tasto destro sul pulsante di comando e seleziona "Proprietà" dal menu contestuale.
5. Nel riquadro "Proprietà – CommandButton1", cambia il campo "Caption" in "OK". Questa azione cambierà il testo visualizzato sul pulsante di comando.
6. Fai doppio clic sull'area vuota nel UserForm per aprire la corrispondente finestra "UserForm (Codice)", quindi sostituisci il codice esistente con il seguente codice VBA.
Codice VBA 1: UserForm con un elenco a discesa contenente più oggetti 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
Nota: Nel codice, "Oggetto 1, 2, 3, 4" e "5" sono gli oggetti email preimpostati che desideri utilizzare nelle tue email. “Nessun cambiamento” significa non modificare nulla dell'oggetto email esistente. Puoi modificare gli oggetti email preimpostati nel codice VBA in base alle tue esigenze.
7. Fai doppio clic su "Project1" > "Microsoft Outlook Objects" > "ThisOutlookSession". Quindi copia il seguente codice VBA nella finestra "ThisOutlookSession (Codice)".
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
8. Continua facendo clic su "Inserisci" > "Modulo" nell'editor "Visual Basic". Quindi copia e incolla il seguente codice VBA nella finestra "Modulo (Codice)".
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
9. Salva i codici e premi i tasti "Alt" + "Q" per chiudere la finestra "Editor di Visual Basic" e tornare all'applicazione Outlook.
10. Clicca sul pulsante "Nuova Email" sotto la scheda "Home" per creare un'email.
11. Nella nuova finestra del messaggio, clicca su "Personalizza Barra di Accesso Rapido" > "Altri Comandi".
12. Nella finestra di dialogo "Opzioni di Outlook", devi configurare come segue.
13. A questo punto puoi vedere che un pulsante 
è stato aggiunto alla barra multifunzione della finestra del messaggio.
14. Ora devi riavviare Outlook.
15. Quando componi un messaggio email, se hai bisogno di inserire un oggetto preimpostato, ti basta fare clic sul pulsante appena aggiunto sulla barra multifunzione per visualizzare il modulo utente, selezionare un oggetto dall'elenco a discesa e poi fare clic sul pulsante "OK" per inserirlo nella riga dell'oggetto.
Note:
Assistente AI per la Posta in Outlook: Risposte più intelligenti, comunicazione più chiara (magia con un clic!) GRATIS
Semplifica le tue attività quotidiane di Outlook con l'Assistente AI per la Posta di Kutools per Outlook. Questo potente strumento impara dalle tue email precedenti per offrire risposte intelligenti e accurate, ottimizzare il contenuto delle tue email e aiutarti a redigere e perfezionare i messaggi senza sforzo.
Questa funzione supporta:
- Risposte Intelligenti: Ottieni risposte create a partire dalle tue conversazioni passate—personalizzate, precise e pronte all'uso.
- Contenuto Migliorato: Perfeziona automaticamente il testo delle tue email per chiarezza e impatto.
- Composizione Senza Sforzo: Fornisci solo delle parole chiave e lascia che l'IA si occupi del resto, con diversi stili di scrittura.
- Estensioni Intelligenti: Espandi i tuoi pensieri con suggerimenti contestuali.
- Riassunti: Ottieni sintesi concise di email lunghe istantaneamente.
- Portata Globale: Traduci le tue email in qualsiasi lingua con facilità.
Questa funzione supporta:
- Risposte intelligenti alle email
- Contenuto ottimizzato
- Bozze basate su parole chiave
- Estensione intelligente del contenuto
- Riassunto delle email
- Traduzione multilingue
Il meglio di tutto è che questa funzione è completamente gratuita per sempre! Non aspettare—scarica subito Assistente AI per la Posta e goditela
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
