Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Öffentliche Ordner schon beim Outlook-Start öffnen

Frage Microsoft Exchange Server

Mitglied: Stephen

Stephen (Level 1) - Jetzt verbinden

24.04.2007, aktualisiert 25.04.2007, 13039 Aufrufe, 6 Kommentare

Hallo,

ich verwende Outlook mit einem Exchange Server (SBS 2003).
Gibt es die Möglichkeit, schon beim Outlook-Start den Inhalt des öffentlichen Ordners angezeigt zu bekommen?
Wozu eignet sich bitte der Favoritenordner?
Ich finde es etwas störend, jedesmal den ganzen Baum zu öffnen.

Besten Dank für die Hilfe.

Gruß
S.
Mitglied: anthrax
25.04.2007 um 13:02 Uhr
Also ich hab ein Makro gebastelt, welches sich durchhangelt, bis es bei dem Ordner ist. Das könntest du ja auch, und dann einfach beim Statren von Outlook mit ausführen lassen.

Das Skript habe ich von hier kopiert:
http://www.office-loesung.de/ftopic130778_0_0_asc.php

Gruß
Bitte warten ..
Mitglied: Stephen
25.04.2007 um 14:50 Uhr
Hallo anthrax,

danke für die Hilfe.
Doch leider bekomme ich das Makro nicht zum Laufen.
Set SharedFolder1 = myNms.GetSharedDefaultFolder(myRecipient1, olFolderCalendar)
Hier bekomme ich die Meldung: "Outlook kennt mindestens einen Namen nicht".
Ich bin leider nicht ganz so fit in VBA...

Gruß
S.
Bitte warten ..
Mitglied: anthrax
25.04.2007 um 14:58 Uhr
Okay, kein Problem. Dann mal hier den Code:



Sub DispCalendars()
Dim myOlApp As Outlook.Application
Dim myNms As Outlook.NameSpace
Dim myFolder As Outlook.MAPIFolder
Dim myRecipient1 As Outlook.Recipient
Dim myRecipientKA1 As Outlook.Recipient
Dim myExplorer As Outlook.Explorer
Dim SharedFolder1 As Outlook.MAPIFolder
Dim SharedFolderKA1 As Outlook.MAPIFolder
Dim myView As Outlook.View


'1 und KA1 sind Variablen und bezeichnen die beiden Kalender
Set myOlApp = CreateObject("Outlook.Application")
Set myNms = myOlApp.GetNamespace("MAPI")
Set myFolder = myNms.GetDefaultFolder(olFolderCalendar)
Set myExplorer = myOlApp.ActiveExplorer
??? Set myExplorer.CurrentFolder = Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("XXX")


'Öffentlicher Kalender anzeigen
'anstatt "Alle Öffentliche Ordner" muß "Favoriten" stehen
'Termine durch Namen des öffentlichen Kalenders ersetzen
??? Set SharedFolderKA1 = Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("XXX")


'Der öffentliche Ordner wird hiermit sichtbar gemacht.
myExplorer.SelectFolder SharedFolderKA1


End Sub



Dort wo ("XXX") steht gibst du den Namen deines Objektes im Öffentlichen Ordner an.
Wenn du weitere Unterordner hast, einfach dranhängen:

Bsp: wenn du in deinem öff Ordner einen Subordner "Entwicklung" hast, und in diesem befindet sich zB ein Kalenderobjekt "Hanswurst" dann sehen die Zeile mit "???" markiert wie folgt aus:

??? Set myExplorer.CurrentFolder = Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("Entwicklung").Folders("Hanswurst")

und
??? Set SharedFolderKA1 = Application.GetNamespace("MAPI").Folders.Item("Öffentliche Ordner").Folders("Alle Öffentlichen Ordner").Folders("Entwicklung").Folders("Hanswurst")



Probiers mal :D
Bitte warten ..
Mitglied: Stephen
25.04.2007 um 15:20 Uhr
Vielen Dank.
Ich habe gesehen, dass du "eigenen Kalender" weggelassen hast. So läuft´s.

Eine kurze Frage habe ich aber noch: Was muss ich nun tun, damit das Makro beim Outlookstart ausgeführt wird?

Ich habe es damit versucht:
'damit das Makro automatisch startet
Private Sub Application_Startup()
DispCalendars
End Sub
Aber erst, wenn ich das Makro manuell ausführe, wird mir der Kalender angezeigt.
Bitte warten ..
Mitglied: anthrax
25.04.2007 um 15:31 Uhr
Kuckst du hier:

http://www.office-loesung.de/ftopic29805_0_0_asc.php

Dass ist glaube ich was du benötigst...und sonst kannst das ja auch über ein Icon in der Symbolleiste ausführen lassen...das ginge auch noch.
Bitte warten ..
Mitglied: Stephen
25.04.2007 um 16:45 Uhr
Tut mir leid, aber mit meinen geringen Kenntnissen weiss ich nicht, was ich machen soll.
Ich sehe zwar die Ereignisse von Application, aber dass war´s dann.

Gruß

S.
Bitte warten ..
Ähnliche Inhalte
Outlook & Mail
gelöst Fehler beim Öffnen von Anlagen im Öffentlichen Ordnern (1)

Frage von Sinzal zum Thema Outlook & Mail ...

VB for Applications
gelöst Outlook Formular aus öffentlichem Ordner bearbeiten (6)

Frage von runner-ralf zum Thema VB for Applications ...

Exchange Server
Öffentliche Ordner Exchange 2016 (4)

Frage von HeinrichM zum Thema Exchange Server ...

Exchange Server
Office365 Öffentlicher Ordner an mobiles (1)

Frage von PizzaPepperoni zum Thema Exchange Server ...

Neue Wissensbeiträge
Windows Update

Novemberpatches und Nadeldrucker bereiten Kopfschmerzen

(14)

Tipp von MettGurke zum Thema Windows Update ...

Windows 10

Abhilfe für Abstürze von CDPUsersvc auf Win10 1607 und 2016 1607

(7)

Tipp von DerWoWusste zum Thema Windows 10 ...

RedHat, CentOS, Fedora

Fedora 27 ist verfügbar

Information von Frank zum Thema RedHat, CentOS, Fedora ...

Heiß diskutierte Inhalte
Windows Server
Kennwort vergessen bei Hyper vserver 2012r (12)

Frage von jensgebken zum Thema Windows Server ...

Linux Desktop
Bildschirmauflösung unter Linux festlegen (12)

Frage von itebob zum Thema Linux Desktop ...

Windows Userverwaltung
gelöst Administrator hat alle Rechte verloren (10)

Frage von mrdead zum Thema Windows Userverwaltung ...

DSL, VDSL
gelöst PfSense 2.4.1 an Telekom Entertain 50MBit VDSL BNG, IPTV funktioniert nicht (9)

Frage von stefanxx zum Thema DSL, VDSL ...