Note: The other languages of the website are Google-translated. Back to English
English English
  • Documenti
  • Outlook
  • Come creare un elenco a discesa per gli argomenti in Outlook?

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.

12.1) Seleziona Macro nel Scegli comandi da menu `A tendina;
12.2) Seleziona Progetto1.ChangeSubject nella casella di riepilogo dei comandi;
12.3) Fare clic su Aggiungi pulsante;
12.4) Fare clic su OK pulsante. Vedi screenshot:

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:

1) È possibile modificare l'oggetto esistente con qualsiasi argomento selezionato nell'elenco a discesa;
2) Questo metodo funziona bene quando si risponde o si inoltra un'e-mail in una nuova finestra;
3) Se si tende a rispondere alle e-mail in linea dal riquadro di lettura anziché aprire una finestra separata, è possibile visualizzare il modulo utente come segue.
3.1) Fare clic Costruttori > Macro > Progetto1.ChangeSubject. Vedi screenshot:

3.2) Quando viene visualizzato il modulo utente, selezionare un oggetto preimpostato dall'elenco a discesa e fare clic su OK pulsante, l'oggetto originale verrà cambiato immediatamente.

4) Se si seleziona Nessun cambiamento nel menu a tendina, l'oggetto originale verrà mantenuto senza alcuna modifica.

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.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (0)
Ancora nessuna valutazione. Puoi essere il primo a votare!
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL