Jak zbiorczo zaimportować urodziny z arkusza programu Excel do kalendarza programu Outlook

Jeśli masz listę informacji o urodzinach w arkuszu programu Excel, możesz chcieć zaimportować te urodziny do kalendarza programu Outlook jako wydarzenia. Ten artykuł pomoże Ci to osiągnąć w krótkim czasie.

Z poprzedniego artykułu - „Jak zbiorczo zaimportować urodziny z programu Excel do odpowiednich kontaktów programu Outlook”, możesz dowiedzieć się, jak dodawać informacje o urodzinach w programie Excel do odpowiednich kontaktów. Podobnie niektórzy użytkownicy chcieliby utworzyć wydarzenia urodzinowe programu Outlook na podstawie danych w arkuszu Excel. Patrząc na ten problem, ujawnimy kolejny fragment kodu VBA, aby pomóc Ci go z łatwością uzyskać.

Import grupowy urodzin z programu Excel do kalendarza programu Outlook

1. Przede wszystkim otwórz określony plik Excel. Mój przykładowy plik Excel jest pokazany na poniższym rysunku.
2. Następnie naciśnij „Alt + F11”, aby uruchomić edytor Excel VBA.
3. Następnie w nowym oknie „Microsoft Visual Basic for Applications” włącz odwołanie do „Biblioteki obiektów MS Outlook” zgodnie z „Jak dodać odwołanie do biblioteki obiektów w języku VBA".
4. Następnie skopiuj następujący kod VBA do projektu lub modułu.

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

Uwaga: 1. Zmień konkretny arkusz, jak na swój przypadek.

2. Zmień odpowiedni zakres komórek w zależności od własnego pliku Excel.
3. Na koniec bezpośrednio naciśnij klawisz „F5”, aby uruchomić to makro.
4. Po zakończeniu działania makra możesz otworzyć domyślny folder kalendarza programu Outlook, w którym możesz zobaczyć wszystkie nowe zaimportowane wydarzenia urodzinowe, takie jak zrzut ekranu poniżej.

Wrażliwe pliki PST programu Outlook

Podobnie jak dokumenty programu Word i skoroszyty programu Excel, wirtualnie pliki PST programu Outlook są tak samo podatne na ataki. Od lat wielu użytkowników było narażonych na uszkodzenia plików programu Outlook. W takiej sytuacji muszą spróbować zawiązać węzeł Naprawa PST. Jednak zwykle wbudowane narzędzie naprawcze - Scanpst zawsze nie jest w stanie tego zrobić. Dlatego w tym kursie bardzo potrzebne jest bardziej wyspecjalizowane i najwyższej rangi narzędzie zewnętrzne, takie jak DataNumen Outlook Repair, który może pomóc w wyodrębnieniu maksymalnej ilości danych z uszkodzonego pliku PST.

Wprowadzenie autora:

Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym uszkodzony plik sql i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com