Office: VBA-Makro: Kalendereintrag kopieren?

Hallo,

kennt jemand ein Makro, mit dem ich einen Kalendereintrag von meinem Kalender in unseren Gruppenkalender kopieren kann? Einige Kollegen schaffen es nicht, den Eintrag mit der Maus rüber zu ziehen, daher würde ich gerne eine Schaltfläche installieren. Leider kenne ich nicht den VBA-Code....

 

Hallo,

darfs auch ein kleines Tool sein? CopyFolder erledigt diese Aufgabe automatisch und auch zeitgesteuert (z. B. beim Beenden von Outlook, oder jeden X. Tag etc.).

Gruß
Peter

 

hmm. Externe Tools kann und dürfte ich nicht installieren... VBA-Code wäre schon sehr nett. Ich kenne nur leider nicht die Syntax, bzw. den Namespace :-(

 

Hier ein lokal getestetes Programmbeispiel:

Code:

Public Sub CopyAppointment()

    Dim objAppointment As Outlook.AppointmentItem
    Dim objSharedFolder As Outlook.MAPIFolder
    Dim strFolder As String
    
    On Error Resume Next
    
    strFolder = "Gruppenkalender"
    
    Set objAppointment = Outlook.ActiveInspector.CurrentItem
    
    If objAppointment Is Nothing Then Set objAppointment = Outlook.ActiveExplorer.Selection(1)
    
    If objAppointment Is Nothing Then Exit Sub
    
    Set objSharedFolder = GetFolder(strFolder)
    
    If objSharedFolder Is Nothing Then
        MsgBox "Der Ordner """ & strFolder & """ konnte nicht gefunden werden." _
            , vbCritical + vbOKOnly, "Kalendereintrag kopieren"
        Exit Sub
    End If
    
    Set objAppointment = objAppointment.Copy
    
    Call objAppointment.Move(objSharedFolder)
    
    Set objAppointment = Nothing
    Set objSharedFolder = Nothing

End Sub

Private Function GetFolder(ByVal strFolder As String) As Object

    On Error Resume Next
    
    Set GetFolder = Outlook.Session.Folders("Öffentliche Ordner")
    Set GetFolder = GetFolder.Folders("Alle Öffentlichen Ordner")
    Set GetFolder = GetFolder.Folders(strFolder)
    
End Function

Würde mich über eine Rückmeldung freuen.

Gruß
Peter

 

Hi,

vielen Dank für den Code.
Immerhin kopiert er schonmal den Eintrag. Nur leider dupliziert er ihn in meinem eigenen Kalender. Irgendwo müsste ich eintragen, wie der Gruppenkalender heisst und dann sollte der Termin dorthin kopiert werden. Ich habe schonmal den Namen in der 6. Zeile eingetragen, aber es funktioniert nicht...

 

bitte den Gruppenkalender markieren, im VBA-Editor im Direktfenster (Strg+g) folgenden Code eingeben,

Code:

?Outlook.ActiveExplorer.CurrentFolder.FolderPath

ENTER drücken und das Ergebnis posten.

 

Strg+G: "Gehe zu Datum..."

Bei manuellen öffnen des Direktfensters:
Fehler 438: Objekt unterstützt diese Eigenschaft oder Methode nicht.

Der Gruppenkalender (also externer Kalender) heisst "Controlling HB".


Wir haben Outlook 2000 SP3, VBA 6.0

 

Im VBA-Editor: Direktfenster

Sorry, FolderPath gibt es erst ab 2002.

Ich bräuchte die Namen aller Ordner bis zu dem Ordner "Controlling HB", um helfen zu können. Normalerweise ist das "\\Öffentliche Ordner\Alle Öffentlichen Ordner\Controlling HB" (Exchange 2003). Möglicherweise verwendet ihr keinen Exchange-Server oder die Ordner heißen bei Exchange 2000 anders.

 

äähhh, wo schaue ich das noch nach? Hab unter Eigenschaften nichts dergleichen gefunden....
Einen Exchange-Server haben wir -glaub ich- doch, aber ob ich da als DUSER an die Eigenschaften darf......

 

Bitte die Ansicht auf "Ordnerliste" umstellen, das Postfach zuklappen (auf das Minuszeichen davor klicken) und den Öffentlichen Speicher aufklappen, bis der Controlling HB-Ordner sichtbar wird. Davon dann bitte einen Screenshot anfertigen und posten oder mir zusenden (E-Mail per PN).

 

Hallo zusammen, ich habe ein ähnliches Problem wie der Thread-Ersteller, nur möchte ich gerne Termine aus dem Standardkalender in einen anderen Kalender kopieren.

Ich habe das gepostete Beispiel verwendet, den Folder-Namen "Gruppenkalender" ersetzt, leider tut sich bei der Makro-Ausführung rein gar nichts. Hat jemand eine Idee?

Danke und Grüße

 

Guten Tag,

vermutlich stimmt die Sicherheitseinstellung für die Makros nicht (siehe Beitrag Tipps und Tricks zu Outlook - Wichtige Hinweise).

Freundlicher Gruß
Peter Marchert