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

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 > Referenzen. 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:


Kutools für Outlook - Bringt 100 erweiterte Funktionen in Outlook und erleichtert die Arbeit erheblich!

  • Auto CC / BCC nach Regeln beim Versenden von E-Mails; Automatische Weiterleitung Mehrere E-Mails nach Kundenwunsch; Automatische Antwort ohne Exchange Server und mehr automatische Funktionen ...
  • BCC-Warnung - Nachricht anzeigen, wenn Sie versuchen, alle zu beantworten wenn Ihre E-Mail-Adresse in der BCC-Liste enthalten ist; Bei fehlenden Anhängen erinnernund weitere Erinnerungsfunktionen ...
  • Antwort (Alle) mit allen Anhängen in der E-Mail-Konversation; Viele E-Mails beantworten in Sekunden; Begrüßung automatisch hinzufügen bei der Antwort; Datum zum Betreff hinzufügen ...
  • Anhang Tools: Alle Anhänge in allen Mails verwalten, Automatische Trennung, Alle komprimieren, Alle umbenennen, Alle speichern ... Schnellbericht, Ausgewählte Mails zählen...
  • Leistungsstarke Junk-E-Mails nach Brauch; Entfernen Sie doppelte E-Mails und Kontakte... Ermöglichen Sie es Ihnen, in Outlook intelligenter, schneller und besser zu arbeiten.
Schuss Kutools Outlook Kutools Tab 1180x121
Schuss Kutools Outlook Kutools plus Tab 1180x121
 
Kommentare (0)
Noch keine Bewertungen. Bewerten Sie als Erster!
Es sind noch keine Kommentare vorhanden
Hinterlassen Sie Ihre Kommentare
Als Gast posten
×
Bewerte diese Nachricht:
0   Figuren
Vorgeschlagene Standorte