|
Hallo liebes Forum!
Ich hatte seit Jahren ein funktionierendes Makro, welches ich seit der Umstellung auf Windows 10 und Office 2013 als auch aktuell mit Office 365 nicht mehr nutzen kann. Das problem tritt auf einem Firmenlaptop auf, d.h. systemadministriert.
Das Makro hatte folgenden Sinn:
In Excel hatte ich eine Action Liste erstellt mit Aufgabenbeschreibung, Verantwortlichen und Termin. Per Makro wurde aus der markierten Zeile direkt eine Outlook Aufgabe erstellt, welche sofort an den Verantwortlichen verschickt werden konnte. Nun funktioniert das Makro nicht mehr. Leider kenne ich mich mit VBA so gut wie gar nicht aus, daher bekomme ich nicht heraus, woran es liegt.
Hier der Code:
Sub Aufgabenanfrage()
Dim OlApp As Object
Dim Aufgabe As Object
Dim Empfänger As Object
Set OlApp = CreateObject("Outlook.application")
Set Aufgabe = OlApp.CreateItem(3)
Aufgabe.Assign
zeile = ActiveCell.Row
Set Empfänger = _
Aufgabe.Recipients.Add(Range("I" & zeile).Value)
Aufgabe.Subject = Range("P" & zeile)
Aufgabe.DueDate = Range("K" & zeile)
Aufgabe.Body = "Action description: " & Chr$(10) & Range("F" & zeile)
Aufgabe.Display 'Send
End Sub
Beim Ausführen wird folgender Fehler ausgegeben: "Laufzeitfehler '287': Anwendungs- oder objektdefinierter Fehler"
Beim Debuggen springt er auf die Zeile:
Set Empfänger = _
Aufgabe.Recipients.Add(Range("I" & zeile).Value)
Das Problem scheint also der Empfänger zu sein. Wenn ich diese Zeile auskommentiere (entferne), dann läuft das Makro durch. In der Outlook Aufgabe ist aber dann auch kein Empfänger eingetragen. Hat jemand eine Idee, wie ich das wieder hinbekomme, dass der Empfänger auch an die Outlook Aufgaben übergeben wird?
Vielen Dank und viele Grüße,
Jürgen
|