Πώς να ομαδοποιήσετε το αρχείο ως μορφή για όλες τις επαφές στο Outlook;
Σε γενικές γραμμές, τα αρχεία επαφών εμφανίζονται ως Επώνυμο Όνομα στο Outlook, αλλά πώς μπορείτε γρήγορα να αλλάξετε μαζικά τα αρχεία επαφών ως μορφή σε Εταιρεία ή άλλη παραγγελία όπως φαίνεται στο παρακάτω στιγμιότυπο οθόνης; Η προεπιλεγμένη παραγγελία "Αρχείο ως" μπορεί να λειτουργήσει μόνο για τη νέα επαφή αλλά όχι για την υπάρχουσα. Εδώ, εισάγω έναν κώδικα VBA για να αλλάζουμε το αρχείο ως μορφή για όλες τις υπάρχουσες επαφές στο Outlook.
Μαζική αλλαγή αρχείου όπως για όλες τις επαφές με το VBA
Μαζική αλλαγή αρχείου όπως για όλες τις επαφές με το VBA
1. Επιλέξτε τις επαφές που θέλετε να αλλάξετε το αρχείο, πατήστε Alt + F11 πλήκτρα για να ενεργοποιήσετε το Microsoft Visual Basic for Applications παράθυρο.
2. Κάντε διπλό κλικ στο ThisOutlookSession in Project-Project1 παράθυρο και αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο κενό σενάριο.
VBA: Αλλαγή αρχείου ως
Sub ChangeFileAsforContracts()
'UpdatebyExtendoffice20180404
Dim xSelItems As Object
Dim xItem As Object
Dim xContact As ContactItem
Dim xFileAs As String
On Error Resume Next
If Outlook.Application.ActiveExplorer.CurrentFolder.DefaultItemType <> olContactItem Then
MsgBox "Please select the contact folder first", vbInformation + vbOKOnly, "Kutools for Outlook"
Exit Sub
End If
Set xSelItem = Outlook.ActiveExplorer.Selection
For Each xItem In xSelItem
If xItem.Class = olContact Then
Set xContact = xItem
With xContact
If .CompanyName = "" Then
xFileAs = .FullName
Else
xFileAs = .CompanyName
End If
.FileAs = xFileAs
.Save
End With
End If
Next
End Sub
3. Τύπος F5 κλειδί για να εκτελέσετε τον κωδικό και, στη συνέχεια, όλες οι επιλεγμένες επαφές έχουν αλλάξει το αρχείο ως εταιρεία.
Σημείωση:
1. Στον κωδικό, μπορείτε να αλλάξετε CompanyName σε άλλα πεδία που θέλετε να εμφανίσετε το αρχείο ως.
2. Εάν δεν υπάρχουν πληροφορίες εταιρείας, θα εμφανιστεί το πλήρες όνομα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Outlook - Πάνω από 100 ισχυρές δυνατότητες για υπερφόρτιση του Outlook σας
🤖 Βοηθός αλληλογραφίας AI: Άμεσα επαγγελματικά email με μαγεία AI -- με ένα κλικ για ιδιοφυείς απαντήσεις, τέλειος τόνος, πολυγλωσσική γνώση. Μεταμορφώστε τα email χωρίς κόπο! ...
📧 Αυτοματοποίηση ηλεκτρονικού ταχυδρομείου: Εκτός γραφείου (Διαθέσιμο για POP και IMAP) / Προγραμματισμός αποστολής email / Αυτόματο CC/BCC βάσει κανόνων κατά την αποστολή email / Αυτόματη προώθηση (Σύνθετοι κανόνες) / Αυτόματη προσθήκη χαιρετισμού / Διαχωρίστε αυτόματα τα μηνύματα ηλεκτρονικού ταχυδρομείου πολλών παραληπτών σε μεμονωμένα μηνύματα ...
📨 Διαχείριση e-mail: Εύκολη ανάκληση email / Αποκλεισμός απάτης email από υποκείμενα και άλλους / Διαγραφή διπλότυπων μηνυμάτων ηλεκτρονικού ταχυδρομείου / Προχωρημένη Αναζήτηση / Ενοποίηση φακέλων ...
📁 Συνημμένα Pro: Μαζική αποθήκευση / Αποσύνδεση παρτίδας / Συμπίεση παρτίδας / Αυτόματη αποθήκευση / Αυτόματη απόσπαση / Αυτόματη συμπίεση ...
🌟 Διασύνδεση Magic: 😊Περισσότερα όμορφα και δροσερά emojis / Ενισχύστε την παραγωγικότητά σας στο Outlook με προβολές με καρτέλες / Ελαχιστοποιήστε το Outlook αντί να κλείσετε ...
???? Με ένα κλικ Wonders: Απάντηση σε όλους με εισερχόμενα συνημμένα / Email κατά του phishing / 🕘Εμφάνιση ζώνης ώρας αποστολέα ...
👩🏼🤝👩🏻 Επαφές & Ημερολόγιο: Μαζική προσθήκη επαφών από επιλεγμένα μηνύματα ηλεκτρονικού ταχυδρομείου / Διαχωρίστε μια ομάδα επαφής σε μεμονωμένες ομάδες / Κατάργηση υπενθυμίσεων γενεθλίων ...
Διανεμήθηκαν παραπάνω από 100 Χαρακτηριστικά Περιμένετε την εξερεύνηση σας! Κάντε κλικ εδώ για να ανακαλύψετε περισσότερα.
