Note: The other languages of the website are Google-translated. Back to English
English English

Jak zaimportować urodziny z Excela do kalendarza Outlooka?

Jeśli masz długą listę informacji o urodzinach w arkuszu, teraz chcesz zaimportować te urodziny do kalendarza programu Outlook jako wydarzenia. Jak możesz poradzić sobie z tym zadaniem za pomocą kilku szybkich metod?


Importuj urodziny z Excela do kalendarza Outlooka za pomocą kodu VBA

Zwykle nie ma bezpośredniego sposobu na zaimportowanie urodzin do kalendarza programu Outlook, tutaj utworzę kod VBA, aby rozwiązać ten problem, wykonaj następujące czynności:

1. Otwórz arkusz zawierający urodziny, które chcesz zaimportować do programu Outlook, a następnie przytrzymaj klawisz ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2, Kliknij wstawka > Modułi wklej następujący kod w oknie modułu.

Kod VBA: importuj urodziny do kalendarza programu Outlook

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. Wciąż w Microsoft Visual Basic for Applications okno, kliknij Narzędzia > Referencje. W wyskoczył Referencje - VBAProject okno dialogowe, zaznacz Biblioteka obiektów programu Microsoft Outlook 16.0 opcja z Dostępne referencje pole listy, zobacz zrzut ekranu:

4. Następnie kliknij OK aby zamknąć to okno dialogowe. Teraz naciśnij F5 klucz, aby uruchomić ten kod, i pojawi się okienko z monitem, wybierz kolumny nazwy i urodzin, patrz zrzut ekranu:

5. A następnie kliknij OK przycisk, urodziny zostaną zaimportowane do kalendarza programu Outlook od razu, możesz uruchomić program Outlook, aby wyświetlić wynik, zobacz zrzut ekranu:


Kutools dla programu Outlook - wprowadza 100 zaawansowanych funkcji do programu Outlook i znacznie ułatwia pracę!

  • Auto CC / BCC według zasad podczas wysyłania wiadomości e-mail; Auto Forward Wiele e-maili na zamówienie; Automatyczna odpowiedź bez serwera Exchange i więcej funkcji automatycznych ...
  • Ostrzeżenie BCC - pokaż wiadomość, gdy spróbujesz odpowiedzieć wszystkim jeśli Twój adres e-mail znajduje się na liście BCC; Przypomnij o braku załącznikówi więcej funkcji przypominających ...
  • Odpowiedz (wszystkie) ze wszystkimi załącznikami w rozmowie pocztowej; Odpowiedz na wiele e-maili w sekundy; Automatyczne dodawanie powitania kiedy odpowiedz; Dodaj datę do tematu ...
  • Narzędzia załączników: Zarządzaj wszystkimi załącznikami we wszystkich wiadomościach e-mail, Automatyczne odłączanie, Kompresuj wszystko, Zmień nazwę wszystkiego, Zapisz wszystko ... Szybki raport, Policz wybrane wiadomości...
  • Potężne wiadomości-śmieci na zamówienie; Usuń zduplikowane wiadomości e-mail i kontakty... Umożliwiają inteligentniejsze, szybsze i lepsze działanie w programie Outlook.
strzał Kutools Outlook Kutools tab 1180x121
shot Kutools Outlook Kutools Plus Tab 1180x121
 
Sortuj komentarze według
Komentarze (0)
Brak ocen. Oceń jako pierwszy!
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje