Skip i'r prif gynnwys

Sut i gyfrifo a dangos oedrannau erbyn penblwyddi ar galendr Outlook?

A siarad yn gyffredinol, bydd pen-blwydd cyswllt yn cael ei ychwanegu'n awtomatig fel apwyntiad cylchol blynyddol yn y calendr. Ond a ydych chi'n gwybod sut i gyfrifo oedran y cyswllt a dangos yr oedran yn uniongyrchol yng ngolwg y calendr? Bydd yr erthygl hon yn cyflwyno VBA i ddarganfod oedran pob cyswllt a dangos yr oedran ar bwnc apwyntiad cylchol cymharol yn Outlook.

Cyfrifwch a dangoswch oedrannau erbyn penblwyddi ar galendr Outlook

Tab Office - Galluogi Golygu a Phori Tabiau yn Microsoft Office, Gwneud Gwaith yn Awel
Kutools ar gyfer Outlook - Hwb Outlook gyda 100 + Nodweddion Uwch ar gyfer Effeithlonrwydd Superior
Rhowch hwb i'ch Outlook 2021 - 2010 neu Outlook 365 gyda'r nodweddion uwch hyn. Mwynhewch dreial cynhwysfawr am ddim 60 diwrnod a dyrchafwch eich profiad e-bost!

swigen dde glas saethCyfrifwch a dangoswch oedrannau erbyn penblwyddi ar galendr Outlook

I gyfrifo oedran pob cyswllt a dangos yr oedran ym mhwnc apwyntiad cylchol cymharol yng nghalendr Outlook, gwnewch fel a ganlyn:

1. Agorwch y ffolder calendr diofyn, a gwasgwch Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau, ac yna pastiwch islaw cod VBA i mewn i ffenestr y modiwl newydd.

VBA: Cyfrifwch a dangoswch oedrannau cysylltiadau yng nghalendr 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. Gwasgwch y F5 allwedd neu'r Run botwm i redeg y VBA hwn.

Pan ddychwelwch i'r calendr diofyn, fe welwch fod oedran pob cyswllt yn cael ei gyfrifo a'i ddangos ym mhwnc yr apwyntiad pen-blwydd cylchol. Gweler y screenshot:

Nodiadau:
(1) Yn ddarostyngedig i apwyntiad pen-blwydd cylchol cyswllt penodol, mae oed y cyswllt hwn yn cael ei gofleidio gan cromfachau tebyg i (41 yn 2017), 41 yw yr oes, a 2017 yw'r flwyddyn gyfredol.
(2) Os byddwch chi'n newid pen-blwydd cyswllt penodol mewn ffolder cyswllt, bydd yr oedran yn cael ei dynnu o'r calendr yn awtomatig.
(3) Mae'r VBA hwn yn gweithio gyda'r calendr Outlook diofyn yn unig.


swigen dde glas saethErthyglau Perthnasol


Offer Cynhyrchiant Swyddfa Gorau

Kutools ar gyfer Rhagolwg - Dros 100 o Nodweddion Pwerus i Werthu Eich Outlook

🤖 Cynorthwy-ydd Post AI: E-byst pro ar unwaith gyda hud AI - un clic i atebion athrylith, tôn berffaith, meistrolaeth amlieithog. Trawsnewid e-bostio yn ddiymdrech! ...

📧 E-bostio Automation: Allan o'r Swyddfa (Ar gael ar gyfer POP ac IMAP)  /  Amserlen Anfon E-byst  /  Auto CC/BCC gan Reolau Wrth Anfon E-bost  /  Awto Ymlaen (Rheolau Uwch)   /  Auto Ychwanegu Cyfarchiad   /  Rhannwch E-byst Aml-Dderbynnydd yn Negeseuon Unigol yn Awtomatig ...

📨 Rheoli E-bost: Dwyn i gof E-byst yn Hawdd  /  Rhwystro E-byst Sgam gan Bynciau ac Eraill  /  Dileu E-byst Dyblyg  /  Chwilio Manwl  /  Cydgrynhoi Ffolderi ...

📁 Ymlyniadau ProArbed Swp  /  Swp Datgysylltu  /  Cywasgu Swp  /  Auto Achub   /  Datgysylltiad Auto  /  Cywasgiad Auto ...

🌟 Rhyngwyneb Hud: 😊Mwy o Emojis Pretty a Cŵl   /  Rhowch hwb i'ch Cynhyrchiant Outlook gyda Golygfeydd Tabbed  /  Lleihau Outlook Yn lle Cau ...

???? Rhyfeddodau un clic: Ateb Pawb ag Ymlyniadau Dod i Mewn  /   E-byst Gwrth-Gwe-rwydo  /  🕘Dangos Parth Amser yr Anfonwr ...

👩🏼‍🤝‍👩🏻 Cysylltiadau a Chalendr: Swp Ychwanegu Cysylltiadau O E-byst Dethol  /  Rhannwch Grŵp Cyswllt i Grwpiau Unigol  /  Dileu Atgoffa Pen-blwydd ...

Dros Nodweddion 100 Aros Eich Archwiliad! Cliciwch Yma i Ddarganfod Mwy.

 

 

Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
MsgBox "Fertig!" & vbCrLf & Zaehler & " Geburtstagseinträge geändert.", vbInformation, "Geburtstage angepasst "

Could you please translate this line for me? TIA
This comment was minimized by the moderator on the site
If possible, could you please give the above directive for auto-count in English??

Danke
This comment was minimized by the moderator on the site
Is there a way to set this up without using the birthday feature of the contact card?

On recurring could you set this up to show the number of years?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations