VBA-Makro: Kalendereintrag kopieren? :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

Werbung: CD/DVD Bedrucken Pressen Kopieren Hüllen

[Outlook 2000] VBA-Makro: Kalendereintrag kopieren?

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Outlook Hilfe

Autor

Nachricht

SvenZ
Office-Hilfe.com-Neuling

Anmeldedatum: 02.11.2007
Beiträge: 5
Wohnort: Oldenburg

Verfasst am: 18.11.2008, 11:16

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....

Peter Marchert
Office-Hilfe.com-Profi

Anmeldedatum: 26.12.2006
Beiträge: 1045

Verfasst am: 18.11.2008, 15:21

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

_________________
Tipps, Tricks & Tools für
Microsoft® Office Outlook®

SvenZ
Office-Hilfe.com-Neuling

Anmeldedatum: 02.11.2007
Beiträge: 5
Wohnort: Oldenburg

Verfasst am: 19.11.2008, 15:22

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 Sad

Peter Marchert
Office-Hilfe.com-Profi

Anmeldedatum: 26.12.2006
Beiträge: 1045

Verfasst am: 19.11.2008, 15:40

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

_________________
Tipps, Tricks & Tools für
Microsoft® Office Outlook®

SvenZ
Office-Hilfe.com-Neuling

Anmeldedatum: 02.11.2007
Beiträge: 5
Wohnort: Oldenburg

Verfasst am: 20.11.2008, 13:26

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...

Peter Marchert
Office-Hilfe.com-Profi

Anmeldedatum: 26.12.2006
Beiträge: 1045

Verfasst am: 20.11.2008, 13:39

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.

_________________
Tipps, Tricks & Tools für
Microsoft® Office Outlook®

SvenZ
Office-Hilfe.com-Neuling

Anmeldedatum: 02.11.2007
Beiträge: 5
Wohnort: Oldenburg

Verfasst am: 20.11.2008, 16:46

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

Peter Marchert
Office-Hilfe.com-Profi

Anmeldedatum: 26.12.2006
Beiträge: 1045

Verfasst am: 20.11.2008, 16:56

Zitat:

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

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.

_________________
Tipps, Tricks & Tools für
Microsoft® Office Outlook®

SvenZ
Office-Hilfe.com-Neuling

Anmeldedatum: 02.11.2007
Beiträge: 5
Wohnort: Oldenburg

Verfasst am: 20.11.2008, 18:35

ää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......

Peter Marchert
Office-Hilfe.com-Profi

Anmeldedatum: 26.12.2006
Beiträge: 1045

Verfasst am: 20.11.2008, 18:41

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).

_________________
Tipps, Tricks & Tools für
Microsoft® Office Outlook®

CrissCross
Office-Hilfe.com-Neuling

Anmeldedatum: 13.01.2010
Beiträge: 1

Verfasst am: 13.01.2010, 11:34

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

Peter Marchert
Office-Hilfe.com-Profi

Anmeldedatum: 26.12.2006
Beiträge: 1045

Verfasst am: 13.01.2010, 17:24

Guten Tag,

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

Freundlicher Gruß
Peter Marchert

_________________
Tipps, Tricks & Tools für
Microsoft® Office Outlook®

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Outlook Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Makro für Zahlenanordnung gesucht...	tobstein	Microsoft Excel Hilfe	5	27.08.2010, 07:16
	Daten aus Zwischenablage per Makro ei...	schelmno.1	Microsoft Excel Hilfe	8	26.08.2010, 17:06
	Makro zum löschen von Inhalten -DRINGEND	Excelking	Microsoft Excel Hilfe	2	26.08.2010, 16:09
	Makro an wechselnde Daten anpassen! M...	PieWie83	Microsoft Excel Hilfe	1	19.08.2010, 15:38
	VBA / kopieren+inhalte einfügen-->...	Gomorra	Microsoft Excel Hilfe	5	16.08.2010, 10:11

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Haftungsausschluss/Disclaimer

SMS kostenlos versenden | Tuning Forum | krankenversicherungsvergleich | Wii Modchip Xbox 360 Konsole

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de