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

Χρησιμοποιείτε συχνά το όνομα του συνημμένου ως θέμα email στο Outlook; Αν ναι, πρέπει να ελπίζετε ότι το Outlook μπορεί να το ολοκληρώσει αυτόματα. Αυτό το άρθρο θα εισαγάγει μια εύχρηστη μέθοδο για να το πραγματοποιήσετε με το Outlook VBA.

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

Αυτόματη συμπλήρωση θέματος ηλεκτρονικού ταχυδρομείου με το όνομα του συνημμένου

1. Αρχικά, μπορείτε να ξεκινήσετε το Outlook και να μεταβείτε στην καρτέλα "Προγραμματιστής".
2. Στη συνέχεια, κάτω από αυτήν την καρτέλα, πρέπει να κάνετε κλικ στο κουμπί "Visual Basic", το οποίο θα εμφανίσει τον επεξεργαστή VBA.
3. Στο επόμενο παράθυρο, θα πρέπει πρώτα να εντοπίσετε το έργο "ThisOutlookSession" στη λίστα έργων στη δεξιά πλευρά.
4. Επόμενο διπλό κλικ για να ανοίξετε αυτό το έργο. Στη συνέχεια, αντιγράψτε τους ακόλουθους κωδικούς σε αυτό.

Public WithEvents olInspectors As Outlook.Inspectors
Public WithEvents olMail As Outlook.MailItem

Private Sub Initialize_handlers()
    Set olInspectors = Application.Inspectors
End Sub

Private Sub olInspectors_NewInspector(ByVal Inspector As Inspector)
    Dim olItem As Object
    Set olItem = Inspector.CurrentItem
    If TypeName(olItem) = "MailItem" Then Set olMail = olItem
End Sub

Private Sub olMail_AttachmentAdd(ByVal Attachment As Attachment)
    If olMail.Subject = "" Then
      'If you don't want the prompt,
      'Just delete the Msgbox line and its corresponding "End if".
      If MsgBox("Do you want to use the attachment name as the subject", vbYesNo) = vbYes Then
         olMail.Subject = Attachment.DisplayName
      End If
    End If
End Sub

5. Μετά από αυτό, πρέπει να συνεχίσετε να εκχωρείτε ένα ψηφιακό πιστοποιητικό στο τρέχον έργο VBA κανονικά.

• Πρώτον, χρησιμοποιήστε το ενσωματωμένο βοηθητικό πρόγραμμα "Certηφιακά πιστοποιητικά για έργα VBA" για να δημιουργήσετε ένα ψηφιακό πιστοποιητικό.
• Στη συνέχεια, μπορείτε να υπογράψετε την τρέχουσα μακροεντολή.

6. Αργότερα βγείτε από τον επεξεργαστή VBA και αλλάξτε τις ρυθμίσεις μακροεντολής σε "Ειδοποιήσεις για μακροεντολές ψηφιακής υπογραφής, όλες οι άλλες μακροεντολές απενεργοποιημένες".
7. Τέλος, μπορείτε να δοκιμάσετε.

• Δημιουργήστε ένα νέο email.
• Εάν δεν έχετε συμπληρώσει το θέμα και σκοπεύετε να επισυνάψετε ένα αρχείο, θα λάβετε ένα μήνυμα, όπως η παρακάτω εικόνα:
• Όταν επιλέγετε "Ναι", το θέμα θα συμπληρωθεί αμέσως με το όνομα του συνημμένου.

Αντιμετωπίστε τα συχνά ζητήματα του Outlook

Με την προϋπόθεση ότι έχετε χρησιμοποιήσει το Outlook για δεκαετίες, πρέπει να έχετε αντιμετωπίσει πολλά προβλήματα του Outlook. Τότε, ποιες ενέργειες κάνετε συνήθως όταν τις συναντάτε; Προτείνεται να τα καταλάβουμε και να τα εξαλείψουμε το συντομότερο δυνατό. Αυτό συμβαίνει επειδή η συσσώρευση ζητημάτων μπορεί να βλάψει τα δεδομένα του Outlook ανά πάσα στιγμή. Επομένως, ακόμη και αν το Outlook μπορεί να λειτουργήσει κανονικά, καλύτερα να εφαρμόσετε είτε το εργαλείο επισκευής εισερχομένων είτε το εξωτερικό Βοηθητικό πρόγραμμα επισκευής σφαλμάτων Outlook PST, αρέσει DataNumen Outlook Repair, για σάρωση των αρχείων PST για τον εντοπισμό και την επίλυση σφαλμάτων.

Εισαγωγή συγγραφέα:

Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένη επισκευή SQL Server βάσεις δεδομένων και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com