MS Outlook mit 2 Kalendern

Hi,

es kommt nicht oft vor, aber hin und wieder erhalte ich einen Termin per iCal Datei. Damit lässt sich im OL der Termin anlegen.

Aber an welcher Stelle kann ich OL dazu bringen, diesen Termin gezielt in Kalender 2 anzulegen?

Zum Nachstellen: Prinzipiell besteht dasselbe Problem über "Start -> Neuer Termin".

Gibt's da was, was ich in OL 2013 übersehen habe?

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

Content-ID: 296309

Url: https://administrator.de/forum/ms-outlook-mit-2-kalendern-296309.html

Ausgedruckt am: 26.12.2024 um 01:12 Uhr

3 Kommentare

Neuester Kommentar

Hallo lexa-lexa,
das geht nach einem Doppelklick auf die ics/iCal mit Datei > Element in einen anderen Ordner verschieben > In Ordner kopieren. Dort wählst du dann im Dialog "Element kopieren nach" deinen Kalender aus, und schon landet der Termin im gewünschten Kalender

.

Grüße Uwe

Hi Uwe,

danke, so geht's, aber so werde ich es nicht machen.

Ich bin mir nicht sicher, ob MS das ernst meint und finde es erstaunlich, wieviel Phantasie die aufwenden, um einfache Funktionen hinter den unsinnigsten Abläufen zu verstecken und dann noch unmöglich zu benennen: "Elemente" verstecken sich unter "Datei" + "Verschieben" beinhaltet "Kopieren", obwohl eigentlich "Erstellen" gemeint ist ...

Ich werde nun meine Methode beibehalten und den Termin anlegen, um ihn dann mittels Shift+Mausschubs zum Kalender 2 zu verschieben. Das ist zwar auch krank, geht aber bedeutend schneller und ist intuitiver

Mit zwei drei VBA Zeilen könntest du dir auch einen Button ins Ribbon mit der gewünschten Funktionalität einbauen, das wäre nicht das Problem

Hier ein Beispiel bei dem der zweite Kalender ein Unterordner des Standardkalenders ist und "Zweitkalender" heißt:

Sub SaveInSecondCalendar()
    Dim app As AppointmentItem
    Set app = ActiveInspector.CurrentItem
    app.CopyTo Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Folders("Zweitkalender"), olCreateAppointment  
    app.Close olDiscard
End Sub

Das ganze auf einen neuen Button im Ribbon eines Appointments gelegt, feddich.