Hvordan oprettes Outlook-påmindelser fra Excel-regneark?
Denne artikel taler om at oprette Outlook-påmindelser baseret på data i Excel-regneark.
Kreta Outlook-påmindelser fra Excel-regneark med VBA-kode
Opret Outlook-påmindelser fra Excel-regneark med VBA-kode
Hvis du vil oprette Outlook-påmindelser fra Excel, skal du gøre som følger.
1. Opret et regneark, der indeholder kolonneoverskrifterne og de tilsvarende påmindelsesfelter som vist nedenstående skærmbillede.
Bemærk: For optaget status kolonne, nummer 2 betyder, at påmindelsen vises som Optaget i din Outlook-kalender. Du kan ændre det til 1 (foreløbig), 3 (Ikke på kontoret), 4 (Arbejder andetsteds) eller 5 (Free) som du har brug for.
2. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
3. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter nedenunder VBA-kode til kodevinduet.
VBA-kode: Opret Outlook-påmindelser fra Excel-regneark
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
Bemærk: I ovenstående kode, A2: G2 er det dataområde, som du vil oprette aftaler baseret på.
4. Tryk på F5 eller klik på knappen Kør for at køre koden. Derefter indsættes alle aftaler med specifikke felter i kalenderen i din Outlook på én gang.
Og så kan du gå til kalenderen for dine udsigter for at se resultaterne, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Kutools til Outlook - Over 100 kraftfulde funktioner til at superlade din Outlook
🤖 AI Mail Assistant: Øjeblikkelige pro-e-mails med AI-magi – et klik for geniale svar, perfekt tone, flersproget beherskelse. Forvandl e-mailing ubesværet! ...
📧 Email Automation: Ikke til stede (tilgængelig til POP og IMAP) / Planlæg Send e-mails / Auto CC/BCC efter regler ved afsendelse af e-mail / Automatisk videresendelse (avancerede regler) / Tilføj automatisk hilsen / Opdel automatisk e-mails med flere modtagere i individuelle meddelelser ...
📨 Email Management: Genkald nemt e-mails / Bloker svindel-e-mails af emner og andre / Slet duplikerede e-mails / Avanceret søgning / Konsolider mapper ...
📁 Vedhæftede filer Pro: Batch Gem / Batch adskilles / Batch komprimere / Automatisk gem / Automatisk afmontering / Automatisk komprimering ...
🌟 Interface Magic: 😊 Flere smukke og seje emojis / Boost din Outlook-produktivitet med fanebaserede visninger / Minimer Outlook i stedet for at lukke ...
👍 Wonders med et enkelt klik: Besvar alle med indgående vedhæftede filer / Anti-phishing e-mails / 🕘Vis afsenderens tidszone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch Tilføj kontakter fra udvalgte e-mails / Opdel en kontaktgruppe til individuelle grupper / Fjern fødselsdagspåmindelser ...
Over 100 Features Afvent din udforskning! Klik her for at finde mere.