Hallo zusammen,

ich bin so langsam am verzweifeln.

Ich habe einen Code mit Unterstützung des Internets zur Versenden von Aufgaben via Outlook generiert.

Funktioniert alles so wie gewünscht, nur eine Funktion wird nicht unterstützt: Die Erinnerungsfunktion.

Wenn ich den Termin bei mir im Outlook speicher, erscheint die Erinnerungsfunktion wie gewünscht. Wenn ich den Termin jemandem zuweise also verschicke ist keine Erinnerungsfunktion nicht mehr da.

Ziel ist es dass ich die Termine verschicken kann und im Hintergrund ist eine Standarderinnerung z.B. 3 Tage vor Ablauf des Duedates, mitgesendet wird.

Kann mir da jemand helfen?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, Range("J1:J18")) Is Nothing Then Exit Sub
If Target.Column = 10 Then
   Call TaskVerschicken
End If
End Sub

Sub TaskVerschicken()
'http://www.herber.de/forum/archiv/1176to1180/t1178240.htm
Dim olApp, myItem, myDelegate
Set olApp = CreateObject("Outlook.Application")
Set myItem = olApp.CreateItem(3)
myItem.Assign
Set myDelegate = myItem.Recipients.Add(Sheets("Tabelle1").Range("A1"))
myDelegate.Resolve
If myDelegate.Resolved Then
myItem.Subject = "Action needed: " & Sheets("Tabelle1").Range("B1") & " " & Range("H1") 'Betreff (Zusammengesetzt)
myItem.StartDate = Sheets("Tabelle1").Range("C1") 'Startdatum
myItem.DueDate = Sheets("Tabelle1").Range("D1") 'Fälligkeit
myItem.Importance = Sheets("tabelle1").Range("E1") 'Priorität
myItem.Status = Sheets("Tabelle1").Range("G1") 'Status der Aufgabe
myItem.body = "Guten Tag, " & Chr(13) & Chr(13) & "Dies ist eine automatisch generierte Outlook-Aufgabe. Bitte nicht Antworten! " & Chr(13) & Chr(13) & "Gem. des Actionplans_GLA sind Sie für die o.g. Aufgabe verantwortlich. Der Name ist unter " & Range("F1") & " im Actionplan hinterlegt." & Chr(13) & Chr(13) & "Vielen Dank und viele Grüße," & Chr(13) & "Ihr Actionplan-Team" 'Nachricht
myItem.ReminderTime = DateAdd("d", -1, myItem.DueDate) & " 10:00"
myItem.ReminderSet = True
myItem.Display
'myItem.Send (für direktsende-Funktion)
End If
End Sub

Grüße,

Vika