Doğum Günlerini Excel Çalışma Sayfasından Outlook Takvimine Toplu Aktarma

Bir Excel çalışma sayfasında doğum günü bilgileri listeniz varsa, bu doğum günlerini Outlook takviminize etkinlik olarak almak isteyebilirsiniz. Bu makale, bunu hızlı bir şekilde gerçekleştirmeniz için size rehberlik edecektir.

Önceki makaleden - "Doğum Günlerini Excel'den Karşılık Gelen Outlook Kişilerine Toplu Aktarma", bir Excel'deki doğum günü bilgilerini ilgili kişilere eklemenin yollarını öğrenebilirsiniz. Buna benzer şekilde, bazı kullanıcılar bir Excel sayfasındaki verilerden Outlook doğum günü etkinlikleri oluşturmak ister. Bu konuyu incelerken, kolaylıkla almanıza yardımcı olmak için başka bir VBA kodu parçası göstereceğiz.

Doğum Günlerini Excel'den Outlook Takvimine Toplu Aktarma

1. Her şeyden önce, belirli Excel dosyasını açın. Örnek Excel dosyam aşağıdaki şekilde görüldüğü gibidir.
2. Ardından, Excel VBA düzenleyicisini tetiklemek için “Alt + F11” tuşlarına basın.
3. Ardından, yeni "Microsoft Visual Basic for Applications" penceresinde, "MS Outlook Object Library" referansını aşağıdaki talimatlara göre etkinleştirin:VBA'da Nesne Kütüphanesi Referansı Nasıl Eklenir?".
4. Bundan sonra, aşağıdaki VBA kodunu bir projeye veya modüle kopyalayın.

Sub ImportBirthdaysToCalendar()
    Dim objWorksheet As Excel.Worksheet
    Dim nLastRow As Integer
    Dim objOutlookApp As Outlook.Application
    Dim objCalendar As Outlook.Folder
    Dim objBirthdayEvent As Outlook.AppointmentItem
    Dim objRecurrencePattern As Outlook.RecurrencePattern
 
    'Get the specific sheet
    Set objWorksheet = ThisWorkbook.Sheets(1)
    nLastRow = objWorksheet.Range("A" & objWorksheet.Rows.Count).End(xlUp).Row
 
    Set objOutlookApp = CreateObject("Outlook.Application")
    Set objCalendar = objOutlookApp.Session.GetDefaultFolder(olFolderCalendar)
 
    For nRow = 2 To nLastRow
        Set objBirthdayEvent = objCalendar.Items.Add("IPM.Appointment")
 
        'Create birthday events
        With objBirthdayEvent
            .Subject = objWorksheet.Range("A" & nRow) & Chr(39) & "s Birthday"
            .AllDayEvent = True
            .Start = objWorksheet.Range("B" & nRow)
         Set objRecurrencePattern = .GetRecurrencePattern
         objRecurrencePattern.RecurrenceType = olRecursYearly
            .Save
        End With
    Next
End Sub

Not: 1. Özel sayfayı durumunuza göre değiştirin.

2. Kendi Excel dosyanıza bağlı olarak karşılık gelen hücre aralığını değiştirin.
3. Son olarak, bu makroyu çalıştırmak için doğrudan “F5” tuşuna basın.
4. Makro tamamlandığında, aşağıdaki ekran görüntüsü gibi, içe aktarılan tüm yeni doğum günü etkinliklerini görebileceğiniz Outlook varsayılan takvim klasörünüzü açabilirsiniz.

Savunmasız Outlook PST Dosyaları

Word belgeleri ve Excel çalışma kitapları gibi, Outlook PST dosyaları da sanal olarak aynı savunmasızdır. Yıllardır, birçok kullanıcı Outlook dosya hasarına maruz kalmıştır. Bu durumda, düğüm atmaya çalışmak zorundalar. PST onarımı. Yine de, genellikle yerleşik düzeltme aracı - Scanpst her zaman bunu başaramaz. Bu nedenle, bu kursta, aşağıdakiler gibi daha özel ve üst düzey bir harici araç gereklidir: DataNumen Outlook Repair, bozuk PST dosyasından maksimum veriyi çıkarmanıza yardımcı olabilir.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. bozuk sql ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com