7
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
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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 556460
Url: https://administrator.de/contentid/556460
Printed on: April 23, 2024 at 11:04 o'clock
7 Comments
Latest comment
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).
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
\\ö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
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
Mach einfach zusätzlich noch ein Replace von "Kopie" des Subjects. Das solltest du auch selbst hinbekommen
https://docs.microsoft.com/de-de/office/vba/language/reference/user-inte ...
https://docs.microsoft.com/de-de/office/vba/language/reference/user-inte ...
Es wird auch aus der Besprechung ein "normaler" Termin, so dass die Absage nicht funktioniert... Kann man diese "Eigenschaft" mit übernehmen?
Nein. Die Funktionieren nur in der Mailbox.
