Termin in Outlook, mit mehreren Konten, über Visual Studio eintragen

  • Outlook

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

    Termin in Outlook, mit mehreren Konten, über Visual Studio eintragen

    Hallo zusammen

    Ich will über eine Form in Visual Basic einen Termin im Outlook eintragen.
    Das klappt auch mit diesem Code einwandfrei:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    2. Dim OutApp
    3. Dim apptOutApp
    5. OutApp = CreateObject("Outlook.Application")
    7. apptOutApp = OutApp.CreateItem(1)
    8. With apptOutApp
    9. .Start = "12.04.2015" & " 18:00"
    10. 'Termininfo
    11. .Subject = "Test"
    12. 'oder der Betreff steht in der Spalte rechts von den Terminen
    13. 'Zusätzlicher Text
    14. .Body = "Text"
    15. 'ort
    16. .Location = "Testort"
    17. .Duration = "19"
    18. 'Erinnerung1
    19. .ReminderMinutesBeforeStart = 10
    20. 'mit Sound :-)
    21. .ReminderPlaySound = True
    22. 'Erinnerung wiederholen
    23. .ReminderSet = True
    24. 'Termin speichern
    25. .Save()
    26. End With
    28. apptOutApp = Nothing
    29. OutApp = Nothing
    31. MsgBox("Alles gut")
    33. End Sub


    Wenn ich aber mehrere Konten im Outlook habe klappt das nicht, weil ich ja angeben muss in welches Konto ich den Termin speichern will.
    Ich habe herausgefunden das dass mit Outlook.Namespace geht und habe folgenden Code ausprobiert:

    VB.NET-Quellcode

    1. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    2. Dim OutApp
    3. Dim apptOutApp
    5. OutApp = CreateObject("Outlook.Application")
    7. Dim myNameSpace As Microsoft.Office.Interop.Outlook.NameSpace
    9. myNameSpace = OutApp.GetNamespace("MAPI")
    10. myNameSpace.Logon("Email-Adresse", "MeinEmailPasswort", False, False)
    12. apptOutApp = OutApp.CreateItem(1)
    13. With apptOutApp
    14. .Start = "12.04.2013" & " 18:00"
    15. 'Termininfo
    16. .Subject = "Test"
    17. 'oder der Betreff steht in der Spalte rechts von den Terminen
    18. 'Zusätzlicher Text
    19. .Body = "Text"
    20. 'ort
    21. .Location = "Testort"
    22. .Duration = "19"
    23. 'Erinnerung1
    24. .ReminderMinutesBeforeStart = 10
    25. 'mit Sound :-)
    26. .ReminderPlaySound = True
    27. 'Erinnerung wiederholen
    28. .ReminderSet = True
    29. 'Termin speichern
    30. .Save()
    31. End With
    33. apptOutApp = Nothing
    34. OutApp = Nothing
    35. myNameSpace = Nothing
    37. MsgBox("Alles gut")
    39. End Sub


    Bekomme aber eine Fehlermeldung:
    System.Runtime.InteropServices.COMException
    Additional information: Der Server steht nicht zur Verfügung. Falls dieser Zustand fortbesteht, wenden Sie sich bitte an Ihren Administrator.

    Was mache ich falsch?

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

    Bei der von Dir gezeigten Variante, benötigst Du das Password von jedem Anwender. Diese solltest Du aus Datenschutzgründen nicht haben. Zugriff auf eine Mailbox hat nur der Anwender.
    Des Weiteren, wie willst Du eine Änderung des Termines gewährleisten. Bei einzelnen Termine, müsstest Du dann ja auch wieder in jeden Account rein, um dort die Änderung durchzuführen. Bei ein Besprechung macht dies die Änderung direkt.
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

Facebook
Telefonspende