Outlook takviminde yaşları doğum günlerine göre nasıl hesaplayabilir ve gösterebilirim?
Genel olarak konuşursak, bir kişinin doğum günü otomatik olarak takvime yıllık olarak yinelenen bir randevu olarak eklenecektir. Ancak, kişinin yaşını nasıl hesaplayacağınızı ve yaşını doğrudan takvim görünümünde nasıl göstereceğinizi biliyor musunuz? Bu makale, her bir kişinin yaşını belirlemek ve Outlook'ta göreceli olarak yinelenen randevu konusundaki yaşı göstermek için bir VBA tanıtacaktır.
Outlook takviminde yaşları doğum günlerine göre hesaplayın ve gösterin
- E-posta göndermeyi otomatikleştirin Otomatik CC / BCC, Otomatik İleri kurallara göre; Göndermek Otomatik cevap (Ofis Dışında) değişim sunucusu gerektirmeden...
- Şunun gibi hatırlatıcılar alın: BCC Uyarısı BCC listesindeyken herkese yanıt verirken ve Eksik Olduğunda Hatırlat Unutulan eklentiler için...
- E-posta verimliliğini artırın Yanıtla (Tümü) Eklerle birlikte, İmzaya veya Konuya Otomatik Selamlama veya Tarih ve Saat Ekleme, Birden Fazla E-postayı Yanıtlayın...
- E-posta göndermeyi kolaylaştırın E-postaları Geri Çağırma, Ek Araçları (Tümünü Sıkıştır, Tümünü Otomatik Kaydet...), Yinelemeleri Kaldır, ve Hızlı rapor...
Outlook takviminde yaşları doğum günlerine göre hesaplayın ve gösterin
Her bir kişinin yaşını hesaplamak ve Outlook takviminde göreceli tekrar eden randevu konusunda yaşı göstermek için lütfen aşağıdaki işlemleri gerçekleştirin:
1. Varsayılan takvim klasörünü açın ve Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.
2. tıklayın Ekle > modülve ardından yeni modül penceresine VBA kodunun altına yapıştırın.
VBA: Outlook takviminde kişilerin yaşlarını hesaplayın ve gösterin
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. basın F5 tuşu veya koşmak Bu VBA'yı çalıştırmak için düğmesine basın.
Varsayılan takvime geri döndüğünüzde, her bir kişinin yaşının belirlendiğini ve yinelenen doğum günü randevusu konusunda gösterildiğini göreceksiniz. Ekran görüntüsüne bakın:
notlar:
(1) Belirli bir kişinin tekrar eden doğum günü randevusu konusunda, bu kişinin yaşı, aşağıdakine benzer şekilde parantez içinde belirtilir: (41 içinde 2017), 41 yaş ve 2017 cari yıl.
(2) Kişi klasöründe belirli bir kişinin doğum gününü değiştirirseniz, yaş takvimden otomatik olarak kaldırılır.
(3) Bu VBA, yalnızca varsayılan Outlook takvimiyle çalışır.
İlgili Makaleler
Outlook'tan tüm kişilerin doğum günlerini dışa aktarın
Outlook'ta tüm doğum günü takvimini aynı anda kaldırın veya silin
En İyi Ofis Üretkenlik Araçları
Outlook için Kutools - Outlook'unuzu Güçlendirecek 100'den Fazla Güçlü Özellik
🤖 AI Posta Yardımcısı: Yapay zeka büyüsüyle anında profesyonel e-postalar: tek tıkla dahice yanıtlar, mükemmel ton, çok dilli ustalık. E-posta göndermeyi zahmetsizce dönüştürün! ...
???? E-posta Otomasyonu: Ofis Dışında (POP ve IMAP için kullanılabilir) / E-posta Gönderimini Planla / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik İletme (Gelişmiş Kurallar) / Otomatik Karşılama Ekleme / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölün ...
📨 E-posta Yönetimi: E-postaları Kolayca Geri Çağırın / Dolandırıcılık E-postalarını Konulara ve Diğerlerine Göre Engelleyin / Yinelenen E-postaları Silin / gelişmiş Arama / Klasörleri Birleştir ...
📁 Ekler Pro: Toplu Kaydetme / Toplu Ayır / Toplu Sıkıştırma / Otomatik kaydet / Otomatik Ayır / Otomatik Sıkıştır ...
🌟 Arayüz Büyüsü: 😊Daha Fazla Güzel ve Havalı Emoji / Sekmeli Görünümlerle Outlook Verimliliğinizi Artırın / Outlook'u Kapatmak Yerine Küçültün ...
👍 Tek Tıklamayla Harikalar: Tümünü Gelen Eklerle Yanıtla / Kimlik Avına Karşı E-postalar / 🕘Gönderenin Saat Dilimini Göster ...
👩🏼🤝👩🏻 Kişiler ve Takvim: Seçilen E-postalardan Toplu Kişi Ekleme / Kişi Grubunu Bireysel Gruplara Bölme / Doğum Günü Hatırlatıcılarını Kaldır ...
üzerinde 100 Özellikler Keşfinizi Bekleyin! Daha Fazlasını Keşfetmek İçin Buraya Tıklayın.