Outlooktermine aus Excel - kleines Prob
Gegga
benutze folgenden Code um aus einer Textbox einen Termin mir in Outlook zu legen...
Sub Term_Outl()
Dim myOlApp As Object
Dim myItem As Object
Set myOlApp = CreateObject("Outlook.Application")
Set myItem = myOlApp.CreateItem(1)
With myItem
.Subject = "fällige Rechnung" & " - " & UF_NEUE_BESTELLUNG_EINTRAGEN.TB_BESTNR.Text
.Body = "Diese Rechnung wird in 7 Tagen fällig!!!!"
.Location = ""
.Start = Format(UF_POSITION_BEARBEITEN.TB_FÄLLIGKEIT - (7), "dd.mm.yyyy") & " 08:00"
.Duration = "10"
.ReminderMinutesBeforeStart = 10
.ReminderPlaySound = True
.ReminderSet = True
.Save
End With
MsgBox "Termine an Outlook übertragen!"
Set myOlApp = Nothing
Set myItem = Nothing
End Sub
Jetzt bekomme ich hier eine Fehlermeldung "Überlauf"
mit Format(Date + (1) legt es mir den Termin auf einen Tag später (Heute + 1 Tag)
Ich wollte versuchen, das er mein Datum aus der Textbox nimmt und -7 Tage mir eine Errinnerung einträgt.
Wie muss das denn lauten?
Wenn ich debugge zeigt es mir den Datumswert bei UF_POSITION_BEARBEITEN.TB_FÄLLIGKEIT an. Was mache ich falsch?
Vielen vielen Dank euch allen!!!
Gruss und schönes WE
Gegga