Όταν στέλνετε ένα πολύ μεγάλο email, θα είναι δύσκολο να το στείλετε με επιτυχία. Γιατί λοιπόν να μην κάνετε το Outlook να ελέγχει αυτόματα το μέγεθος της αλληλογραφίας πριν από την αποστολή; Αυτό το άρθρο θα σας διδάξει πώς να το πραγματοποιήσετε με το Outlook VBA.
Ως συνήθως, όταν σκοπεύετε να επισυνάψετε ένα αρχείο μεγαλύτερο από ένα συγκεκριμένο μέγεθος, θα λάβετε μια ειδοποίηση του Outlook, η οποία θα σας εμποδίσει να το επισυνάψετε. Το MS Outlook διαθέτει αυτήν τη δυνατότητα, με σκοπό να διασφαλίσει ότι το email μπορεί να αποσταλεί με επιτυχία. Αλλά αν το email είναι πολύ μεγάλο, ίσως λόγω του ότι περιέχει πάρα πολλά συνημμένα, παρόλο που κάθε συνημμένο είναι εντός του κατάλληλου μεγέθους, είναι ακόμα δύσκολο να το στείλετε. Προτείνεται λοιπόν να μην στείλετε πολύ μεγάλο email Τότε, πώς μπορείτε να προσδιορίσετε εάν το email είναι πολύ μεγάλο ή όχι; Επικεντρώθηκε σε αυτό το ζήτημα, εδώ θα παρουσιάσουμε μια μέθοδο για να επιτρέψουμε στο Outlook να ελέγχει αυτόματα το μέγεθος και να σας προτρέπει εάν το email είναι μεγαλύτερο από το προκαθορισμένο μέγιστο μέγεθος.
Σας προειδοποιούν όταν στέλνετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου μεγαλύτερο από ένα συγκεκριμένο μέγεθος
- Στην αρχή, start Outlook και μεταβείτε στην καρτέλα "Προγραμματιστής".
- Στη συνέχεια, κάντε κλικ στο κουμπί "Visual Basic".
- Στη συνέχεια, στο αναδυόμενο παράθυρο "Microsoft Visual Basic for Applications", θα πρέπει να κάνετε διπλό κλικ στο έργο "ThisOutlookSession" στην αριστερή πλευρά.
- Στη συνέχεια, μπορείτε να αντιγράψετε και να επικολλήσετε τους ακόλουθους κωδικούς VBA στο νέο έργο.
Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim olSize As Long
Dim MaxSize As Long
Dim strMsg As String
Dim nRes As Integer
olSize = Item.Size
MaxSize = 20000 'in bytes
If olSize > MaxSize Then
strMsg = "The current mail has exceeded " & MaxSize & " bytes." & vbCrLf & "It may fail to be sent out. Do you still want to send it anyway?"
nRes = MsgBox(strMsg, vbYesNo + vbExclamation, "Check Mail Size")
If nRes = vbNo Then
Cancel = True
End If
End If
End Sub
- Μετά από αυτό, υπογράψτε ψηφιακά αυτόν τον κωδικό. Χρησιμοποιήστε τα "Ψηφιακά πιστοποιητικά για έργα VBA" για να δημιουργήσετε ένα πιστοποιητικό και, στη συνέχεια, εκχωρήστε αυτό το πιστοποιητικό στον κώδικα.
- Τέλος, μπορείτε να βγείτε από το τρέχον παράθυρο και να συνεχίσετε να δοκιμάζετε. Όταν προσπαθείτε να στείλετε ένα μήνυμα ηλεκτρονικού ταχυδρομείου που είναι μεγαλύτερο από το προκαθορισμένο μέγιστο μέγεθος, θα λάβετε μια προειδοποίηση, όπως το ακόλουθο στιγμιότυπο οθόνης:
Τι πρέπει να κάνετε εάν το Outlook αποτυγχάνει πάντα στην αποστολή / λήψη
Το Outlook είναι επιρρεπές σε λάθη. Επομένως, δεν είναι ασυνήθιστο να αποτύχετε στην αποστολή / λήψη email. Πώς μπορείτε λοιπόν να αντιμετωπίσετε τέτοιου είδους ζητήματα; Σε γενικές γραμμές, μπορείτε πρώτα να επικοινωνήσετε με τον διαχειριστή του διακομιστή σας για να ρωτήσετε εάν υπάρχει κάτι λάθος στον διακομιστή. Εάν δεν υπάρχει τίποτα λάθος, θα πρέπει να αντιμετωπίσετε το ζήτημα από τον δικό σας πελάτη. Ως συνήθως, μπορεί να προκύψει από κατεστραμμένα αρχεία SRS. Μπορείτε να διαγράψετε το αρχείο και το restart Outlook για να το δημιουργήσετε ξανά. Εάν τα σφάλματα επιμένουν, είναι πολύ πιθανό να αντιμετωπίσετε Σφάλμα ηλεκτρονικού ταχυδρομείου Outlook PST. Δεν έχετε άλλη επιλογή να χρησιμοποιήσετε ένα ισχυρό εργαλείο επισκευής, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση κατεστραμμένης βάσης δεδομένων MDF και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com