Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Outlook-Aufgabe aus Excel heraus erstellen

Forumthread: Outlook-Aufgabe aus Excel heraus erstellen

Outlook-Aufgabe aus Excel heraus erstellen
23.09.2002 15:29:01
Jens
Hallihallo,

ich möchte eine Outlookaufgabe aus Excel heraus erstellen. Hierfür habe ich folgenden Makrocode geschrieben:

Sub ErzeugeAufgabe()
Set myOLApp = CreateObject("Outlook.Application")
Set myItem = myOLApp.CreateItem(olTaskItem)
With myItem
.Subject = "Hier steht dann die Aufgenüberschrift"
.StartDate = "24.09.2002"
.ReminderTime = "24.09.2002 8:00"
.Save
End With
Set myItem = Nothing
End Sub

Leider unterbricht das Makro immer bei ".StartDate", da das olTaskItem keine Aufgabe sondern eine Mail initiiert. Und das ist der Punkt den ich nicht verstehe. Vielleicht kann mir ja jemand bei meiner 'Blockade' helfen.

Danke und Gruß,
Jens

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Outlook-Aufgabe aus Excel heraus erstellen
23.09.2002 17:24:11
GerdZ
Hallo Jens,

Du hast keinen Verweis auf die Outlook Objekt Bibliothek gesetzt. Dadurch ist olTaskItem ohne Wert. Bei CreateItem wird ohne Wert wie 0 behandelt, was dem olMailItem entspricht. Hättest Du Option Explicit verwendet, hätte Excel gemeldet: Variable nicht definiert.
Du kannst das Problem auf zwei Arten beheben:
1) Unter Extras-Verweise die Microsoft Outlook Object Library auswählen
oder
2) die Variable olTaskItem selbst mit dem Wert 3 belegen.

Gruß
Gerd

Anzeige
Re: Outlook-Aufgabe aus Excel heraus erstellen
24.09.2002 07:01:25
Jens
Danke Gerd,

hat geklappt!

Gruß Jens

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Outlook-Aufgabe aus Excel heraus erstellen


Schritt-für-Schritt-Anleitung

Um eine Outlook-Aufgabe aus Excel heraus zu erstellen, benötigst du einen VBA-Code. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" > Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub ErzeugeAufgabe()
        Dim myOLApp As Object
        Dim myItem As Object
        Set myOLApp = CreateObject("Outlook.Application")
        Set myItem = myOLApp.CreateItem(3) ' olTaskItem entspricht 3
        With myItem
            .Subject = "Hier steht dann die Aufgabenüberschrift"
            .StartDate = "24.09.2022"
            .ReminderTime = "24.09.2022 08:00"
            .Save
        End With
        Set myItem = Nothing
    End Sub
  4. Verlinke die Excel-Bibliothek: Gehe zu Extras > Verweise und wähle die "Microsoft Outlook Object Library".

  5. Führe das Makro aus: Drücke F5, um das Makro auszuführen und die Aufgabe in Outlook zu erstellen.


Häufige Fehler und Lösungen

  • Problem: Das Makro unterbricht bei .StartDate.

    • Lösung: Stelle sicher, dass du die "Microsoft Outlook Object Library" verlinkt hast. Andernfalls wird olTaskItem ohne Wert behandelt.
  • Problem: "Variable nicht definiert" Fehler.

    • Lösung: Verwende Option Explicit am Anfang deines Codes, um sicherzustellen, dass alle Variablen definiert sind.

Alternative Methoden

Alternativ zu VBA kannst du auch manuell Aufgaben in Outlook erstellen und Excel-Daten importieren. Eine andere Möglichkeit besteht darin, ein Outlook-Makro zu erstellen, um Aufgaben direkt in Outlook zu generieren.


Praktische Beispiele

Hier ist ein Beispiel, wie du eine Excel-Liste von Aufgaben in Outlook importieren kannst:

  1. Erstelle eine Excel-Tabelle mit Spalten für Betreff, Startdatum, und Erinnerungszeit.
  2. Verwende das folgende Makro, um Aufgaben basierend auf den Zeilen der Tabelle zu erstellen:

    Sub AufgabenAusListeErstellen()
        Dim myOLApp As Object
        Dim myItem As Object
        Dim ws As Worksheet
        Dim i As Integer
    
        Set myOLApp = CreateObject("Outlook.Application")
        Set ws = ThisWorkbook.Sheets("Aufgaben") ' Tabelle mit Aufgaben
    
        For i = 2 To ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
            Set myItem = myOLApp.CreateItem(3) ' olTaskItem
            With myItem
                .Subject = ws.Cells(i, 1).Value
                .StartDate = ws.Cells(i, 2).Value
                .ReminderTime = ws.Cells(i, 3).Value
                .Save
            End With
        Next i
    End Sub

Tipps für Profis

  • Verwende Fehlerbehandlung: Implementiere On Error Resume Next, um Fehler zu vermeiden, die das Makro stoppen könnten.
  • Optimierung: Du kannst das Makro so anpassen, dass es Aufgaben basierend auf bestimmten Kriterien erstellt, um die Effizienz zu steigern.
  • Makros in Outlook erstellen: Nutze die Möglichkeit, auch in Outlook eigene Makros zu erstellen, um deine Aufgabenverwaltung zu verbessern.

FAQ: Häufige Fragen

1. Kann ich mehrere Aufgaben gleichzeitig erstellen?
Ja, indem du eine Schleife in deinem VBA-Code verwendest, kannst du mehrere Aufgaben aus einer Excel-Liste erstellen.

2. Wie kann ich eine Outlook-Aufgabe wiederherstellen?
Eine gelöschte Outlook-Aufgabe kann oft im "Gelöschte Objekte"-Ordner wiederhergestellt werden.

3. Was ist olTaskItem?
olTaskItem ist eine Konstante, die in VBA verwendet wird, um eine Aufgabe in Outlook zu erstellen. Der Wert für olTaskItem ist 3.

4. Welche Excel-Version benötige ich?
Die Schritte sind für Excel 2013 und neuere Versionen geeignet. Stelle sicher, dass du auch Outlook installiert hast.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige