Hi!
Ich möchte gerne via VB.NET einen Outlook-Termin erstellen.
Dies klappt auch, ABER..
es werden keine Teilnehmer eingeladen.
Der Termin wird erstellt, aber erst wenn ich extra in Outlook zum Termin gehe, Rechtsklick mache, einladen drücke, dann sehe ich die, die ich auch in meiner CheckedListBox
angehakt habe. Ich möchte aber gerne, dass diese automatisch eingeladen werden. Das ist mein Code:
Hat da jemand Erfahrung?
Danke
Gruß, xored
Ich möchte gerne via VB.NET einen Outlook-Termin erstellen.
Dies klappt auch, ABER..
es werden keine Teilnehmer eingeladen.
Der Termin wird erstellt, aber erst wenn ich extra in Outlook zum Termin gehe, Rechtsklick mache, einladen drücke, dann sehe ich die, die ich auch in meiner CheckedListBox
angehakt habe. Ich möchte aber gerne, dass diese automatisch eingeladen werden. Das ist mein Code:
VB.NET-Quellcode
- Dim app As Microsoft.Office.Interop.Outlook.Application
- Dim appt As Microsoft.Office.Interop.Outlook.AppointmentItem
- app = New Microsoft.Office.Interop.Outlook.Application
- appt = app.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem)
- appt.Subject = tbBetreff.Text
- appt.Body = tbInhalt.Text
- appt.Location = tbOrt.Text
- appt.MeetingStatus = Outlook.OlMeetingStatus.olMeeting
- For Each itemChecked In cbContacts.CheckedItems
- Dim sentTo As Outlook.Recipients = appt.Recipients
- Dim sentInvite As Outlook.Recipient
- sentInvite = sentTo.Add(itemChecked.ToString())
- sentInvite.Type = Outlook.OlMeetingRecipientType.olRequired
- sentTo.ResolveAll()
- Next
- appt.Start = Convert.ToDateTime(DateTimePicker1.Value)
- appt.End = Convert.ToDateTime(DateTimePicker1.Value)
- appt.ReminderSet = True
- appt.ReminderMinutesBeforeStart = 30
- appt.Save()
Hat da jemand Erfahrung?
Danke
Gruß, xored