Wie importiere ich Geburtstage aus Excel in den Outlook-Kalender?

Wenn Sie eine lange Liste mit Geburtstagsinformationen in einem Arbeitsblatt haben, möchten Sie diese Geburtstage jetzt als Ereignisse in Ihren Outlook-Kalender importieren. Wie könnten Sie diese Aufgabe mit einigen schnellen Methoden lösen?

Importieren Sie Geburtstage aus Excel in den Outlook-Kalender mit VBA-Code

Normalerweise gibt es keine direkte Möglichkeit, die Geburtstage in den Outlook-Kalender zu importieren. Hier werde ich einen VBA-Code erstellen, um dieses Problem zu lösen. Bitte führen Sie die folgenden Schritte aus:

1. Öffnen Sie das Arbeitsblatt, das die Geburtstage enthält, die Sie in Outlook importieren möchten, und halten Sie dann die gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Modulfenster ein.

VBA-Code: Importieren Sie Geburtstage in den Outlook-Kalender

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. Immer noch in der Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Tools > Bibliographie. In der herausgesprungen Referenzen - VBAProject Dialogfeld überprüfen Microsoft Outlook 16.0-Objektbibliothek Option bilden die Verfügbare Referenzen Listenfeld, siehe Screenshot:

4. Dann klick OK um dieses Dialogfeld zu schließen. Jetzt drücken F5 Taste, um diesen Code auszuführen, und eine Eingabeaufforderung erscheint, wählen Sie bitte die Namens- und Geburtstagsspalten aus, siehe Screenshot:

5. Und dann klicken OK Schaltfläche, die Geburtstage werden sofort in den Outlook-Kalender importiert, Sie können Ihr Outlook starten, um das Ergebnis anzuzeigen, siehe Screenshot: