|
Hallo Zusammen,
ich bin ziemlich neu mit VBA unterwegs und habe eine Frage zum Outlook-Objekt:Appointment.
In einer Excel Datei habe ich folgenden Quellcode (Teilausschnitt):
Sub OutlookReminder()
DIM...
Set obj_Outlook = CreateObject("Outlook.Application")
Set obj_Calender = obj_Outlook.session.GetDefaultFolder(9)
Set obj_Appointment = obj_Calender.Items.Add(1)
With obj_Appointment
.Subject = "Test"
.Location = "Office"
.ReminderSet = True
.ReminderMinutesBeforeStart = 0
...weitere Eigenschaften...
.Display
End With
Do While obj_Appointment.Saved = False
Loop
Set obj_Outlook = Nothing
Set obj_Calender = Nothing
Set obj_Appointment = Nothing
End Sub
Das Programm funktioniert auch so weit so gut. Er öffnet mir einen Kalendereintrag im Hintergrund.
Dazu habe ich 2 Fragen:
1. Loop-Anweisung. Wie kann ich im Programm abfangen, wenn ich den Kalendereintrag NICHT SPEICHER?
2. Wie kann ich den Kalendereintrag in den Vordergrund schalten?
mfg
Matthias
Office365
|