Hallo,
ich bin noch recht unerfahren mit VBA, habe mir aber schon einige Tutorials angesehen und das Netz nach meinem Problem durchsucht. Ich möchte aus Excel heraus einen Termin in Outlook erstellen.
Quellcode:
Dim obj_Outlook, obj_Calender, obj_Appointment, obj_Window As Object
Set obj_Outlook = CreateObject("Outlook.Application")
Set obj_Calender = obj_Outlook.session.GetDefaultFolder(9)
Set obj_Appointment = obj_Calender.Items.Add(1)
Set obj_Window = obj_Outlook.ActiveWindow
With obj_Appointment
.Subject = "Betreff"
.Body = "Textkörper"
.Location = "Ort"
.Display True
End With
Set obj_Window = Nothing
Set obj_Outlook = Nothing
Set obj_Calender = Nothing
Set obj_Appointment = Nothing
...so weit, so gut...
Nachdem das Fenster für den Termin sich öffnet, ist mein Outlook blockiert.
Ich kann keinen anderen Termin parallel öffnen und auch nicht auf meinen Posteingang zugreifen.
Erst wenn ich den Termin schließe (mit/ohne speichern) kann ich Outlook wieder ganz normal bedienen?!
mfg
Matthias
Office 365