Thema Datum  Von Nutzer Rating
Antwort
Rot Aufgaben aus Excel in Outlook mit Erinnerungsfunktion
 03.11.2014 11:53:13 Vika
NotSolved

Ansicht des Beitrags:
Von:
Vika		 Datum:
03.11.2014 11:53:13		 Views:
1407		 Rating:
     
Antwort:
  Ja
Thema:
Aufgaben aus Excel in Outlook mit Erinnerungsfunktion

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?

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Aufgaben aus Excel in Outlook mit Erinnerungsfunktion
 03.11.2014 11:53:13 Vika
NotSolved