2 metodi rapidi per ottenere l'età del tuo contatto di Outlook

A volte, potresti voler contare l'età dei tuoi contatti di Outlook. Ma Outlook non ha questa funzione e il conteggio manuale sarà soggetto a errori. Pertanto, questo articolo ti presenterà 2 approcci rapidi tramite Outlook VBA.

Quando si creano nuovi contatti in Outlook, è possibile inserire le date di compleanno dei contatti. Outlook creerà automaticamente gli eventi di compleanno ricorrenti corrispondenti nel calendario. In questo modo, quando si avvicina il compleanno di qualcuno, si riceverà un promemoria. A questo punto, probabilmente vorrete conoscere l'età del contatto. Tuttavia, Outlook non dispone di una funzione nativa per calcolare l'età di un contatto. Fortunatamente, possiamo utilizzare Outlook VBA per ottenere questo dato con estrema facilità.

Metodo 1: ottieni l'età di un contatto di Outlook specifico

1. Per iniziare, apri Outlook e premi i tasti “Alt + F11”.
2. Quindi, nella nuova finestra "Microsoft Visual Basic for Applications", dovresti aprire un nuovo modulo e copiarvi i seguenti codici 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

3. Successivamente, puoi uscire dalla finestra corrente e aggiungere la nuova macro alla barra di accesso rapido come al solito.
4. Successivamente, puoi accedere alla cartella Contatti e selezionare il contatto specifico e premere il pulsante macro nella barra di accesso rapido.
5. Alla fine potresti ottenere i seguenti risultati:

• Se non hai inserito i compleanni del contatto, riceverai un avviso come l'immagine seguente:
• Se hai inserito il compleanno del contatto, otterrai una finestra di dialogo che ti dirà l'età del contatto, come l'immagine qui sotto:

Il metodo 1 sarà noioso se vuoi ottenere l'età di molti o di tutti i tuoi contatti. Quindi, continua a leggere per utilizzare il Metodo 2.

Metodo 2: ottieni rapidamente l'età di tutti i contatti di Outlook

1. All'inizio, vai al riquadro Contatti e premi il pulsante "Visualizza impostazioni" nella scheda "Visualizza".
2. Nella nuova finestra di dialogo "Impostazioni visualizzazione avanzata", premi il pulsante "Colonne".
3. Quindi, nella finestra di dialogo "Mostra colonne", premi il pulsante "Nuova colonna". Nella finestra di dialogo "Nuova colonna", digita "Età" nella casella "Nome", quindi premi "OK".
4. Successivamente, fai clic su una serie di "OK" per tornare alla finestra principale di Outlook.
5. Successivamente, premi "Alt + F11" per aprire la finestra "Visual Basic" e copia i seguenti codici in un nuovo modulo.

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

6. Successivamente è possibile aggiungere la nuova macro alla barra di accesso rapido.
7. Alla fine seleziona tutti i contatti con "Ctrl + A" e premi il pulsante macro nella barra degli strumenti di accesso rapido. Otterrai l'età di tutti i contatti, tranne quelli che non hanno compilato i compleanni, come l'immagine qui sotto:

Attenzione ai rischi relativi ai dati di Outlook

Outlook è soggetto a corruzione. Pertanto, dovresti tenere d'occhio tutti i pericoli attorno ai tuoi dati di Outlook. Di solito sono virus, malware, interruzioni di corrente ed errori umani, ecc. Inoltre, in modo da assicurarti di poterlo fare rapidamente riparare la corruzione dei dati PST di Outlook, faresti meglio a tenere uno strumento di riparazione esperto nelle vicinanze, come DataNumen Outlook Repair.

Introduzione dell'autore:

Shirley Zhang è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparare il file SQL danneggiato e prodotti software di riparazione di Outlook. Per maggiori informazioni visita www.datanumen.com