ich habe in einer Exceltabelle (2007) ein Worksheet mit Bestelleinträgen wo ich den Liefertermin gerne als Reminder oder Aufgabe ins Outlook (2007) exportieren will, damit mich bei Outlook bei überfälligen Termin daran erinnert.
Aus der Zeile soll er die Werte Lieferant Bezeichnung, Menge und Termin auslesen.
der Termin soll dann als Fälligkeit und Reminder eingetragen werden.
Bezeichnung, Lieferant und Menge nur als Subject.
Vielleicht hatte ja schon jemand ein ähnliches Problem.
so ich habs doch selber lösen können.
hier der Code für alle die das eventuell gebrauchen können:
Sub Excel\_an\_Outlook\_Aufgabe()
Dim myToDo As Date, myDay As String, myRemBefore As Integer, myToInterVal
Dim MyOlApp As Object, myJob As Object
Dim mySubj As String
Dim myRow As Integer
Dim myBody As String
myRow = 2
Do While Not IsNull(myDay)
myRow = myRow + 1
myDay = Worksheets("OB\_Gesamt").Cells(myRow, 19).Value
mySubj = "Lieferung fällig!: " + Worksheets("OB\_Gesamt").Cells(myRow, 6).Value
myBody = "Bestellung: " + Worksheets("OB\_Gesamt").Cells(myRow, 1).Value + " Pos: " + Worksheets("OB\_Gesamt").Cells(myRow, 2).Value & vbCrLf & "Lieferant: " + Worksheets("OB\_Gesamt").Cells(myRow, 4).Value
Set MyOlApp = CreateObject("Outlook.Application")
'CreateItem(3) erstellt ein Aufgaben-Object
Set myJob = MyOlApp.CreateItem(3)
With myJob
.Subject = mySubj
.DueDate = myDay
myRemBefore = 0
.ReminderSet = True
.startDate = myDay
'Die Wichtigkeit der Aufgabe
'Werte 1,2 und 3 zulässig
.Importance = 2
.Body = myBody
'Die Aufgabe wird definitiv gespeichert
.Save
End With
If myDay = "" Then Exit Sub
Loop
End Sub
Das was mir jetzt noch fehlt wäre ein Kontrollmechanismus welcher verhindert, dass bei 2-facher Ausführung die Termine doppelt eingetragen werden.