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

Hvordan importerer man fødselsdage fra Excel til Outlook-kalender?

Hvis du har en lang liste med fødselsdagsoplysninger i et regneark, vil du nu importere disse fødselsdage til din Outlook-kalender som begivenheder. Hvordan kunne du håndtere denne opgave med nogle hurtige metoder?


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

Normalt er der ingen direkte måde at importere fødselsdagene til Outlook-kalenderen, her vil jeg oprette en VBA-kode for at løse dette problem, gør venligst med følgende trin:

1. Åbn regnearket, der indeholder de fødselsdage, du vil importere til Outlook, og hold derefter nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. Klik indsatte > Moduler, og indsæt følgende kode i modulvinduet.

VBA-kode: Importer fødselsdage til 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. Stadig i Microsoft Visual Basic til applikationer vindue, skal du klikke på Værktøj > Referencer. I sprang ud Referencer - VBAProject dialogboks, tjek Microsoft Outlook 16.0 Objektbibliotek mulighed fra Tilgængelige referencer listefelt, se skærmbillede:

4. Klik derefter på OK for at lukke denne dialogboks. Tryk nu på F5 tasten for at køre denne kode, og en promptboks er poppet ud, vælg venligst navn og fødselsdagskolonner, se skærmbillede:

5. Klik derefter på OK knappen, vil fødselsdagene blive importeret til Outlook-kalenderen på én gang, du kan starte din Outlook for at se resultatet, se skærmbillede:


Kutools til Outlook - bringer 100 avancerede funktioner til Outlook, og gør arbejdet meget nemmere!

  • Auto CC / BCC ved regler, når du sender e-mail; Automatisk videresendelse Flere e-mails efter brugerdefineret; Auto svar uden udvekslingsserver og flere automatiske funktioner ...
  • BCC Advarsel - vis besked, når du prøver at besvare alle hvis din e-mail-adresse er på BCC-listen; Påmind, når du mangler vedhæftede filer, og mere minder funktioner ...
  • Svar (alle) med alle vedhæftede filer i mailsamtalen; Besvar mange e-mails på få sekunder Tilføj automatisk hilsen når svar Tilføj dato til emne ...
  • Vedhæftningsværktøjer: Administrer alle vedhæftede filer i alle mails, Automatisk afmontering, Komprimer alle, Omdøb alt, Gem alle ... Hurtig rapport, Tæl valgte mails...
  • Kraftige uønskede e-mails efter skik; Fjern duplikerede mails og kontakter... Gør dig i stand til at gøre smartere, hurtigere og bedre i Outlook.
shot kutools outlook kutools fane 1180x121
shot kutools outlook kutools plus fane 1180x121
 
Sorter kommentarer efter
Kommentarer (0)
Ingen vurderinger endnu. Vær den første til at bedømme!
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder