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

Πώς να δημιουργήσετε μια αναπτυσσόμενη λίστα για θέματα στο 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 κάτω από το κουμπί Αρχική καρτέλα για να δημιουργήσετε ένα 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 και κάνει την εργασία πολύ πιο εύκολη!

  • Αυτόματο CC / BCC με κανόνες κατά την αποστολή email · Αυτόματη προώθηση Πολλαπλά μηνύματα ηλεκτρονικού ταχυδρομείου κατά παραγγελία. Αυτόματη απάντηση χωρίς διακομιστή ανταλλαγής και περισσότερες αυτόματες δυνατότητες ...
  • Προειδοποίηση BCC - εμφάνιση μηνύματος όταν προσπαθείτε να απαντήσετε σε όλα εάν η διεύθυνση αλληλογραφίας σας βρίσκεται στη λίστα BCC; Υπενθύμιση όταν λείπουν συνημμένακαι περισσότερες λειτουργίες υπενθύμισης ...
  • Απάντηση (Όλα) Με όλα τα συνημμένα στη συνομιλία μέσω ταχυδρομείου; Απάντηση σε πολλά email σε δευτερόλεπτα; Αυτόματη προσθήκη χαιρετισμού κατά την απάντηση Προσθήκη ημερομηνίας στο θέμα ...
  • Εργαλεία συνημμένων: Διαχείριση όλων των συνημμένων σε όλα τα μηνύματα, Αυτόματη απόσπαση, Συμπίεση όλων, Μετονομασία όλων, Αποθήκευση όλων ... Γρήγορη αναφορά, Καταμέτρηση επιλεγμένων μηνυμάτων...
  • Ισχυρά ανεπιθύμητα email κατά παραγγελία? Κατάργηση διπλότυπων μηνυμάτων και επαφών... Σας επιτρέπουν να κάνετε πιο έξυπνα, πιο γρήγορα και καλύτερα στο Outlook.
shot kutools outlook kutools καρτέλα 1180x121
shot kutools outlook kutools συν καρτέλα 1180x121
 
Σχόλια (0)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL