Hoe Outlook-herinneringen maken vanuit een Excel-spreadsheet?
Dit artikel gaat over het maken van Outlook-herinneringen op basis van gegevens van Excel-spreadsheet.
Herinneringen voor Kreta Outlook vanuit Excel-spreadsheet met VBA-code
Maak Outlook-herinneringen vanuit Excel-spreadsheet met VBA-code
Als u Outlook-herinneringen vanuit Excel wilt maken, doet u het volgende.
1. Maak een werkblad met de kolomkoppen en de bijbehorende herinneringsvelden zoals onderstaand screenshot.
Note: Voor de bezet status kolom, nummer 2 betekent dat de herinnering wordt weergegeven als Druk in uw Outlook-agenda. U kunt het wijzigen in 1 (voorlopig), 3 (niet aanwezig), 4 (elders werken)of 5 (gratis) als je nodig hebt.
2. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
3. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.
VBA-code: maak Outlook-herinneringen vanuit een Excel-spreadsheet
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
Note: In de bovenstaande code, A2: G2 is het gegevensbereik waarop u afspraken wilt maken op basis van.
4. druk de F5 toets of klik op de knop Uitvoeren om de code uit te voeren. Vervolgens worden alle afspraken met specifieke velden in één keer in de agenda van uw Outlook ingevoegd.
En dan kunt u naar de kalender van uw Outlook gaan om de resultaten te bekijken, zie screenshot:
Beste Office-productiviteitstools
Kutools for Outlook - Meer dan 100 krachtige functies om uw Outlook een boost te geven
🤖 AI Mail-assistent: Directe professionele e-mails met AI-magie: met één klik geniale antwoorden, perfecte toon, meertalige beheersing. Transformeer e-mailen moeiteloos! ...
???? Email Automation: Niet aanwezig (beschikbaar voor POP en IMAP) / Plan het verzenden van e-mails / Automatische CC/BCC volgens regels bij het verzenden van e-mail / Automatisch doorsturen (geavanceerde regels) / Begroeting automatisch toevoegen / Splits e-mails van meerdere ontvangers automatisch op in individuele berichten ...
📨 email management: Gemakkelijk e-mails herinneren / Blokkeer zwendel-e-mails van onderwerpen en anderen / Verwijder dubbele e-mails / Uitgebreid Zoeken / Consolideer mappen ...
📁 Bijlagen Pro: Batch opslaan / Batch losmaken / Batchcompressie / Automatisch opslaan / Automatisch loskoppelen / Automatisch comprimeren ...
???? Interface-magie: 😊Meer mooie en coole emoji's / Verhoog uw Outlook-productiviteit met weergaven met tabbladen / Minimaliseer Outlook in plaats van te sluiten ...
???? Wonderen met één klik: Beantwoord iedereen met inkomende bijlagen / Antiphishing-e-mails / 🕘Toon de tijdzone van de afzender ...
👩🏼🤝👩🏻 Contacten en agenda: Batchcontacten toevoegen uit geselecteerde e-mails / Splits een contactgroep in individuele groepen / Verwijder verjaardagsherinneringen ...
Over 100 Eigenschappen Wacht op je verkenning! Klik hier om meer te ontdekken.