Hallo www-Spezialisten,
das Problem mit der Datumsdifferenz habe ich jetzt gelöst. Jedoch stehe ich schon vor dem nächten Problem.
Ich möchte gerne aus Access eine Termin in Outlook erstellen und Teilnehmer einladen. Hierzu mein jetziger Code:
Dim objOutlook As Outlook.Application
Dim apptOutlook As Outlook.AppointmentItem
Set objOutlook = CreateObject(„Outlook.Application“)
Set apptOutlook = objOutlook.CreateItem(olAppointmentItem)
With apptOutlook
.Start = strZeit
.Display
.Duration = strDauer
.ReminderSet = True
.ReminderMinutesBeforeStart = 1440
.Recipients.Add strEmail
.Recipients.Add strEmail2
.Subject = strBetreff
.Location = strOrt
Set apptOutlook = Nothing
Set objOutlook = Nothing
End With
Der Code funktioniert auch schon soweit, dass ich ein Outlookfenster habe in dem der Termin incl. allem Schnickschnack (Teilnehmer, Ort, etc.) angezeigt wird. Mit „.save“ könnte ich den Termin auch noch speichern. Jedoch möchte ich jetzt den Termin versenden, wie es auch passieren würde, wenn ich auf Teilnehmer einladen klicken würde. Wie lautet die Funktion hierfür?
Ich hoffe ihr könnt mir helfen.
Vielen Dank
Thomas