Τρόπος δημιουργίας ενός πλαισίου λίστας UserForm στο Outlook

Η γλώσσα προγραμματισμού μακροεντολών Visual Basic for Applications του Microsoft Outlook σάς δίνει τη δυνατότητα να προσθέσετε μια φόρμα σε ένα μήνυμα email που μπορεί να συλλέξει δεδομένα από τον παραλήπτη του. Για παράδειγμα, μπορείτε να εισαγάγετε ένα VBA UserForm και ένα πλαίσιο λίστας στο μήνυμά σας που εμφανίζει πολλά στοιχεία ή επιλογές από τις οποίες μπορεί να διαλέξει ο παραλήπτης. Προτού μπορέσετε να προσθέσετε αυτήν τη δυνατότητα στα μηνύματά σας, ωστόσο, πρέπει να προσθέσετε την καρτέλα Προγραμματιστής και τα εργαλεία της στην κορδέλα και να αλλάξετε τις ρυθμίσεις ασφαλείας του Outlook για να επιτρέψετε την εκτέλεση μακροεντολών VBA.

Βήμα 1

Κάντε κλικ στην καρτέλα "Αρχείο", "Επιλογές" και στη συνέχεια "Προσαρμογή κορδέλας".

Βήμα 2

Επιλέξτε το πλαίσιο με την ένδειξη "Προγραμματιστής" κάτω από τις Κύριες καρτέλες και, στη συνέχεια, κάντε κλικ στο "OK". Το Outlook θα επιστρέψει αυτόματα στον αρχικό πίνακα.

Βήμα 3

Κάντε κλικ στην καρτέλα "Αρχείο" και στη συνέχεια "Επιλογές", "Κέντρο αξιοπιστίας" και "Ρυθμίσεις κέντρου αξιοπιστίας".

Βήμα 4

Επιλέξτε "Ρυθμίσεις μακροεντολής", "Ενεργοποίηση όλων των μακροεντολών" και, στη συνέχεια, κάντε κλικ στο "OK" για να επιτρέψετε τη μακροεντολή του πλαισίου λίστας κατά τη διάρκεια της δοκιμής. Μόλις τελειώσετε με το UserForm, ωστόσο, μπορείτε να αλλάξετε τις ρυθμίσεις σας σε "Ειδοποιήσεις για όλες τις μακροεντολές" για περισσότερη ασφάλεια.

Βήμα 5

Επανεκκινήστε το Outlook για να ενεργοποιήσετε την αλλαγή των ρυθμίσεων ασφαλείας μακροεντολών.

Βήμα 6

Κάντε κλικ στην καρτέλα "Προγραμματιστής", "Μακροεντολές" και στη συνέχεια στην επιλογή "Μακροεντολές".

Βήμα 7

Πληκτρολογήστε ένα όνομα για τη μακροεντολή σας και, στη συνέχεια, κάντε κλικ στο "Δημιουργία".

Βήμα 8

Κάντε κλικ στο κουμπί "Εισαγωγή UserForm" για να εμφανιστεί η εργαλειοθήκη φόρμας και να δημιουργήσετε το UserForm που θα περιέχει το πλαίσιο λίστας σας.

Βήμα 9

Κάντε κλικ στο στοιχείο ελέγχου "Listbox" στην εργαλειοθήκη, κρατήστε πατημένο το κουμπί του ποντικιού, σύρετε το στοιχείο ελέγχου στο UserForm και μετά αφήστε το.

Βήμα 10

Κάντε κλικ στο στοιχείο ελέγχου "CommandButton" στην εργαλειοθήκη, κρατήστε πατημένο το κουμπί του ποντικιού, σύρετε το στο UserForm και στη συνέχεια αφήστε το.

Βήμα 11

Κάντε δεξί κλικ στο "CommandButton" στο UserForm και, στη συνέχεια, κάντε κλικ στο "View Code" για να εμφανίσετε τον κώδικα μακροεντολής VBA.

Βήμα 12

Προσθήκη στοιχείων στο πλαίσιο λίστας χρησιμοποιώντας τη συνάρτηση AddItem. Για παράδειγμα, εάν θέλετε το πλαίσιο λίστας να περιέχει τα τρία κύρια χρώματα, ο κώδικάς σας θα πρέπει να μοιάζει με το ακόλουθο:

Private Sub CommandButton1_Click () ListBox1.AddItem "Red" ListBox1.AddItem "Green" ListBox1.AddItem "Blue" End Sub

ListBox1 είναι το όνομα που το Outlook δίνει αυτόματα το πλαίσιο λίστας που σύρετε στο UserForm. Η δήλωση ListBox1.AddItem "Red" καθιστά το κόκκινο το πρώτο στοιχείο στο πλαίσιο λίστας.

Κάντε κλικ στο "Αποθήκευση", πατήστε "F5" και στη συνέχεια κάντε κλικ στο κουμπί CommandBut για να εκτελέσετε τη μακροεντολή. Όταν εκτελείτε τη μακροεντολή και κάνετε κλικ στο "CommandButton", τα χρώματα Κόκκινο, Πράσινο και Μπλε θα εμφανιστούν στο πλαίσιο λίστας.