Hallo zusammen,
wusste leider nicht recht, in welchen Thread ich das hier schreiben sollte.
Ich möchte gerne einen Einsatz im Outlook Terminkalender anlegen.
Das ganze klappt auch schon, aber Outlook wird nicht wieder freigegeben.
Sprich: Das NotifyIcon zeigt an: Outlook wird gerade von einem anderen Programm verwendet.
Habt ihr eine Idee was ich vergessen habe?
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
| outApp = New Microsoft.Office.Interop.Outlook.Application
Dim dBeginn As Date
Dim dEnde As Date
'Kalendereintrag anlegen
Dim oKalender As Outlook.AppointmentItem
oKalender = outApp.CreateItem(Outlook.OlItemType.olAppointmentItem)
Try
'Dim dDate As Date = Convert.ToDateTime(myEinsatz.EINSATZDATUM.Substring(0, 10) + " " + myEinsatz.BEGINN.Substring(12, 16))
dBeginn = Convert.ToDateTime(myEinsatz.EINSATZDATUM + " " + myEinsatz.BEGINN)
dEnde = Convert.ToDateTime(myEinsatz.EINSATZDATUM + " " + myEinsatz.ENDE)
Catch ex As Exception
End Try
With oKalender
.Subject = myEinsatz.AUFTRAGNR + ": " + myEinsatz.BEMERKUNG
.Location = myEinsatz.ORT
.Body = myEinsatz.AUFTRAGMEMO
.BusyStatus = Outlook.OlBusyStatus.olBusy
.Start = dBeginn
.End = dEnde
.Save()
End With
End If
End If |
Mit freundlichen Grüßen
Micha
EDIT:
Das ganze ist in VB.NET geschrieben, aber sollte ja kein Problem sein.
Moderiert von 
Th69: Quote- durch Code-Tags ersetzt
