Come creare un elenco a discesa per gli argomenti in Outlook?
Potresti avere diversi oggetti di posta elettronica preimpostati che devono essere distribuiti a diversi destinatari in Outlook. Sarebbe molto efficiente avere un elenco a discesa della riga dell'oggetto per selezionare un oggetto senza digitarlo manualmente durante la composizione di un'e-mail. Proprio come la gif mostrata di seguito. Questo tutorial fornisce tre codici VBA per aiutarti a creare un elenco a discesa con diversi argomenti preimpostati. Quando si compone un'e-mail, è possibile selezionare qualsiasi oggetto necessario dal menu a discesa per compilare automaticamente la riga dell'oggetto. Si prega di seguire la guida passo passo per farlo.
Crea un elenco a discesa per gli argomenti in Outlook con 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 completarlo.
1. Avvia Outlook, premi il pulsante altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo utente.
3. Quindi il file Modulo utente1 è inserito sotto Project1 nel riquadro sinistro del Visual Basic editore. È necessario aggiungere una casella combinata e un pulsante di comando a questo modulo utente trascinando il file Casella combinata di Pulsante di comando rispettivamente dal Strumenti Vai all’email Modulo utente1.
4. Fare clic con il pulsante destro del mouse sul pulsante di comando e selezionare Proprietà nel menu di scelta rapida.
5. Nel Proprietà – CommandButton1 riquadro, cambia il file Didascalia campo OK. Questa azione cambierà il testo visualizzato sul pulsante di comando.
6. Fare doppio clic sull'area vuota del Form utente per aprire il corrispondente Modulo utente (codice) finestra, quindi sostituire il codice esistente con il seguente codice VBA.
Codice VBA 1: UserForm con un elenco a discesa che include più oggetti di posta elettronica 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
Note:: Nel codice, il Soggetto 1, 2, 3, 4 di 5 sono gli oggetti e-mail preimpostati che desideri utilizzare nelle tue e-mail. “Nessun cambiamento” significa non modificare nulla dell'oggetto dell'e-mail esistente. Puoi modificare gli oggetti e-mail preimpostati nel codice VBA in base alle tue esigenze.
7. Doppio click Project1 > Oggetti di Microsoft Outlook > Questa sessione di Outlook. 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. Continuare a fare clic inserire > Modulo nel Visual Basic editore. Quindi copia e incolla il seguente codice VBA in Modulo (codice) finestra.
Codice VBA 3 utilizzato nella finestra del 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. Salvare i codici e premere il tasto altro + Q i tasti per chiudere il file Editor di Visual Basic finestra e tornare all'applicazione Outlook.
10. Fare clic sul nuova e-mail pulsante sotto il Casa scheda per creare un'e-mail.
11. Nella finestra del nuovo messaggio, fare clic su Personalizza la barra degli strumenti di accesso rapido > Altri comandi.
12. Nel Opzioni di Outlook finestra di dialogo, è necessario configurare come segue.
13. Quindi puoi vedere che un pulsante 
è stato aggiunto alla barra multifunzione della finestra del messaggio.
14. Ora devi riavviare Outlook.
15. Quando si compone un messaggio di posta elettronica, se è necessario inserire un oggetto preimpostato, è sufficiente fare clic sul pulsante appena aggiunto sulla barra multifunzione per visualizzare il modulo utente, selezionare un oggetto dal menu a discesa, quindi fare clic su OK per inserirlo nella riga dell'oggetto.
Note:
Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!
- Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
- Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
- Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
- Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
- E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
