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

Kako uvoziti rojstne dneve iz Excela v Outlookov koledar?

Če imate na delovnem listu dolg seznam podatkov o rojstnih dnevih, zdaj te rojstne dneve uvozite v Outlookov koledar kot dogodke. Kako bi se lahko spopadli s to nalogo z nekaj hitrimi metodami?


Uvozi rojstne dneve iz Excela v Outlookov koledar s kodo VBA

Običajno ni neposrednega načina za uvoz rojstnih dni v Outlookov koledar, tukaj bom ustvaril kodo VBA za rešitev te težave, storite naslednje:

1. Odprite delovni list, ki vsebuje rojstne dneve, ki jih želite uvoziti v Outlook, in nato pridržite ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v okno modula.

Koda VBA: uvozi rojstne dneve v Outlookov koledar

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. Še vedno v Microsoft Visual Basic za aplikacije okno, kliknite Orodja > Reference. V izskočil Reference - VBAProject pogovorno okno, preverite Knjižnica predmetov Microsoft Outlook 16.0 možnost oblike Razpoložljive reference seznam, glej posnetek zaslona:

4. Nato kliknite OK da zaprete to pogovorno okno. Zdaj pritisnite F5 tipko, da zaženete to kodo, in prikaže se okno s pozivom, izberite stolpca z imenom in rojstnim dnem, glejte posnetek zaslona:

5. In nato kliknite OK gumb, bodo rojstni dnevi takoj uvoženi v Outlookov koledar, lahko zaženete Outlook, da si ogledate rezultat, glejte posnetek zaslona:


Kutools za Outlook - prinaša 100 naprednih funkcij v Outlook in olajša delo!

  • Samodejno CC / BCC po pravilih pri pošiljanju e-pošte; Samodejno posredovanje naprej Več e-poštnih sporočil po meri; Samodejni odgovor brez strežnika za izmenjavo in več samodejnih funkcij ...
  • Opozorilo pred BCC - prikaži sporočilo, ko poskušate odgovoriti vsem če je vaš poštni naslov na seznamu BCC; Opomni, ko manjkajo priloge, in več opomnikov ...
  • Odgovori (vsi) z vsemi prilogami v e-poštnem pogovoru; Odgovori na veliko e-poštnih sporočil v nekaj sekundah; Samodejno dodaj pozdrav ko odgovor; Dodaj datum v zadevo ...
  • Orodja za priloge: Upravljanje vseh prilog v vseh e-poštnih sporočilih, Samodejno loči, Stisni vse, Preimenuj vse, Shrani vse ... Hitro poročilo, Štejte izbrano pošto...
  • Zmogljiva neželena e-poštna sporočila po meri; Odstranite podvojene pošte in stike... Omogočajo vam pametnejše, hitrejše in boljše delovanje v Outlooku.
strelec kutools outlook kutools zavihek 1180x121
shot kutools outlook kutools plus jeziček 1180x121
 
Komentarji (0)
Ocene še ni. Bodite prvi in ​​ocenite!
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije