Excel'den Outlook takvimine doğum günlerini nasıl aktarabilirim?

Author: Xiaoyang Last Modified: 2025-06-10

Eğer bir çalışma sayfasında uzun bir doğum günü bilgisi listesi varsa ve şimdi bu doğum günlerini Outlook takviminize etkinlik olarak aktarmak istiyorsanız, bu görevi hızlı yöntemlerle nasıl halledebilirsiniz?

VBA kodu ile Excel'den Outlook takvimine doğum günlerini aktarma

Normalde, doğum günlerini doğrudan Outlook takvimine aktarmak için bir yol bulunmamaktadır. Bu nedenle, bu sorunu çözmek için bir VBA kodu oluşturacağım. Lütfen aşağıdaki adımları izleyin:

1. Doğum günlerini Outlook'a aktarmak istediğiniz çalışma sayfasını açın ve ardından Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.

2. Ekle Insert > Module'e tıklayın ve aşağıdaki kodu Modül Penceresine yapıştırın.

VBA Kodu: Outlook takvimine doğum günlerini aktarma

Sub ImportBirthdaysToCalendar()
'Updateby ExtendOffice
Dim xWs As Excel.Worksheet
Dim xRng As Range
Dim xOlApp As Outlook.Application
Dim xCalendarFld As Outlook.Folder
Dim xAppointmentItem As Outlook.AppointmentItem
Dim xRecurrencePattern As Outlook.RecurrencePattern
Dim xRow As Integer
On Error Resume Next
Set xWs = ThisWorkbook.ActiveSheet
Set xRng = Application.InputBox("Please select the data range (only two columns):", "Kutools for Excel", , , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count <> 2 Then
  MsgBox "You can only select two columns", vbOKOnly + vbCritical, "Kutools for Excel"
  Exit Sub
End If
Set xOlApp = CreateObject("Outlook.Application")
Set xCalendarFld = xOlApp.Session.GetDefaultFolder(olFolderCalendar)
For xRow = 1 To xRng.Rows.Count
  Set xAppointmentItem = xCalendarFld.Items.Add("IPM.Appointment")
  With xAppointmentItem
    .Subject = xRng.Cells(xRow, 1) & Chr(39) & "s Birthday"
    .AllDayEvent = True
    .Start = xRng.Cells(xRow, 2)
    Set xRecurrencePattern = .GetRecurrencePattern
    xRecurrencePattern.RecurrenceType = olRecursYearly
    .Save
  End With
Next
Set xWs = Nothing
Set xCalendarFld = Nothing
Set xOlApp = Nothing
End Sub

3. Hala Microsoft Visual Basic for Applications penceresindeyken, Araçlar > Referanslar'a tıklayın. Açılan Referanslar – VBAProject iletişim kutusunda, Mevcut Referanslar listesinden Microsoft Outlook 16.0 Object Library seçeneğini işaretleyin, ekran görüntüsüne bakın:

4. Ardından bu iletişim kutusunu kapatmak için Tamam'a tıklayın. Şimdi, bu kodu çalıştırmak için F5 tuşuna basın ve bir uyarı kutusu açılacak; lütfen isim ve doğum günü sütunlarını seçin, ekran görüntüsüne bakın:

5. Ve sonra Tamam düğmesine tıklayın, doğum günleri hemen Outlook takvimine aktarılacak ve sonucu görmek için Outlook'unuzu başlatabilirsiniz, ekran görüntüsüne bakın:

Outlook'daki AI Mail Asistanı: Daha Akıllı Yanıtlar, Daha Açık İletişim (tek tıklama sihirbazlığı!) ÜCRETSİZ

Kutools for Outlook'un AI Mail Asistanı ile günlük Outlook görevlerinizi kolaylaştırın. Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek size akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesaj taslaklarını hazırlamada ve geliştirmede size yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş konuşmalarınızdan oluşturulan, kişiselleştirilmiş, kesin ve kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metniniz otomatik olarak netlik ve etki için iyileştirilir.
Kolay Taslak Oluşturma: Sadece anahtar kelimeler sağlayın ve AI'nın gerisini halletmesine izin verin; birden fazla yazım stiliyle.
Akıllı Genişletmeler: Bağlam farkındalığına sahip önerilerle düşüncelerinizi genişletin.
Özetleme: Uzun e-postaların kısa ve öz bir özetini anında alın.
Küresel Kapsam: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler: