2 métodos rápidos para conocer la edad de su contacto de Outlook

A veces, es posible que desee contar la edad de sus contactos de Outlook. Pero Outlook no tiene esta función y el recuento manual será propenso a errores. Por lo tanto, este artículo le presentará 2 enfoques rápidos a través de Outlook VBA.

Al crear nuevos contactos en Outlook, puedes introducir sus fechas de cumpleaños. Outlook creará automáticamente los eventos de cumpleaños recurrentes correspondientes en tu calendario. Así, cuando llegue el cumpleaños de alguien, recibirás un recordatorio. En este punto, seguramente querrás saber la edad del contacto. Sin embargo, Outlook no cuenta con una función nativa para calcularla. Afortunadamente, podemos usar VBA de Outlook para obtenerla fácilmente.

Método 1: obtener la edad de un contacto de Outlook específico

1. Para empezar, abre Outlook y pulsa las teclas “Alt + F11”.
2. Luego, en la nueva ventana "Microsoft Visual Basic para Aplicaciones", debe abrir un nuevo módulo y copiar los siguientes códigos VBA en él.

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. Posteriormente, puede salir de la ventana actual y agregar la nueva macro a la barra de herramientas de acceso rápido como de costumbre.
4. Después de eso, puede acceder a su carpeta Contactos y seleccionar el contacto específico y presionar el botón de macro en la barra de herramientas de acceso rápido.
5. Finalmente, puede obtener los siguientes resultados:

• Si no ingresó los cumpleaños del contacto, recibirá una alerta como la siguiente imagen:
• Si ingresó el cumpleaños del contacto, aparecerá un cuadro de diálogo que le indicará la edad del contacto, como la imagen a continuación:

El método 1 será tedioso si desea obtener la edad de varios o todos sus contactos. Por lo tanto, siga leyendo para utilizar el Método 2.

Método 2: Obtenga rápidamente la edad de todos los contactos de Outlook

1. Al principio, vaya al panel Contactos y presione el botón "Ver configuración" en la pestaña "Ver".
2. En el nuevo cuadro de diálogo "Configuración de vista avanzada", presione el botón "Columnas".
3. Luego, en el cuadro de diálogo "Mostrar columnas", presione el botón "Nueva columna". En el cuadro de diálogo "Nueva columna", escriba "Edad" en el cuadro "Nombre" y luego presione "Aceptar".
4. Después de eso, haga clic en una serie de "Aceptar" para volver a la ventana principal de Outlook.
5. Posteriormente, presione “Alt + F11” para abrir la ventana de “Visual Basic” y copie los siguientes códigos en un nuevo módulo.

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. Más tarde, puede agregar la nueva macro a la barra de herramientas de acceso rápido.
7. Finalmente, seleccione todos los contactos con "Ctrl + A" y presione el botón de macro en la barra de herramientas de acceso rápido. Obtendrá la edad de todos los contactos, excepto los que no tienen cumpleaños completos, como la imagen a continuación:

Tenga cuidado con los riesgos relacionados con sus datos de Outlook

Outlook es propenso a la corrupción. Por lo tanto, debe vigilar todos los peligros relacionados con sus datos de Outlook. Suelen ser virus, malware, cortes de energía y errores humanos, etc. Además, para asegurarse de que pueda reparar la corrupción de datos de Outlook PST, será mejor que tenga una herramienta de reparación con experiencia cerca, como DataNumen Outlook Repair.

Introducción del autor:

Shirley Zhang es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo reparar archivo SQL dañado y productos de software de reparación de Outlook. Para más información visite www.datanumen.com