Outlook Termin erstellen

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von xored.

    Outlook Termin erstellen

    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:

    VB.NET-Quellcode

    1. Dim app As Microsoft.Office.Interop.Outlook.Application
    2. Dim appt As Microsoft.Office.Interop.Outlook.AppointmentItem
    4. app = New Microsoft.Office.Interop.Outlook.Application
    5. appt = app.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem)
    6. appt.Subject = tbBetreff.Text
    7. appt.Body = tbInhalt.Text
    8. appt.Location = tbOrt.Text
    9. appt.MeetingStatus = Outlook.OlMeetingStatus.olMeeting
    11. For Each itemChecked In cbContacts.CheckedItems
    12. Dim sentTo As Outlook.Recipients = appt.Recipients
    13. Dim sentInvite As Outlook.Recipient
    14. sentInvite = sentTo.Add(itemChecked.ToString())
    15. sentInvite.Type = Outlook.OlMeetingRecipientType.olRequired
    16. sentTo.ResolveAll()
    17. Next
    19. appt.Start = Convert.ToDateTime(DateTimePicker1.Value)
    20. appt.End = Convert.ToDateTime(DateTimePicker1.Value)
    21. appt.ReminderSet = True
    22. appt.ReminderMinutesBeforeStart = 30
    24. appt.Save()



    Hat da jemand Erfahrung?
    Danke :)

    Gruß, xored


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

    versuche es so, der Termin wird im Kalender des Empfänger eingetragen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim OutlookApp As Microsoft.Office.Interop.Outlook.Application
    4. OutlookApp = CreateObject("Outlook.Application")
    5. Dim ns As Outlook.NameSpace = Nothing
    6. Dim calendarFolder As Outlook.MAPIFolder = Nothing
    7. Dim items As Outlook.Items = Nothing
    8. Dim appItem As Outlook.AppointmentItem = Nothing
    10. ns = OutlookApp.GetNamespace("MAPI")
    11. calendarFolder = ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
    12. items = calendarFolder.Items
    14. appItem = items.Add(Outlook.OlItemType.olAppointmentItem)
    16. appItem.Subject = "Meeting"
    18. appItem.Location = "SomeWhere"
    19. appItem.Start = Convert.ToDateTime("06.11.2019 10:00:00")'Datum natürlich anpassen
    20. appItem.End = Convert.ToDateTime("06.11.2019 11:45:00")
    21. appItem.Importance = OlImportance.olImportanceHigh
    23. appItem.Save() '<-- save !!!
    24. 'IMPOTANT! the Appointment must be saved first !!
    25. 'before you can send to a User
    27. 'next operation, send Apponitment to user
    29. Dim mailItem As Outlook.MailItem = appItem.ForwardAsVcal()
    30. mailItem.To = "xyz@t-online.de"
    31. mailItem.Subject = "Termin für Messe "
    32. mailItem.Body = "dein Text"
    33. mailItem.Attachments.Add("E:\TestFolder\op4.pdf")
    34. mailItem.Send()
    36. 'clean up !!
    37. If Not IsNothing(appItem) Then Marshal.ReleaseComObject(appItem)
    38. If Not IsNothing(items) Then Marshal.ReleaseComObject(items)
    39. If Not IsNothing(calendarFolder) Then Marshal.ReleaseComObject(calendarFolder)
    40. If Not IsNothing(ns) Then Marshal.ReleaseComObject(ns)
    41. End Sub

    hab mal deinen Code genommen, also die Namen die ich verwende werden angezeigt

    VB.NET-Quellcode

    1. Dim app As Microsoft.Office.Interop.Outlook.Application
    2. Dim appt As Microsoft.Office.Interop.Outlook.AppointmentItem
    3. app = New Microsoft.Office.Interop.Outlook.Application
    4. appt = app.CreateItem(Microsoft.Office.Interop.Outlook.OlItemType.olAppointmentItem)
    5. appt.Subject = "Betreff"
    6. appt.Body = "Inhalt"
    7. appt.Location = "Ort"
    8. appt.MeetingStatus = Outlook.OlMeetingStatus.olMeeting
    9. 'For Each itemChecked In cbContacts.CheckedItems
    10. ' Dim sentTo As Outlook.Recipients = appt.Recipients
    11. ' Dim sentInvite As Outlook.Recipient
    12. ' sentInvite = sentTo.Add(itemChecked.ToString())
    13. ' sentInvite.Type = Outlook.OlMeetingRecipientType.olRequired
    14. ' sentTo.ResolveAll()
    15. 'Next
    16. Dim sentTo As Outlook.Recipients = appt.Recipients
    17. Dim sentInvite As Outlook.Recipient
    18. sentInvite = sentTo.Add("Name 2")
    19. sentInvite.Type = Outlook.OlMeetingRecipientType.olRequired
    20. sentInvite = sentTo.Add("Name 3")
    21. sentInvite.Type = Outlook.OlMeetingRecipientType.olOptional
    22. sentTo.ResolveAll()
    23. appt.Start = Date.Now.AddHours(2)
    24. appt.End = Date.Now.AddHours(3)
    25. appt.ReminderSet = True
    26. appt.ReminderMinutesBeforeStart = 30
    27. appt.Save()
    28. appt.Display(True)



    überprüfe mal mit Debug.Print ob deine Namen enthalten sind

    VB.NET-Quellcode

    1. For Each itemChecked In cbContacts.CheckedItems
    2. Dim sentTo As Outlook.Recipients = appt.Recipients
    3. Dim sentInvite As Outlook.Recipient
    4. sentInvite = sentTo.Add(itemChecked.ToString())
    5. sentInvite.Type = Outlook.OlMeetingRecipientType.olRequired
    6. sentTo.ResolveAll()
    7. Next


    hier zum testen

    VB.NET-Quellcode

    1. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    2. For Each indexChecked As Integer In CheckedListBox1.CheckedIndices
    3. MessageBox.Show("Index#: " & indexChecked.ToString() & ", is checked. Checked state is:" & CheckedListBox1.GetItemCheckState(indexChecked).ToString() & ".")
    4. Next
    6. For Each itemChecked As Object In CheckedListBox1.CheckedItems
    7. MessageBox.Show("Item with title: """ & itemChecked.ToString() & """, is checked. Checked state is: " & CheckedListBox1.GetItemCheckState(CheckedListBox1.Items.IndexOf(itemChecked)).ToString() & ".")
    8. Next
    9. End Sub

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Kasi“ ()

    Hey, danke, aber das Problem ist ja nicht das Senden. Alle, die ich anhake, bekommen eine Email, aber nicht mit der typischen Einladung, sondern mit einem Anhang (.vcs-Datei).
    Das meinte ich.

    Gruß


    Meine Website:
    www.renebischof.de

    Meine erste App (Android):
    PartyPalooza

Facebook
Telefonspende