Jak vytvořit připomenutí aplikace Outlook z tabulky aplikace Excel?
Tento článek hovoří o vytváření připomenutí aplikace Outlook na základě údajů z tabulky aplikace Excel.
Připomenutí aplikace Crete Outlook z tabulky aplikace Excel s kódem VBA
Vytvářejte připomenutí aplikace Outlook z tabulky Excel pomocí kódu VBA
Chcete-li vytvořit připomenutí aplikace Outlook z aplikace Excel, postupujte následovně.
1. Vytvořte list obsahující záhlaví sloupců a odpovídající pole připomenutí, jak je uvedeno níže.
Poznámka: Pro obsazeno sloupec, číslo 2 znamená, že připomenutí bude zobrazeno jako Zaneprázdněný v kalendáři aplikace Outlook. Můžete to změnit na 1 (předběžně), 3 (mimo kancelář), 4 (Práce jinde)nebo 5 (zdarma) jak potřebujete.
2. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
3. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna Kód.
Kód VBA: Vytvořte připomenutí aplikace Outlook z tabulky aplikace Excel
Sub AddAppointments()
'Update by Extendoffice 20180608
Dim I As Long
Dim xRg As Range
Dim xOutApp As Object
Dim xOutItem As Object
Set xOutApp = CreateObject("Outlook.Application")
Set xRg = Range("A2:G2")
For I = 1 To xRg.Rows.Count
Set xOutItem = xOutApp.createitem(1)
Debug.Print xRg.Cells(I, 1).Value
xOutItem.Subject = xRg.Cells(I, 1).Value
xOutItem.Location = xRg.Cells(I, 2).Value
xOutItem.Start = xRg.Cells(I, 3).Value
xOutItem.Duration = xRg.Cells(I, 4).Value
If Trim(xRg.Cells(I, 5).Value) = "" Then
xOutItem.BusyStatus = 2
Else
xOutItem.BusyStatus = xRg.Cells(I, 5).Value
End If
If xRg.Cells(I, 6).Value > 0 Then
xOutItem.ReminderSet = True
xOutItem.ReminderMinutesBeforeStart = xRg.Cells(I, 6).Value
Else
xOutItem.ReminderSet = False
End If
xOutItem.Body = xRg.Cells(I, 7).Value
xOutItem.Save
Set xOutItem = Nothing
Next
Set xOutApp = Nothing
End Sub
Poznámka: Ve výše uvedeném kódu, A2: G2 je rozsah dat, na kterém chcete vytvořit schůzky.
4. zmáčkni F5 spusťte kód kliknutím na tlačítko Spustit. Poté budou všechny události se specifickými poli vloženy do kalendáře vašeho Outlooku najednou.
Poté můžete přejít do kalendáře svého outlooku a zobrazit výsledky, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Kutools pro aplikaci Outlook - Více než 100 výkonných funkcí, které doplní váš Outlook
🤖 AI Mail Assistant: Okamžité profesionální e-maily s magií umělé inteligence – jedním kliknutím získáte geniální odpovědi, perfektní tón, vícejazyčné ovládání. Transformujte e-maily bez námahy! ...
???? Automatizace e-mailu: Mimo kancelář (k dispozici pro POP a IMAP) / Naplánujte odesílání e-mailů / Automatická kopie/skrytá kopie podle pravidel při odesílání e-mailu / Automatické přeposílání (pokročilá pravidla) / Automatické přidání pozdravu / Automaticky rozdělte e-maily pro více příjemců na jednotlivé zprávy ...
📨 Email management: Snadné vyvolání e-mailů / Blokujte podvodné e-maily podle předmětů a dalších / Odstranit duplicitní e-maily / pokročilé vyhledávání / Konsolidovat složky ...
📁 Přílohy Pro: Dávkové uložení / Dávkové odpojení / Dávková komprese / Automaticky uložit / Automatické odpojení / Automatické komprimování ...
???? Rozhraní Magic: 😊 Více pěkných a skvělých emotikonů / Zvyšte produktivitu své aplikace Outlook pomocí zobrazení s kartami / Minimalizujte aplikaci Outlook namísto zavírání ...
???? Zázraky na jedno kliknutí: Odpovědět všem s příchozími přílohami / E-maily proti phishingu / 🕘Zobrazit časové pásmo odesílatele ...
👩🏼🤝👩🏻 Kontakty a kalendář: Dávkové přidání kontaktů z vybraných e-mailů / Rozdělit skupinu kontaktů na jednotlivé skupiny / Odeberte připomenutí narozenin ...
Přes 100 Vlastnosti Očekávejte svůj průzkum! Kliknutím sem zobrazíte další informace.