Top-Themen

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

Frage Entwicklung VB for Applications

GELÖST

öffentliche Ordner per Skript in Outlook hinzufügen

Mitglied: Dirmhirn

Dirmhirn (Level 2) - Jetzt verbinden

26.02.2014, aktualisiert 10:56 Uhr, 2345 Aufrufe, 2 Kommentare

Hi!

ich hab ein Skript aus dem Internet vor einiger Zeit getestet und es funktioniert. allerdings bin ich mir nicht ganz sicher ob ein Teil davon nicht sinnlos ist.

hier meine gekürzte Version:
01.
Const olPublicFoldersAllPublicFolders = 18 
02.
Dim olkApp, olkSes, olkFolder, foldersArr 
03.
 
04.
Set olkApp = CreateObject("Outlook.Application") 
05.
Set olkSes = olkApp.GetNameSpace("MAPI") 
06.
 
07.
Set foldersArr = CreateObject("System.Collections.ArrayList") 
08.
 
09.
'Change the profile name on the next line' 
10.
olkSes.Logon olkApp.DefaultProfileName 
11.
On Error Resume Next 
12.
 
13.
' public folders 
14.
foldersArr.Add "Gemeinsame Kontakte" 
15.
 
16.
For Each folderStr In foldersArr 
17.
	'Add Public Folder to Favorites 
18.
 
19.
	'Public Folders 
20.
	Set olkFolder = olkSes.GetDefaultFolder(olPublicFoldersAllPublicFolders) 
21.
	'SubFolders 
22.
	arrFolders = Split(folderStr, "\") 
23.
    For Each varFolder In arrFolders 
24.
		Set olkFolder = olkFolder.Folders(varFolder) 
25.
	Next 
26.
	 
27.
	olkFolder.AddToPFFavorites 
28.
 
29.
Next 
30.
 
31.
olkSes.Logoff 
32.
Set olkApp = Nothing 
33.
Set olkSes = Nothing 
34.
Set olkFolder = Nothing 
35.
WScript.Quit 
36.
 
das Skript funktioniert und die Ordner werden als Favoriten angezeigt. Einziger Nachteil, es dauert auf älteren Geräten etwas länger wenn es bei jedem Neustart ausgeführt wird, das liegt aber am OL start. (werde es in Zukunft nur einmal pro Monat laufen lassen).

hier ist das Originalskript (nicht ganz, aber die echte Quelle finde ich nicht mehr)
http://social.technet.microsoft.com/Forums/en-US/c1cc6690-049c-45d1-a16 ...

in diesem Skript gibt es noch die Funktion AddFavoriteFolder
die hat bei Outlook 2013 aber offensichtlich keine Funktion oder macht die irgendwas im "Hintergrund"? Mir wären bis jetzt noch keine offensichtlichen Probleme aufgefallen.

01.
Sub AddFavoriteFolder(olkFolder) 
02.
    ' Purpose: Add a folder to Favorite Folders.' 
03.
    ' Written: 5/2/2009' 
04.
    ' Author:  BlueDevilFan' 
05.
    ' Outlook: 2007' 
06.
    Const olModuleMail = 0 
07.
    Const olFavoriteFoldersGroup = 4 
08.
        Dim olkPane, olkModule, olkGroup 
09.
    Set olkPane = olkApp.ActiveExplorer.NavigationPane 
10.
    Set olkModule = olkPane.Modules.GetNavigationModule(olModuleMail) 
11.
    Set olkGroup = olkModule.NavigationGroups.GetDefaultNavigationGroup(olFavoriteFoldersGroup) 
12.
    olkGroup.NavigationFolders.Add olkFolder 
13.
    Set olkPane = Nothing 
14.
    Set olkModule = Nothing 
15.
    Set olkGroup = Nothing 
16.
End Sub 
17.
 
eigentlich macht AddToPFFavorites [Adds a Microsoft Exchange public folder to the public folder's Favorites folder.] ja genau das?!

sg Dirm
Mitglied: colinardo
LÖSUNG 26.02.2014, aktualisiert um 10:56 Uhr
Hallo Dirm,
also das sind zwei unterschiedliche paar Schuhe. Das obere Script fügt die Ordner zu den PublicFolderFavorites hinzu, also unter den Favoriten im Public-Folder Knoten wenn man in Outlook in die Ordneransicht wechselt(http://social.microsoft.com/Forums/getfile/28628/), wohingegen das letzte Script einen Ordner der Favoriten-Gruppe hinzufügt, welche in der Mail-Ansicht ganz oben zu sehen ist(http://social.microsoft.com/Forums/getfile/28629/).

Grüße Uwe
Bitte warten ..
Mitglied: Dirmhirn
26.02.2014 um 10:59 Uhr
Hi Uwe,

ahsoo Danke!
Die Favoriten in der Mailansicht habe ich nie genutzt, daher ist's mir wohl nicht aufgefallen.
dann passt das so

sg Dirm
Bitte warten ..
Ähnliche Inhalte
VB for Applications
Outlook Formular aus öffentlichem Ordner bearbeiten
gelöst Frage von runner-ralfVB for Applications6 Kommentare

Hallo zusammen, ich soll ein Formular bearbeiten dass in einem öffentlichen Ordner abgelegt ist. Mein Problem ist dass ich ...

Mac OS X
Öffentliche Ordner in Outlook für Mac verschwinden
Frage von steftsMac OS X

Hallo zusammen, auf einem Mac mit OS X El Capitan 10.11.6 mit Outlook 2013 tritt sporadisch das Problem auf, ...

Outlook & Mail
Öffentliche Kontakte im Outlook per Skript kopieren
gelöst Frage von o0Asia0oOutlook & Mail4 Kommentare

Hallo Zusammen Gibt es eine Möglichkeit, wie man mit einem Skript die Öffentliche Kontakte Synchronisiert mit einem Kontakteordner von ...

Outlook & Mail
Termin zum Öffentlichen Kalender hinzufügen
Frage von ShnuuuOutlook & Mail1 Kommentar

Hallo Zusammen, wir nutzen in Outlook 2010 mit Exchange 2010 Server. Wir haben einen Öffentlichen Kalender, in dem Kundenbesuche ...

Neue Wissensbeiträge
Linux

Meltdown und Spectre: Linux Update

Information von Frank vor 13 MinutenLinux

Meltdown (Variante 3 des Prozessorfehlers) Der Kernel 4.14.13 mit den Page-Table-Isolation-Code (PTI) ist nun für Fedora freigegeben worden. Er ...

Tipps & Tricks

Solutio Charly Updater Fehlermeldung: Das Abgleichen der Dateien in -Pfad- mit dem Datenobject ist fehlgeschlagen

Tipp von StefanKittel vor 18 StundenTipps & Tricks

Hallo, hier einmal als Tipp für alle unter Euch die mit der Zahnarztabrechnungssoftware Charly von Solutio zu tun haben. ...

Sicherheit

Meltdown und Spectre: Wir brauchen eine "Abwrackprämie", die die CPU-Hersteller bezahlen

Information von Frank vor 18 StundenSicherheit12 Kommentare

Zum aktuellen Thema Meltdown und Spectre: Ich wünsche mir von den CPU-Herstellern wie Intel, AMD oder ARM eine Art ...

Sicherheit

Meltdown und Spectre: Realitätscheck

Information von Frank vor 19 StundenSicherheit9 Kommentare

Die unangenehme Realität Der Prozessorfehler mit seinen Varianten Meltdown und Spectre ist seit Juni 2017 bekannt. Trotzdem sind immer ...

Heiß diskutierte Inhalte
Windows 10
Netbook erkennt Soundkarte nicht - keinerlei Info zum Hersteller und Modell vom Netbook und Hardware bekannt
Frage von 92943Windows 1031 Kommentare

Guten Tag, meine Schwester reist in einigen Wochen für ein paar Monate ins Ausland und hat sich dafür ein ...

Batch & Shell
Anmeldevorgang für Informatikraum (Schule) unter Windows
gelöst Frage von IngenieursBatch & Shell29 Kommentare

Hey zusammen, ich werde in naher Zukunft den Informatik Raum meiner jetzigen Schule von dem aktuellen Betreiber übernehmen (Vertrag ...

Netzwerkgrundlagen
Welches Modem für VDSL 50000 der T-Com
gelöst Frage von Windows10GegnerNetzwerkgrundlagen21 Kommentare

Hallo, ein Kollege von mir will sich VDSL50000 von der T-Com holen, um daran einen Server zu betreiben. Ich ...

Batch & Shell
AD-Abfrage in Batchdatei und Ergebnis als Variable verarbeiten
gelöst Frage von Winfried-HHBatch & Shell19 Kommentare

Hallo in die Runde! Ich habe eine Ergänzungsfrage zu einem alten Thread von mir. Ausgangslage ist die Batchdatei, die ...