Note: The other languages of the website are Google-translated. Back to English

Come calcolare e mostrare le età per compleanni sul calendario di Outlook?

In generale, il compleanno di un contatto verrà aggiunto automaticamente come appuntamento annuale ricorrente nel calendario. Ma sai come calcolare l'età del contatto e mostrare l'età direttamente nella vista calendario? Questo articolo introdurrà un VBA per capire l'età di ogni contatto e mostrare l'età in materia di relativo appuntamento ricorrente in Outlook.

Calcola e mostra le età per compleanni sul calendario di Outlook

Scheda Office: abilita la modifica a schede e la navigazione in Office e semplifica notevolmente il lavoro ...
Kutools for Outlook: porta 100 potenti funzionalità avanzate a Microsoft Outlook
  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple per regole; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo di posta è nella lista BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email contemporaneamente; Aggiunta automatica di saluto quando rispondi; Aggiungi automaticamente data e ora all'oggetto ...
  • Strumenti per gli allegati: Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto automaticamente ... Rapporto rapido, Conta le email selezionate, Rimuovi messaggi e contatti duplicati ...
  • Più di 100 funzionalità avanzate lo faranno risolvi la maggior parte dei tuoi problemi in Outlook 2021 - 2010 o Office 365. Funzionalità complete Prova gratuita di 60 giorni.

freccia blu freccia destraCalcola e mostra le età per compleanni sul calendario di Outlook

Per calcolare l'età di ogni contatto e mostrare l'età nell'oggetto del relativo appuntamento ricorrente nel calendario di Outlook, eseguire le seguenti operazioni:

1. Aprire la cartella del calendario predefinita e premere altro + F11 tasti per aprire la finestra di Microsoft Visual Basic, Applications Edition.

2. Clic inserire > Modulo, quindi incolla sotto il codice VBA nella finestra del nuovo modulo.

VBA: calcola e mostra l'età dei contatti nel calendario di Outlook

Option Explicit
Public Sub UpdateAges()
Dim xOlApp As Outlook.Application
Dim xOlFolder As Outlook.Folder
Dim xOlItems As Outlook.Items
Dim xAppointmentItem As AppointmentItem
Dim xAge As Integer
Dim xOlProp As Outlook.UserProperty
Set xOlApp = Outlook.Application
Set xOlFolder = Session.GetDefaultFolder(olFolderCalendar)
Set xOlItems = xOlFolder.Items
For Each xAppointmentItem In xOlItems
If (InStr(1, xAppointmentItem.Subject, "Birthday") Or InStr(1, xAppointmentItem.Subject, "Anniversary")) And xAppointmentItem.IsRecurring = True Then
With xAppointmentItem
If xAppointmentItem.UserProperties("Original Subject") Is Nothing Then
Set xOlProp = xAppointmentItem.UserProperties.Add("Original Subject", olText, True)
xOlProp.Value = .Subject
.Save
End If
xAge = DateDiff("yyyy", .Start, Date)
.Subject = .UserProperties("Original Subject") & " (" & xAge & " in " & Format(Date, "yyyy") & ")"
.Save
End With
End If
Next
Set xAppointmentItem = Nothing
Set xOlItems = Nothing
Set xOlFolder = Nothing
Set xOlApp = Nothing
End Sub

3. premi il F5 chiave o il Correre pulsante per eseguire questo VBA.

Quando torni al calendario predefinito, vedrai che l'età di ogni contatto è stata individuata e mostrata nell'oggetto dell'appuntamento di compleanno ricorrente. Vedi screenshot:

Note:
(1) Nell'oggetto dell'appuntamento di compleanno ricorrente di un determinato contatto, l'età di questo contatto è racchiusa tra parentesi simili a (41 nel 2017), 41 è l'età, e 2017 è l'anno in corso.
(2) Se si modifica la data di nascita di un determinato contatto nella cartella dei contatti, l'età verrà rimossa automaticamente dal calendario.
(3) Questo VBA funziona solo con il calendario di Outlook predefinito.


freccia blu freccia destraArticoli Correlati


Kutools for Outlook: porta 100 funzionalità avanzate in Outlook e semplifica notevolmente il lavoro!

  • Auto CC / BCC dalle regole durante l'invio di e-mail; Avanzamento automatico Email multiple personalizzate; Risposta automatica senza server di scambio e più funzioni automatiche ...
  • Avviso BCC - mostra il messaggio quando provi a rispondere a tutti se il tuo indirizzo e-mail è nell'elenco BCC; Ricorda quando mancano allegatie altre funzioni di promemoria ...
  • Rispondi (tutti) con tutti gli allegati nella conversazione di posta; Rispondi a molte email in secondi; Aggiunta automatica di saluto quando rispondi; Aggiungi la data all'oggetto ...
  • Strumenti per gli allegati: gestisci tutti gli allegati in tutti i messaggi, Scollegamento automatico, Comprimi tutto, Rinomina tutto, Salva tutto... Rapporto rapido, Conta le email selezionate...
  • E-mail spazzatura potenti per abitudine; Rimuovi messaggi e contatti duplicati... Consentono di fare in modo più intelligente, veloce e migliore in Outlook.
girato kutools outlook scheda kutools 1180x121
girato kutools outlook kutools plus tab 1180x121
 
Commenti (5)
Rinomato 4.5 su 5 · Valutazioni 1
Questo commento è stato fatto dal moderatore sul sito
C'è un modo per configurarlo senza utilizzare la funzione compleanno della scheda contatto?

In modo ricorrente potresti impostarlo per mostrare il numero di anni?
Questo commento è stato fatto dal moderatore sul sito
Nach einigen Anpassungen funktionierte die Anleitung auch bei Outlook 2010 in Deutsch.
Età > Alt
Anniversario > Jahrestag
Compleanno > Geburtstag von
Ergänzungen aus Modul1 (von https://www.pctipp.ch/praxis/office/outlook-kontakte-geburtstag-und-aktuelles-alter-anzeigen-1983795.html):
Dim Alter come stringa
Dim Zaehler
Dim Geb Jahr
MsgBox "Fertig!" & vbCrLf & Zaehler & " Geburtstagseinträge geändert.", vbInformation, "Geburtstage angepasst "

Befehlzeilen:
Opzione esplicita
Pubblico Sub UpdateAlter()
Dim xOlApp come Outlook.Application
Dim xOlFolder come Outlook.Folder
Dim xOlItems come Outlook.Items
Dim xAppointmentItem As AppointmentItem
Dim xAlter As Integer
Dim xOlProp come Outlook.UserProperty
Dim Alter come stringa
Dim Zaehler
Dim Geb Jahr
Imposta xOlApp = Outlook.Applicazione
Imposta xOlFolder = Session.GetDefaultFolder(olFolderCalendar)
Imposta xOlItems = xOlFolder.Items
Per ogni xAppointmentItem in xOlItems
If (InStr(1, xAppointmentItem.Subject, "Geburtstag von") O InStr(1, xAppointmentItem.Subject, "Jahretag")) E xAppointmentItem.IsRecurring = True Then
Con xAppointmentItem
Se xAppointmentItem.UserProperties ("Oggetto originale") non è nulla, allora
Imposta xOlProp = xAppointmentItem.UserProperties.Add("Oggetto originale", olText, True)
xOlProp.Value = .Oggetto
.Salva
End If
xAlter = DateDiff("aaaa", .Inizio, Data)
.Subject = .UserProperties("Oggetto originale") & " (" & xAlter & " in " & Format(Date, "yyyy") & ")"
.Salva
Fine Con
End If
Successiva
MsgBox "Fertig!" & vbCrLf & Zaehler & " Geburtstagseinträge geändert.", vbInformation, "Geburtstage angepasst "
Imposta xAppointmentItem = Niente
Imposta xOlItems = Niente
Imposta xOlFolder = Niente
Imposta xOlApp = Niente
End Sub
Questo commento è stato fatto dal moderatore sul sito
Cappello funktioniert - vielen Dank!
Rinomato 4.5 su 5
Questo commento è stato fatto dal moderatore sul sito
Se possibile, potresti fornire la direttiva di cui sopra per il conteggio automatico in inglese?

Grazie
Questo commento è stato fatto dal moderatore sul sito
MsgBox "Fertig!" & vbCrLf & Zaehler & " Geburtstagseinträge geändert.", vbInformation, "Geburtstage angepasst "

Potresti per favore tradurre questa riga per me? TIA
Non ci sono ancora commenti pubblicati qui
Lasciate i vostri commenti
Pubblicazione come ospite
×
Valuta questo post:
0   Personaggi
Posizioni suggerite

Seguici

Copyright © 2009 - www.extendoffice.com. | Tutti i diritti riservati. Offerto da ExtendOffice, | Mappa del sito
Microsoft e il logo Office sono marchi o marchi registrati di Microsoft Corporation negli Stati Uniti e / o in altri paesi.
Protetto da Sectigo SSL