Μετάβαση στο κύριο περιεχόμενο

Πώς να δημιουργήσετε μια αναπτυσσόμενη λίστα για θέματα στο Outlook;

Μπορεί να έχετε διαφορετικά προκαθορισμένα θέματα email που πρέπει να διανεμηθούν σε διαφορετικούς παραλήπτες στο Outlook. Θα ήταν πολύ αποτελεσματικό να έχετε μια αναπτυσσόμενη λίστα γραμμής θέματος για την επιλογή ενός θέματος χωρίς να το πληκτρολογείτε με μη αυτόματο τρόπο κατά τη σύνταξη ενός email. Ακριβώς όπως το gif που παρουσιάζεται παρακάτω. Αυτό το σεμινάριο παρέχει τρεις κωδικούς VBA για να σας βοηθήσει να δημιουργήσετε μια αναπτυσσόμενη λίστα με διαφορετικά προκαθορισμένα θέματα. Κατά τη σύνταξη ενός email, μπορείτε να επιλέξετε οποιοδήποτε θέμα χρειάζεστε από το αναπτυσσόμενο μενού για να συμπληρώσετε αυτόματα τη γραμμή θέματος. Ακολουθήστε τον οδηγό βήμα προς βήμα για να το κάνετε.


Δημιουργήστε μια αναπτυσσόμενη λίστα για θέματα στο Outlook με κώδικα VBA

Στην πραγματικότητα, το Outlook δεν επιτρέπει την προσθήκη μιας αναπτυσσόμενης λίστας στη γραμμή θέματος. Εδώ πρέπει να δημιουργήσετε μια φόρμα χρήστη και να τη συνδυάσετε με κωδικούς VBA για να τη συμπληρώσετε.

1. Εκκινήστε το Outlook, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > UserForm.

3. Τότε το UserForm1 εισάγεται κάτω από Project1 στο αριστερό παράθυρο του Visual Basic συντάκτης. Πρέπει να προσθέσετε ένα σύνθετο πλαίσιο και ένα κουμπί εντολής σε αυτήν τη φόρμα χρήστη σύροντας το ComboBox και CommandButton αντίστοιχα από το Εργαλειοθήκη στο UserForm1.

4. Κάντε δεξί κλικ στο κουμπί εντολής και επιλέξτε Ιδιοκτησίες στο μενού δεξιού κλικ.

5. Στο Ιδιότητες – CommandButton1 παράθυρο, αλλάξτε το Λεζάντα πεδίο στο OK. Αυτή η ενέργεια θα αλλάξει το κείμενο που εμφανίζεται στο κουμπί εντολής.

6. Κάντε διπλό κλικ στην κενή περιοχή στο UserForm για να ανοίξετε την αντίστοιχη Φόρμα χρήστη (Κωδικός) παράθυρο και, στη συνέχεια, αντικαταστήστε τον υπάρχοντα κώδικα με τον ακόλουθο κώδικα VBA.

Κωδικός VBA 1: UserForm με μια αναπτυσσόμενη λίστα που περιλαμβάνει πολλά προκαθορισμένα θέματα email

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: Στον κώδικα, το Θέμα 1, 2, 3, 4 και 5 είναι τα προκαθορισμένα θέματα email που θέλετε να χρησιμοποιήσετε στα email σας. "Καμία αλλαγή” σημαίνει να μην αλλάξει τίποτα από το υπάρχον θέμα του email. Μπορείτε να αλλάξετε τα προκαθορισμένα θέματα email στον κώδικα VBA ανάλογα με τις ανάγκες σας.

7. Διπλό κλικ Project1 > Αντικείμενα του Microsoft Outlook > Αυτό το OutlookSession. Στη συνέχεια, αντιγράψτε τον ακόλουθο κώδικα VBA στο παράθυρο ThisOutlookSession (Κώδικας).

Ο κωδικός VBA 2 που χρησιμοποιείται στο παράθυρο 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. Κάντε κλικ Κύριο θέμα > Μονάδα μέτρησης στο Visual Basic συντάκτης. Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο Ενότητα (Κωδικός) παράθυρο.

Ο κωδικός VBA 3 χρησιμοποιείται στο παράθυρο Module

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. Αποθηκεύστε τους κωδικούς και πατήστε το άλλος + Q πλήκτρα για να κλείσετε το Επεξεργαστής Visual Basic παράθυρο και επιστρέψτε στην εφαρμογή Outlook.

10. Κάντε κλικ στο κουμπί Νέο Email κάτω από το κουμπί Home καρτέλα για να δημιουργήσετε ένα email.

11. Στο νέο παράθυρο μηνύματος, κάντε κλικ Προσαρμογή γραμμής εργαλείων γρήγορης πρόσβασης > Περισσότερες εντολές.

12. Στο Επιλογές του Outlook πλαίσιο διαλόγου, πρέπει να διαμορφώσετε ως εξής.

12.1) Επιλέξτε Μακροεντολές στο Επιλέξτε εντολές από αναπτυσσόμενη λίστα;
12.2) Επιλέξτε Project1.ChangeSubject στο πλαίσιο λίστας εντολών.
12.3) Κάντε κλικ στο Πρόσθεση κουμπί;
12.4) Κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:

13. Τότε μπορείτε να δείτε ότι ένα κουμπί έχει προστεθεί στην κορδέλα του παραθύρου μηνύματος.

14. Τώρα πρέπει να επανεκκινήσετε το Outlook.

15. Κατά τη σύνταξη ενός μηνύματος email, εάν χρειάζεται να εισαγάγετε ένα προκαθορισμένο θέμα, πρέπει απλώς να κάνετε κλικ στο κουμπί που προστέθηκε πρόσφατα στην κορδέλα για να εμφανιστεί η φόρμα χρήστη, να επιλέξετε ένα θέμα από το αναπτυσσόμενο μενού και, στη συνέχεια, κάντε κλικ στο OK κουμπί για να το συμπληρώσετε στη γραμμή θέματος.

Notes:

1) Μπορείτε να αλλάξετε το υπάρχον θέμα με οποιοδήποτε θέμα επιλεγεί στην αναπτυσσόμενη λίστα.
2) Αυτή η μέθοδος λειτουργεί καλά όταν απαντάτε ή προωθείτε ένα μήνυμα ηλεκτρονικού ταχυδρομείου σε νέο παράθυρο.
3) Εάν έχετε την τάση να απαντάτε σε μηνύματα ηλεκτρονικού ταχυδρομείου εν σειρά από το παράθυρο ανάγνωσης αντί να ανοίγετε ένα ξεχωριστό παράθυρο, μπορείτε να εμφανίσετε τη φόρμα χρήστη ως εξής.
3.1) Κάντε κλικ στο κουμπί Εργολάβος > Μακροεντολές > Project1.ChangeSubject. Δείτε το στιγμιότυπο οθόνης:

3.2) Όταν εμφανιστεί η φόρμα χρήστη, επιλέξτε ένα προκαθορισμένο θέμα από την αναπτυσσόμενη λίστα και κάντε κλικ στο OK κουμπί, το αρχικό θέμα θα αλλάξει αμέσως.

4) Εάν επιλέξετε Καμία αλλαγή στο αναπτυσσόμενο μενού, το αρχικό θέμα θα διατηρηθεί χωρίς αλλαγές.

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας

📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP)  /  Προγραμματισμός αποστολής email  /  Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email  /  Αυτόματη προώθηση (Σύνθετοι κανόνες)   /  Αυτόματη προσθήκη χαιρετισμού   /  Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...

📨 Διαχείριση e-mail: Εύκολη ανάκληση email  /  Αποκλεισμός απάτης email από υποκείμενα και άλλους  /  Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου  /  Προχωρημένη Αναζήτηση  /  Ενοποίηση φακέλων ...

📁 Συνημμένα ProΜαζική αποθήκευση  /  Αποσύνδεση παρτίδας  /  Συμπίεση παρτίδας  /  Αυτόματη αποθήκευση   /  Αυτόματη απόσπαση  /  Αυτόματη συμπίεση ...

🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis   /  Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες  /  Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...

???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα  /   Email κατά του phishing  /  🕘Εμφάνιση ζώνης ώρας αποστολέα ...

👩🏼‍🤝‍👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου  /  Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες  /  Κατάργηση υπενθυμίσεων γενεθλίων ...

Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.

 

 

Comments (6)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi,

I have made the procedure but when i clic on the macro button, they don't have any action ?
Could you help me ?
This comment was minimized by the moderator on the site
Hi,

Sorry for the inconvenience. Did you follow the instructions provided in the post exactly? Can you tell me which version of Excel you are using?
This comment was minimized by the moderator on the site
I would like to creat an E-mail draft with such a drop down list for the subject.
Is it possible to attache this function to an mail template or does it have to be installed in the software of each user?
This comment was minimized by the moderator on the site
Hi Hana,

The code can't be attached to an email template, users who need to use this dropdown list will need to follow the steps in the tutorial to add the code to their Outlook.
This comment was minimized by the moderator on the site
Hi,

This is great. Is it possible to do the same for Outlook Calendar invites...meetings and appointments?
This comment was minimized by the moderator on the site
Hi James Marr,

This method does not support Outlook Calendar at the moment. Sorry for the inconvenience.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations