Terminbestätigung in öffentlichem Ordner anstatt im persönlichen Kalender

Sehr geehrte Damen und Herren,
ich bin noch recht neu, und habe in Outlook bisher noch keinerlei Macros geschrieben (bisher nur in Access). Gibt es eine Möglichkeit im "Termindialog" eine zusätzliche Schaltfläche zu erzeugen und dort ein Makro zu hinterlegen, dass der Termin nicht im persönlichen sondern im öffentlichen Ordner abgespeichert wird?
Im Voraus besten Dank
Markus

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 556460

Url: https://administrator.de/forum/terminbestaetigung-in-oeffentlichem-ordner-anstatt-im-persoenlichen-kalender-556460.html

Ausgedruckt am: 28.04.2025 um 06:04 Uhr

7 Kommentare

Neuester Kommentar

Makro erstellen, den Code hier einfügen und dann im Menüband einen Button mit dem Makro hinzufügen (Makrosicherheit in Outlook natürlich anpassen!)
Das Meeting wird automatisch zugesagt die Antwort gesendet und der Termin in den Kalender im öffentlichen Ordner verschoben (Zielordner musst selbstredend in Zeile 6 angepasst werden).

Sub SpeichereMeetingInAnderemKalender()
    With ActiveInspector.CurrentItem
        With .GetAssociatedAppointment(True)
            Set rmessage = .Respond(olMeetingAccepted, True)
            rmessage.Send
            .Move Application.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders("MeinTestkalender")  
        End With
        .Close olSave
    End With
End Sub

Danke für die Antwort, wie kann ich auch einen öffentlichen Unterordner zugreifen wenn die Struktur so
\\öffentliche Ordner - benutzermail\Alle öffentlichen Ordner\Archivierte E-Mails\Posteingang - KONTAKT1\Kalender
aussieht?

Über
Application.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("Alle ?ffentliche Ordner").Folders.Item("Archivierte E-Mails").Folders.Item("Posteingang - KONTAKT1\Kalender")

Funktioniert es leider nicht... Wäre schön, wenn jemand eine Idee dazu hat.

Danke

Na immer schön den Baum abarbeiten und dabei das "Alle Öffentliche Ordner" weglassen das ist nämlich schon in der Konstanten "olPublicFoldersAllPublicFolders" enthalten!

Application.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("Archivierte E-Mails").Folders.Item("Posteingang - KONTAKT1").Folders.Item("Kalender")  

Hallo vibrations…
danke für Ihre Antwort...
Funktioniert soweit ganz gut, aber im Betreff der Besprechung steht vor dem eigentlichen Betreff ein "Kopieren: "
Kann man das noch irgendwie unterbinden?
Im Voraus besten Dank
Markus