Wie erstelle ich Outlook-Erinnerungen aus einer Excel-Tabelle?
In diesem Artikel wird über das Erstellen von Outlook-Erinnerungen basierend auf Daten der Excel-Tabelle gesprochen.
Kreta Outlook Erinnerungen aus Excel-Tabelle mit VBA-Code
Erstellen Sie Outlook-Erinnerungen aus einer Excel-Tabelle mit VBA-Code
Wenn Sie Outlook-Erinnerungen aus Excel erstellen möchten, gehen Sie wie folgt vor.
1. Erstellen Sie ein Arbeitsblatt, das die Spaltenüberschriften und die entsprechenden Erinnerungsfelder enthält (siehe Abbildung unten).
Note: Für die Besetztstatus Spalte, Nummer 2 bedeutet, dass die Erinnerung als angezeigt wird Vans in Ihrem Outlook-Kalender. Sie können es in ändern 1 (vorläufig), 3 (Abwesenheit), 4 (anderswo arbeiten), oder 5 (Kostenlos) wie du es brauchst.
2. Drücken Sie die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
3. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code in das Code-Fenster.
VBA-Code: Erstellen Sie Outlook-Erinnerungen aus einer Excel-Tabelle
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: Im obigen Code, A2: G2 ist der Datenbereich, auf dessen Grundlage Sie Termine erstellen möchten.
4. Drücken Sie die Taste F5 Geben Sie die Taste ein oder klicken Sie auf die Schaltfläche Ausführen, um den Code auszuführen. Dann werden alle Termine mit bestimmten Feldern sofort in den Kalender Ihres Outlooks eingefügt.
Anschließend können Sie den Kalender Ihres Ausblicks aufrufen, um die Ergebnisse anzuzeigen. Siehe Screenshot:
Beste Office-Produktivitätstools
Kutools for Outlook - Über 100 leistungsstarke Funktionen zur Optimierung Ihres Outlooks
🤖 KI-Mail-Assistent: Sofortige Profi-E-Mails mit KI-Magie – geniale Antworten mit einem Klick, perfekter Ton, mehrsprachige Beherrschung. Verwandeln Sie den E-Mail-Versand mühelos! ...
📧 E-Mail Automation: Abwesenheit (verfügbar für POP und IMAP) / Planen Sie das Senden von E-Mails / Automatisches CC/BCC nach Regeln beim E-Mail-Versand / Automatische Weiterleitung (erweiterte Regeln) / Begrüßung automatisch hinzufügen / Teilen Sie E-Mails mit mehreren Empfängern automatisch in einzelne Nachrichten auf ...
📨 E-Mail-Management: E-Mails einfach abrufen / Blockieren Sie betrügerische E-Mails nach Betreff und anderen / Doppelte E-Mails löschen / Erweiterte Suche / Ordner konsolidieren ...
📁 Anhänge Pro: Batch speichern / Stapeltrennung / Stapelkomprimierung / Automatisches Speichern / Automatische Trennung / Automatische Komprimierung ...
???? Schnittstellenmagie: 😊Mehr hübsche und coole Emojis / Steigern Sie Ihre Outlook-Produktivität mit Registerkartenansichten / Ausblick minimieren statt schließen ...
👍 Wunder mit einem Klick: Allen mit eingehenden Anhängen antworten / Anti-Phishing-E-Mails / 🕘Zeitzone des Absenders anzeigen ...
👩🏼🤝👩🏻 Kontakte und Kalender: Fügen Sie Kontakte aus ausgewählten E-Mails im Stapel hinzu / Teilen Sie eine Kontaktgruppe in einzelne Gruppen auf / Geburtstagserinnerungen entfernen ...
Auf über 100 Eigenschaften Warten Sie auf Ihre Erkundung! Klicken Sie hier, um mehr zu erfahren.