Μερικές φορές, μπορεί να θέλετε να μετρήσετε την ηλικία των επαφών σας στο Outlook. Αλλά το Outlook δεν έχει αυτήν τη λειτουργία και η μη αυτόματη καταμέτρηση θα είναι επιρρεπής σε σφάλματα. Έτσι, αυτό το άρθρο θα σας παρουσιάσει 2 γρήγορες προσεγγίσεις μέσω του Outlook VBA.
Όταν δημιουργείτε νέες επαφές στο Outlook, μπορείτε να εισαγάγετε τα γενέθλια των επαφών. Στη συνέχεια, το Outlook θα δημιουργήσει αυτόματα τα αντίστοιχα επαναλαμβανόμενα συμβάντα γενεθλίων στο ημερολόγιό σας. Έτσι, όταν έρθουν τα γενέθλια κάποιου, θα λάβετε μια υπενθύμιση. Σε αυτό το σημείο, θα πρέπει να θέλετε να μάθετε την ηλικία της επαφής. Ωστόσο, το Outlook δεν διαθέτει εγγενή λειτουργία για τη μέτρηση της ηλικίας της επαφής. Ευτυχώς, μπορούμε να χρησιμοποιήσουμε το Outlook VBA για να το λάβουμε με απόλυτη ευκολία.
Μέθοδος 1: Αποκτήστε μια συγκεκριμένη ηλικία επαφής του Outlook
- Για να ξεκινήσετε, ανοίξτε το Outlook και πατήστε τα πλήκτρα "Alt + F11".
- Στη συνέχεια, στο νέο παράθυρο "Microsoft Visual Basic for Applications", θα πρέπει να ανοίξετε μια νέα ενότητα και να αντιγράψετε τους ακόλουθους κωδικούς VBA.
Sub CountContactAge()
Dim olContact As ContactItem
Dim bDay As Date
Dim Age As Integer
Dim strMsg As String
Dim nRes As Integer
Set olContact = Outlook.Application.ActiveExplorer.Selection.Item(1)
If TypeName(olContact) = "ContactItem" Then
If olContact.Birthday <> #1/1/4501# Then
bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
Age = DateDiff("yyyy", olContact.Birthday, bDay)
strMsg = olContact.FullName & " is " & Age & " years old now."
nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Contact Age")
Else
strMsg = "You haven't input " & olContact.FullName & "'s birthday yet."
nRes = MsgBox(strMsg, vbOKOnly + vbExclamation, "Count Contact Age")
End If
End If
End Sub
- Στη συνέχεια, μπορείτε να βγείτε από το τρέχον παράθυρο και να προσθέσετε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης όπως συνήθως.
- Μετά από αυτό, μπορείτε να αποκτήσετε πρόσβαση στο φάκελο "Επαφές" και να επιλέξετε τη συγκεκριμένη επαφή και να πατήσετε το κουμπί μακροεντολής στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Τέλος, μπορείτε να λάβετε τα ακόλουθα αποτελέσματα:
- Εάν δεν έχετε εισαγάγει τα γενέθλια της επαφής, θα λάβετε μια ειδοποίηση όπως η ακόλουθη εικόνα:
- Εάν έχετε εισαγάγει τα γενέθλια της επαφής, θα λάβετε ένα πλαίσιο διαλόγου που θα σας ενημερώνει για την ηλικία επαφής, όπως η παρακάτω εικόνα:
Η μέθοδος 1 θα είναι κουραστική αν θέλετε να αποκτήσετε αρκετές ή όλες τις ηλικίες των επαφών σας. Συνεπώς, διαβάστε για να χρησιμοποιήσετε τη Μέθοδο 2.
Μέθοδος 2: Αποκτήστε γρήγορα την ηλικία όλων των επαφών του Outlook
- Αρχικά, μεταβείτε στο παράθυρο "Επαφές" και πατήστε το κουμπί "Προβολή ρυθμίσεων" στην καρτέλα "Προβολή".
- Στο νέο παράθυρο διαλόγου "Ρυθμίσεις προβολής για προχωρημένους", πατήστε το κουμπί "Στήλες".
- Στη συνέχεια, στο παράθυρο διαλόγου "Εμφάνιση στηλών", πατήστε το κουμπί "Νέα στήλη". Στο παράθυρο διαλόγου "Νέα στήλη", πληκτρολογήστε "Ηλικία" στο πλαίσιο "Όνομα" και μετά πατήστε "OK".
- Μετά από αυτό, κάντε κλικ σε μια σειρά "OK" για να επιστρέψετε στο κύριο παράθυρο του Outlook.
- Στη συνέχεια, πατήστε "Alt + F11" για να ανοίξετε το παράθυρο "Visual Basic" και αντιγράψτε τους ακόλουθους κωδικούς σε μια νέα ενότητα.
Sub AddAgeColumn()
Dim obj As Object
Dim olContact As Object
Dim olProp As Outlook.UserProperty
Dim bDay As Date
Dim Age
On Error Resume Next
For Each obj In Application.ActiveExplorer.Selection
If TypeName(obj) = “ContactItem” And obj.Birthday <> #1/1/4501# Then
Set olContact = obj
bDay = DateSerial(Year(Now), Month(olContact.Birthday), Day(olContact.Birthday))
Age = DateDiff("yyyy", olContact.Birthday, bDay)
Set olProp = olContact.UserProperties.Add("Age", olText, True)
olProp.Value = Age
olContact.Save
End If
Err.Clear
Next
End Sub
- Αργότερα μπορείτε να προσθέσετε τη νέα μακροεντολή στη γραμμή εργαλείων γρήγορης πρόσβασης.
- Τελικά επιλέξτε όλες τις επαφές με "Ctrl + A" και πατήστε το κουμπί μακροεντολής στη Γραμμή εργαλείων γρήγορης πρόσβασης. Θα έχετε όλη την ηλικία των επαφών, εκτός από εκείνους που δεν έχουν γεμίσει γενέθλια, όπως η παρακάτω εικόνα:
Προσοχή στους κινδύνους γύρω από τα δεδομένα του Outlook
Το Outlook είναι επιρρεπές σε διαφθορά. Επομένως, πρέπει να παρακολουθείτε όλους τους κινδύνους γύρω από τα δεδομένα του Outlook. Συνήθως είναι ιοί, κακόβουλα προγράμματα, διακοπές ρεύματος και ανθρώπινα σφάλματα κ.λπ. Επιπλέον, για να διασφαλιστεί ότι μπορείτε γρήγορα επιδιορθώστε την καταστροφή δεδομένων του Outlook PST, καλύτερα να διατηρήσετε ένα έμπειρο εργαλείο επισκευής κοντά, όπως DataNumen Outlook Repair.
Εισαγωγή συγγραφέα:
Η Shirley Zhang είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επιδιόρθωση κατεστραμμένου αρχείου SQL και προϊόντα λογισμικού επισκευής προοπτικών. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com