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

Hogyan importálhatok születésnapokat az Excelből az Outlook naptárba?

Ha egy munkalapon hosszú listája van a születésnapi adatokról, most eseményként szeretné importálni ezeket a születésnapokat az Outlook-naptárba. Hogyan tudná megoldani ezt a feladatot néhány gyors módszerrel?


Születésnapok importálása Excelből az Outlook naptárba VBA-kóddal

Általában nincs közvetlen mód a születésnapok importálására az Outlook naptárba, itt létrehozok egy VBA-kódot a probléma megoldására, kérjük, tegye a következőket:

1. Nyissa meg az Outlookba importálni kívánt születésnapokat tartalmazó munkalapot, majd tartsa lenyomva a gombot ALT + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.

2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modul ablakba.

VBA-kód: Születésnapok importálása az Outlook naptárba

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. Még mindig a Microsoft Visual Basic for Applications ablakban kattintson Eszközök > Referenciák. A kiugrott Referenciák - VBAProject párbeszédpanelen ellenőrizze Microsoft Outlook 16.0 objektumkönyvtár opció formájában a Elérhető referenciák lista mező, lásd a képernyőképet:

4. Ezután kattintson OK a párbeszédpanel bezárásához. Most nyomja meg F5 gombot a kód futtatásához, és megjelenik egy prompt mező, válassza ki a nevet és a születésnapot oszlopokat, lásd a képernyőképet:

5. Ezután kattintson OK gombot, a születésnapok egyszerre importálódnak az Outlook naptárba, elindíthatja az Outlookot az eredmény megtekintéséhez, lásd a képernyőképet:


Kutools for Outlook - 100 speciális funkciót hoz az Outlookba, és sokkal könnyebbé teszi a munkát!

  • Auto CC / BCC szabályok szerint e-mail küldéskor; Automatikus továbbítás Több e-mail egyedi; Autómatikus válasz csere szerver és további automatikus funkciók nélkül ...
  • BCC figyelmeztetés - üzenet megjelenítése, amikor megpróbál válaszolni az összesre ha az e-mail címed szerepel a BCC listában; Emlékeztessen a hiányzó mellékletekre, és további funkciók emlékeztetnek ...
  • Válasz (minden) az összes melléklettel az e-mail beszélgetésben; Válasz sok e-mailre másodpercek alatt; Automatikus üdvözlet hozzáadása amikor válasz; Dátum hozzáadása a tárgyhoz ...
  • Mellékleteszközök: Az összes levél összes mellékletének kezelése, Automatikus leválasztás, Tömörítsen mindent, Átnevezés, Összes mentése ... Gyorsjelentés, Számolja ki a kiválasztott leveleket...
  • Erőteljes levélszemét szokás szerint; Távolítsa el az ismétlődő leveleket és névjegyeket... Lehetővé teszi, hogy okosabban, gyorsabban és jobban végezze el az Outlook programot.
lövés kutools outlook kutools fül 1180x121
shot kutools outlook kutools plus tab 1180x121
 
A megjegyzések rendezése szerint
Hozzászólások (0)
Még nincs értékelés. Legyen Ön az első, aki értékel!
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek