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

gelöst Publicfolder Favoriten in Outlook per Skript einrichten

Mitglied: Dirmhirn

Dirmhirn (Level 2) - Jetzt verbinden

04.09.2013 um 14:23 Uhr, 3193 Aufrufe, 1 Kommentar, 1 Danke

Hi!

habe eine kleines Skirpt mit dem ich öffentliche Ordner im Outlook zu den Favoriten hinzufügen kann (gekürzt):
'VBS
Set olkApp = CreateObject("Outlook.Application")
Set olkSes = olkApp.GetNameSpace("MAPI")
Set olkFolder = olkSes.GetDefaultFolder(olPublicFoldersAllPublicFolders)
Set olkFolder = olkFolder.Folders("Ordner1")	
olkFolder.AddToPFFavorites
nur dauert das recht lange auf manchen alten Kisten.
würde jetzt gerne zuerst prüfen, ob der Ordner schon in den Favoriten ist.

außerdem - wie kann ich Einträge wieder löschen?

hat vll jemand ein Skript dafür am Laufen? Outlook 2013 reicht aus.

sg Dirm
Mitglied: colinardo
05.09.2013, aktualisiert um 10:47 Uhr
Hallo Dirm,
den FavoritenOrdmer kannst du behandeln wie jeden anderen Ordner auch, d.h. Ordner die dort hinterlegt sind, sind auch Folder-Objekte die eine Verknüpfung zum Original-Ordner haben, nur werden beim löschen von Ordnern aus diesem die Originale nicht gelöscht.
Hier mit könntest du prüfen ob ein Ordner schon vorhanden ist und wenn nicht diesen hinzufügen (Ich setze jetzt mal ein deutsches System voraus, in dem der Favoritenordner den Namen Favoriten hat):
01.
Sub checkPublicFolderFavorites()
02.
    Dim pfAllFolderRoot As Folder, pfRoot As Folder, myFolder As Folder
03.
    Set pfAllFolderRoot = Application.GetNamespace("MAPI").GetDefaultFolder(olPublicFoldersAllPublicFolders)
04.
    Set pfRoot = pfAllFolderRoot.Parent
05.
    
06.
    found = False
07.
    Set myFolder = pfAllFolderRoot.Folders("Ordner 1")
08.
    For Each objFolder In pfRoot.Folders("Favoriten").Folders
09.
        If myFolder.Name = objFolder.Name Then
10.
            found = True
11.
        End If
12.
    Next
13.
    ' Keinen entsprechenden Ordner Namens "Ordner 1" gefunden, also füge Ihn hinzu.
14.
    If Not found Then
15.
        myFolder.AddToPFFavorites
16.
    End If
17.
End Sub
außerdem - wie kann ich Einträge wieder löschen?
ganz normal wie du normale "Folder" Objekte auch löschst. Wenn ich jetzt von oben das Objekt pfRoot mit hineinnehme und möchte den Ordner "Ordner 1" aus den Favoriten löschen, geht dies so:
01.
pfRoot.Folders("Favoriten").Folders("Ordner 1").Delete
Grüße Uwe
Bitte warten ..
Ähnliche Inhalte
Microsoft Office

Outlook 2010 Konto Reparieren per Skript möglich?

Frage von pixel0815Microsoft Office4 Kommentare

Hallo zusammen, ist es möglich per Skript ein Outlook 2010 Konto zu reparieren? Ich möchte das erzwungenermaßen ein erneutes ...

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

Exchange Server

Exchange 2016 Outlook 2016 Kalender via Skript einbinden

Frage von anak1mExchange Server1 Kommentar

Guten Morgen, ich habe via Skript auf allen Kalender eine Gruppe mit der Berechtigung Prüfer hinzugefügt. Ist es irgendwie ...

Batch & Shell

Backup Skript

gelöst Frage von DavidMueBatch & Shell18 Kommentare

Guten Tag, Ich habe wieder einmal eine Skripting aufgabe im Unterricht bekommen, ohne einen Ansatzpunkt zu haben. (Bin nicht ...

Neue Wissensbeiträge
iOS
WatchChat für Whatsapp
Tipp von Criemo vor 22 StundeniOS

Ziemlich coole App für WhatsApp User in Verbindung mit der Apple Watch. Gibts für iOS sowohl als auch für ...

iOS
IOS hat nen Cursor !!!
Tipp von Criemo vor 1 TagiOS5 Kommentare

Nette Funktion im iOS. iPhone-Mauszeiger aktivieren „Nichts ist nerviger, als bei einem Tippfehler zu versuchen, den iOS-Cursor an die ...

Off Topic
Avengers 4: Endgame - Erster Trailer
Information von Frank vor 3 TagenOff Topic2 Kommentare

Ich weiß es ist Off Topic, aber ich freue mich auf diesen Film und vielleicht geht es anderen hier ...

Webbrowser
Microsoft bestätigt Edge mit Chromium-Kern
Information von Frank vor 3 TagenWebbrowser5 Kommentare

Microsoft hat nun in seinem Blog bestätigt, dass die nächste Edge Version kein EdgeHTML mehr für die Darstellung benutzen ...

Heiß diskutierte Inhalte
Exchange Server
Exchange Server 2010: Keine Eingehenden E-MAils
gelöst Frage von gabeBUExchange Server17 Kommentare

Hallo Zusammen Ich habe das kurzen auf dem Exchange 2010 Server das Problem, dass ich keine externen E-Mails mehr ...

Windows Netzwerk
Kerio. Kann keine Mails empfangen aber senden. Wer ist schuld. Kerio oder Windows domäne?
gelöst Frage von frosch2Windows Netzwerk14 Kommentare

Hallo, es existiert ein Problem bei uns mit dem mailen. Alle bestehenden Nutzer können mailen. Raus wie rein. Neuen ...

Server
Server in zwei verschiedene Netzwerke einbinden
gelöst Frage von BennyFServer13 Kommentare

Hallo zusammen, bei uns im Haus sind im Erdgeschoss die Geschäftsräume und ab dem 1. Stock sind unsere privaten ...

Viren und Trojaner
"Erpressermail" über eigenen web.de-Account
gelöst Frage von istike2Viren und Trojaner12 Kommentare

Hallo Zusammen, ein User aus dem Team hat folgende "Erpressermail" scheinbar von dem eigenen Mailaccount bekommen: Da die User ...