Note: The other languages of the website are Google-translated. Back to English

Cum se creează o listă derulantă pentru subiecte în Outlook?

Este posibil să aveți diferite subiecte de e-mail prestabilite care trebuie distribuite către diferiți destinatari în Outlook. Ar fi foarte eficient să existe o listă derulantă cu subiect pentru a selecta un subiect fără a-l introduce manual atunci când compuneți un e-mail. La fel ca gif-ul demonstrat mai jos. Acest tutorial oferă trei coduri VBA pentru a vă ajuta să creați o listă derulantă cu diferite subiecte prestabilite. Când compuneți un e-mail, puteți selecta orice subiect de care aveți nevoie din meniul drop-down pentru a completa automat linia de subiect. Vă rugăm să urmați ghidul pas cu pas pentru a finaliza.


Creați o listă derulantă pentru subiecte în Outlook cu cod VBA

De fapt, Outlook nu permite adăugarea unei liste derulante în linia de subiect. Aici trebuie să creați un formular de utilizator și să îl combinați cu coduri VBA pentru a-l completa.

1. Lansați Outlook, apăsați butonul Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Formular utilizator.

3. Apoi UserForm1 este introdus sub Project1 în panoul din stânga al Visual Basic editor. Trebuie să adăugați o casetă combinată și un buton de comandă la acest formular de utilizator trăgând caseta combinată și Butonul de comanda respectiv din Toolbox la UserForm1.

4. Faceți clic dreapta pe butonul de comandă și selectați Proprietăţi în meniul cu clic dreapta.

5. În Proprietăți – CommandButton1 , schimbați fișierul Legendă domeniu la OK. Această acțiune va schimba textul afișat pe butonul de comandă.

6. Faceți dublu clic pe zona goală din UserForm pentru a deschide forma corespunzătoare UserForm (Cod) fereastră, apoi înlocuiți codul existent cu următorul cod VBA.

Cod VBA 1: Formular de utilizator cu o listă derulantă care include mai multe subiecte de e-mail prestabilite

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

notițe: În cod, Subiectul 1, 2, 3, 4 și 5 sunt subiectele de e-mail prestabilite pe care doriți să le utilizați în e-mailurile dvs. „Nici o schimbare” înseamnă a nu schimba nimic din subiectul e-mailului existent. Puteți modifica subiectele presetate ale e-mailului în codul VBA în funcție de nevoile dvs.

7. Dublu click Project1 > Obiecte Microsoft Outlook > Această sesiune Outlook. Apoi copiați următorul cod VBA în fereastra ThisOutlookSession (Code).

Codul VBA 2 utilizat în fereastra 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ți să faceți clic Insera > Module în Visual Basic editor. Apoi copiați și inserați următorul cod VBA în fișierul Modul (Cod) fereastră.

Codul VBA 3 folosit în fereastra Modul

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 codurile și apăsați tasta Alt + Q tastele pentru a închide Editor Visual Basic fereastra și reveniți la aplicația Outlook.

10. Faceți clic pe Email nou buton sub Acasa pentru a crea un e-mail.

11. În fereastra de mesaj nou, faceți clic pe Personalizați bara de instrumente cu acces rapid > Mai multe comenzi.

12. În Opțiuni Outlook casetă de dialog, trebuie să configurați după cum urmează.

12.1) Selectați Macrocomenzi în Alegeți comenzi de la lista verticală;
12.2) Selectați Project1.ChangeSubject în caseta de listă a comenzilor;
12.3) Faceți clic pe Adăuga buton;
12.4) Faceți clic pe OK buton. Vedeți captura de ecran:

13. Apoi puteți vedea că un buton a fost adăugat la panglica ferestrei de mesaje.

14. Acum trebuie să reporniți Outlook.

15. Când compuneți un mesaj de e-mail, dacă trebuie să introduceți un subiect prestabilit, trebuie doar să faceți clic pe butonul nou adăugat de pe panglică pentru a afișa formularul de utilizator, să selectați un subiect din meniul derulant și apoi să faceți clic pe OK butonul pentru a o completa în linia de subiect.

notițe:

1) Puteți schimba subiectul existent cu orice subiect selectat în lista derulantă;
2) Această metodă funcționează bine atunci când răspundeți sau redirecționați un e-mail într-o fereastră nouă;
3) Dacă aveți tendința de a răspunde la e-mailuri în linie din panoul de citire, în loc să deschideți o fereastră separată, puteți afișa formularul de utilizator după cum urmează.
3.1) Faceți clic pe Dezvoltator > Macrocomenzi > Project1.ChangeSubject. Vedeți captura de ecran:

3.2) Când apare formularul de utilizator, selectați un subiect prestabilit din lista derulantă și faceți clic pe OK butonul, subiectul original va fi schimbat imediat.

4) Dacă selectați Nici o schimbare în meniul derulant, subiectul original va fi păstrat fără nicio modificare.

Kutools pentru Outlook - aduce 100 de caracteristici avansate în Outlook și face munca mult mai ușoară!

  • Auto CC / BCC prin reguli la trimiterea e-mailului; Auto înainte Mai multe e-mailuri personalizate; Răspuns automat fără server de schimb și mai multe funcții automate ...
  • Avertisment BCC - afișați mesajul când încercați să răspundeți la toate dacă adresa dvs. de e-mail se află în lista BCC; Amintiți-vă când lipsesc atașamentele, și mai multe caracteristici de reamintire ...
  • Răspundeți (Toate) Cu toate atașamentele din conversația prin e-mail; Răspunde la multe e-mailuri în secunde; Adăugare automată felicitare când răspundeți; Adăugați o dată în subiect ...
  • Instrumente de atașament: gestionați toate atașamentele din toate e-mailurile, Detașare automată, Comprimă toate, Redenumiți toate, Salvați toate ... Raport rapid, Numărați mesajele selectate...
  • E-mailuri nedorite puternice după obicei; Eliminați e-mailurile și persoanele de contact duplicate... Vă permit să faceți mai inteligent, mai rapid și mai bine în Outlook.
shot kutools outlook kutools fila 1180x121
shot kutools outlook kutools plus fila 1180x121
 
Comentarii (0)
Încă nu există evaluări. Fii primul care evaluează!
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL