Sådan batches importfødselsdage fra Excel-regneark til Outlook-kalender

Outlook-løsninger September 29, 2025

Hvis du har en liste over fødselsdagsoplysninger i et Excel-regneark, kan du importere disse fødselsdage til din Outlook-kalender som begivenheder. Denne artikel vil guide dig til at udføre det på hurtig tid.

Fra den forrige artikel - "Sådan batches importfødselsdage fra Excel til de tilsvarende Outlook-kontakter", kan du lære, hvordan du tilføjer fødselsdagsoplysninger i en Excel til relevante kontakter. På lignende måde vil nogle brugere gerne oprette Outlook-fødselsdagshændelser ud fra dataene i et Excel-ark. Når vi ser på dette problem, udsætter vi et andet stykke VBA-kode for at hjælpe dig med at få det med lethed.

Batchimport fødselsdage fra Excel til Outlook-kalender

  1. Frist af alle, åbn den specifikke Excel-fil. Min Excel-fileksempel er som vist i følgende figur.Eksempel på Excel-regneark
  2. Tryk derefter på "Alt + F11" for at udløse Excel VBA-editor.
  3. Dernæst skal du i det nye vindue "Microsoft Visual Basic for Applications" aktivere referencen til "MS Outlook Object Library" i henhold til "Sådan tilføjer du en objektbiblioteksreference i VBA".
  4. Derefter kopieres følgende VBA-kode til et projekt eller modul.
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

VBA-kode - Batch Importer fødselsdage fra Excel til Outlook-kalender

Bemærk: 1. Skift det specifikke ark efter din sag.

  1. Skift det tilsvarende celleområde afhængigt af din egen Excel-fil.
  2. Endelig skal du trykke direkte på “F5” -tasten for at køre denne makro.
  3. Når makroen er færdig, kan du åbne din Outlook-standardkalendermappe, hvor du kan se alle de nye importerede fødselsdagsbegivenheder, som skærmbilledet nedenfor.Fødselsdagsbegivenheder i kalenderen

Sårbare Outlook PST-filer

Ligesom Word-dokumenter og Excel-projektmapper er Outlook PST-filer stort set de samme sårbare. I årevis har mange brugere nogensinde været udsat for Outlook-filskader. I den situation er de nødt til at prøve knudrede PST-reparation. Alligevel er det almindeligt indbyggede fix-værktøj - Scanpst er altid ikke i stand til at udføre det. Derfor kræves der i dette kursus et mere specialiseret og toprangeret eksternt værktøj, såsom DataNumen Outlook Repair, som kan hjælpe dig med at udtrække maksimale data fra korrupt PST-fil.

Forfatter Introduktion:

Shirley Zhang er ekspert i datagendannelse i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder korrupt sql og Outlook-reparationssoftwareprodukter. For mere information besøg www.datanumen.com

Kommentarer er lukket.