Termine in Outlook Kalender eintragen

  • Excel

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

    Termine in Outlook Kalender eintragen

    Hallo,
    brauche dringen Hilfe!!!
    Ich habe bereits einen VBA Code erstellt der auf meinen Computer funktioniert, ( Der Kalender ist ein freigegebener Ordner und liegt in meinen Postfach), sobald aber dieser Code von einen anderen Computer aufgerufen wird kommt eine Fehlermeldung: Laufzeitfehler'-2147220991 (80040201)': Fehler bei diesem Vorgang. Die Nachrichtenschnittstellen haben einen unbekannten Fehler zurückgeliefert .
    Fehler kommt in dieser Zeile : Set oMapiFolders = oNamespace.GetFolderFromID("0000001111110000")

    Visual Basic-Quellcode

    1. Sub TerminErstellen()
    3. Dim oMapiFolders As Outlook.MAPIFolder
    4. Dim oAppItem As Outlook.AppointmentItem
    5. Dim oOutlook As Outlook.Application
    6. Dim oNamespace As Outlook.Namespace
    8. Set oOutlook = CreateObject("Outlook.Application")
    9. Set oNamespace = oOutlook.GetNamespace("MAPI")
    10. Set oMapiFolders = oNamespace.GetFolderFromID("4766444000ab")
    11. Set oAppItem = oMapiFolders.Items.Add(olAppointmentItem)
    13. Set WB = ThisWorkbook
    14. Set TP = WB.Sheets("Anmeldung")
    15. Set OL = New Outlook.Application
    17. Range("a6:ab40").Select
    18. Selection.Copy
    20. DayMeeting = TP.Range("o2") 'Datum
    21. StartTime = TP.Range("l23") 'Startzeit
    22. EndTime = TP.Range("t23") 'Endzeit
    23. Location = TP.Range("c1") 'Ort
    24. Subject = TP.Range("k14") ' Betreff
    26. With oAppItem
    27. .Subject = Subject
    28. .Start = StartTime
    29. .End = EndTime
    30. .Location = Location
    31. .AllDayEvent = False
    32. .Display
    33. .Body = Body
    34. Application.SendKeys ("^v")
    35. .Display
    36. .Save
    37. End With
    39. End Sub

    LG
    Höfi

    CodeTags gesetzt ~VaporiZed

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

    Hallo

    Probier doch mal den Ordner über den Namen aufzurufen:

    Visual Basic-Quellcode

    1. Set oMapiFolders = oNamespace.Folders("Einkauf (Panters AG)")


    CodeTags korrigiert; bitte zukünftig darauf achten, das richtige CodeHighlighting zu verwenden ~VaporiZed

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

    Probiere mal dies als Basisgerüst bei geöffnetem Outlook:

    Visual Basic-Quellcode

    1. Private olApp As Outlook.Application
    2. Private olEintrag As Outlook.AppointmentItem
    4. Sub Eintrag()
    6. If olApp Is Nothing Then
    7. Set olApp = GetObject(, "Outlook.Application")
    8. End If
    10. Set olEintrag = olApp.CreateItem(olAppointmentItem)
    12. With olEintrag
    14. .Start = VBA.Format(#4/1/2023#, "dd.mm.yyyy")
    16. .Subject = "Mein Subject"
    18. .Save
    20. End With
    22. Set olEintrag = Nothing
    24. End Sub
    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).

    Hallo danke für die rasche Antwort, leider funken beide nicht. Ich bräuchte den Abruf für die Entry ID, damit auch andere Kollegen zugreifen können Die Store ID wird korrekt abgerufen und der Termin inkl. den benötigten Daten im richtigen Kalender abgespeichert, das funktioniert nur bei mir deshalb benötige ich Abruf für die EntryID (ID habe ich).
    LG
    Höfi

    NB. Es ist doch schön, wenn man lesbare Namen vergibt. Siehe auch [VB.NET] Beispiele für guten und schlechten Code (Stil).