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

Jak importovat narozeniny z Excelu do kalendáře Outlooku?

Pokud máte v listu dlouhý seznam informací o narozeninách, nyní chcete tyto narozeniny importovat do kalendáře aplikace Outlook jako události. Jak byste se s tímto úkolem mohli vypořádat pomocí několika rychlých metod?


Importujte narozeniny z Excelu do kalendáře Outlooku pomocí kódu VBA

Normálně neexistuje žádný přímý způsob, jak importovat narozeniny do kalendáře aplikace Outlook, zde vytvořím kód VBA pro vyřešení tohoto problému, proveďte prosím následující kroky:

1. Otevřete list obsahující narozeniny, které chcete importovat do aplikace Outlook, a podržte klávesu ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: Import narozenin do kalendáře aplikace Outlook

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. Stále v Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Tools > Reference. Ve vyskakovaném Reference - VBAProject v dialogovém okně zaškrtněte Objektová knihovna Microsoft Outlook 16.0 možnost tvoří Dostupné reference seznam, viz screenshot:

4. Pak klikněte na tlačítko OK zavřete toto dialogové okno. Nyní stiskněte F5 klíč ke spuštění tohoto kódu a zobrazí se okno s výzvou, vyberte sloupce se jménem a narozeninami, viz snímek obrazovky:

5. A pak klikněte OK tlačítko, narozeniny budou importovány do kalendáře Outlooku najednou, můžete spustit Outlook a zobrazit výsledek, viz snímek obrazovky:


Kutools pro Outlook - přináší do aplikace Outlook 100 pokročilých funkcí a usnadňuje práci!

  • Auto CC / BCC podle pravidel při odesílání e-mailů; Automatické předávání Více e-mailů podle zvyku; Automatická odpověď bez serveru Exchange a dalších automatických funkcí ...
  • Varování BCC - zobrazit zprávu, když se pokusíte odpovědět všem pokud je vaše e-mailová adresa v seznamu BCC; Připomenout, když chybí přílohya další připomínající funkce ...
  • Odpovědět (Vše) Se všemi přílohami v e-mailové konverzaci; Odpovězte na mnoho e-mailů během několika sekund; Automatické přidání pozdravu při odpovědi; Přidat datum do předmětu ...
  • Nástroje pro přílohy: Spravujte všechny přílohy ve všech e-mailech, Automatické odpojení, Komprimovat vše, Přejmenovat vše, Uložit vše ... Rychlá zpráva, Počítat vybrané e-maily...
  • Výkonné nevyžádané e-maily podle zvyku; Odeberte duplicitní e-maily a kontakty... Umožní vám dělat chytřejší, rychlejší a lepší v Outlooku.
záběr kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus karta 1180x121
 
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění