ich habe eine Liste in Excel, die fortgeführt werden soll. Es werden verschiedene Informationen eingepfelgt, u.a. wird in der Excel-Liste ein bestimmtes Datum ermittelt.
Nun möchte ich, dass fünf Tage vor dem errechneten Datum ein Termin in Outlook samt Reminder erstellt wird.
Der Code funktioniert an sich auch, nur dass mir der Termin im Outlook stets auf den 30.12.1899 gelegt wird.
Function lvOutloook(Reminder As String, Beschreibung As String) As Boolean
Set OutApp = CreateObject("Outlook.Application")
Set apptoutApp = OutApp.CreateItem(1)
With apptoutApp
' .Start = Format(Reminder, "dd.mm.yyyy") & "09:00"
.Start = Format(StartDatum, "m/d/yyyy") & "09:00"
.Subject = Beschreibung
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
Set apptoutApp = Nothing
Set OutApp = Nothing
lvOutloook = True
MsgBox "Termin an Outlook übertragen"
Exit Function
End Function
Sub test()
Dim Reminder As String, Beschreibung As String
Dim s As Object
Set s = ActiveWorkbook.Sheets(1)
Mitarbeiter = s.Cells(2, 1)
Dienstleister = s.Cells(2, 2)
Eintrittsdatum = s.Cells(2, 3)
Fristende = s.Cells(2, 4)
Reminder = Fristende - 5
Beschreibung = Mitarbeiter & " / " & Dienstleister & " / " & "Eintrittsdatum:" & " " & _
Eintrittsdatum
lvOutloook Reminder, Beschreibung
End Sub
Was muss ich anders machen, damit Outlook das richtige Datum erkannt?