Torsten Weber’s Blog

Nach den Blogeinträgen

• Outlook 2007 – Definierte Regeln per Makro aufrufen
• Outlook 2007 – Regeln per Makro in einem Ordner ausführen

bin ich mehrfach gefragt worden, wie man Regeln in bestimmten Ordnern ausführen kann. Das heißt, es geht nicht um durch Microsoft vordefinierte Ordner, sondern beliebige, die von Endanwendern definiert werden. Es funktioniert so:

Sub RunAllRules()
    Dim outlookStore As Outlook.Store
    Dim allRules As Outlook.Rules
    Dim actualRule As Outlook.Rule
    Dim resultFolder As Folder
    
    Set outlookStore = Application.Session.DefaultStore
    Set allRules = outlookStore.GetRules
    Set resultFolder = GetFolderByName( _
        rootFolder:=OlDefaultFolders.olFolderInbox, folderName:="Test")
    
    For Each actualRule In allRules
        If actualRule.RuleType = olRuleReceive Then
            actualRule.Execute _
               ShowProgress:=False, _
               Folder:=Application.Session.GetFolderFromID(EntryIDFolder:=resultFolder.EntryID), _
               IncludeSubfolders:=False, _
               RuleExecuteOption:=OlRuleExecuteOption.olRuleExecuteAllMessages
        End If
    Next
             
    Set outlookStore = Nothing
    Set allRules = Nothing
    Set actualRule = Nothing
End Sub
Function GetFolderByName(rootFolder As OlDefaultFolders, folderName As String) As Folder
    Dim folders As folders
    Dim actualFolder As Folder
    Set folders = Application.Session.GetDefaultFolder(rootFolder).folders

    For Each actualFolder In folders
        If actualFolder.Name = folderName Then
            Set GetFolderByName = actualFolder
            Exit Function
        End If
    Next
End Function

Sub RunAllRules()
    Dim outlookStore As Outlook.Store
    Dim allRules As Outlook.Rules
    Dim actualRule As Outlook.Rule
    Dim resultFolder As Folder
    
    Set outlookStore = Application.Session.DefaultStore
    Set allRules = outlookStore.GetRules
    Set resultFolder = GetFolderByName( _
        rootFolder:=OlDefaultFolders.olFolderInbox, folderName:="Test")
    
    For Each actualRule In allRules
        If actualRule.RuleType = olRuleReceive Then
            actualRule.Execute _
               ShowProgress:=False, _
               Folder:=Application.Session.GetFolderFromID(EntryIDFolder:=resultFolder.EntryID), _
               IncludeSubfolders:=False, _
               RuleExecuteOption:=OlRuleExecuteOption.olRuleExecuteAllMessages
        End If
    Next
             
    Set outlookStore = Nothing
    Set allRules = Nothing
    Set actualRule = Nothing
End Sub
Function GetFolderByName(rootFolder As OlDefaultFolders, folderName As String) As Folder
    Dim folders As folders
    Dim actualFolder As Folder
    Set folders = Application.Session.GetDefaultFolder(rootFolder).folders

    For Each actualFolder In folders
        If actualFolder.Name = folderName Then
            Set GetFolderByName = actualFolder
            Exit Function
        End If
    Next
End Function

Set resultFolder = GetFolderByName( _
    rootFolder:=OlDefaultFolders.olFolderInbox, folderName:="Test")

der Ordner angegeben werden unter dem der jeweilige Ordner liegt als auch sein Name.

In der nachfolgenden Abbildung wird dieses gut ersichtlich. Hier befindet sich der Ordner Test unterhalb von Posteingang (olFolderInbox) und heißt eben "Test". Mit dem obigen Anwendungscode werden dann alle definierten Regeln in diesem Ordner ausgeführt. Non scholae, set vitae discimus.

Lars erwähnte vor einiger Zeit bei einem Besuch von ihm in Leipzig ein genial schmeckendes Bier. Freunde von ihm würden ganze Kisten ins Auto einladen, wenn sie in Bayern sind. Klingt nach einer modernen Sage. Als ich in Regensburg wiederum vor nicht allzu langer Zeit Essen gegangen bin, wurde mir von dem leckersten Bier in ganz Deutschland erzählt; ok, ich habe es dann einfach bestellt und oharr, es ist keine Legende! Das Bier heißt Schneider Weisse. Es wird in Kelheim in der Nähe von Regensburg hergestellt. Wer das Bier im Fachhandel bzw. Großhandel nicht findet, kann die Bezugsquellen auf den Webseiten der Brauerei bzw. per E-Mail abfragen. Online kann das Bier auch bestellt werden und kommt per Post:

• bavarianbeershop.com
• beerangel.com

Ein Bananenweizen ist übrigens auch lecker, reicht aber nicht an Schneider Weisse. Bei der BASTA! in diesem Frühjahr war ich erfreut, als Roland Abends von seiner Frau erzählte, die auch Bananenweizen entdeckt hat. Als ich aber das Schild Schneider Weisse im Gespräch an der Bar gesehen habe, wurde umgehend die Bestellung eines Bananenweizens von mir revidiert. ;)

Zutaten (für 4 Personen)

• 2 EL - 3 EL Hühnerbrühe
• Pfeffer, schwarz
• ca. 60 g Butter
• Salz
• 250 g Spaghetti
• 2 mittelgroße Zucchini

Zubereitung

Die Zucchini zuerst in Scheiben und dann wiederum in Streifen schneiden. Diese in Butter anbraten bis sie Farbe annehmen. Dann Hühnerbrühe hinzufügen und die Masse 5 Minuten bei geringer Hitze weiter garen. Währenddessen Spaghetti in leicht gesalzenem Wasser al dente kochen. Zucchini mit Salz und Pfeffer abschmecken und zu den Spaghetti reichen. Wer mag, kann beim Anbraten der Zucchini zwei durch eine Knoblauchpresse gepresste Knoblauchzehen und einen Rosmarinzweig hinzufügen.

Der BMW-Konfigurator hat eindeutig ein paar Schwächen. Verschmerzen kann man vielleicht noch, dass eine 3D-Ansicht nur für die individuelle Konfiguration in der Innenansicht im Auto geht. Ändert man aber etwas bestimmtes, z. B. fügt das Advantage Paket hinzu, gehen wiederum andere Änderungen wie die gewählte Lackfarbe verloren.

BMW-Konfigurator, Ansicht in 3D, innen

In der Außenansicht wird das Advantage Paket hinzugefügt:

BMW-Konfigurator, Ansicht statisch, außen

Leider wird dann z. B. unter anderem die gewählte Lackfarbe zurückgesetzt:

BMW-Konfigurator, Ansicht statisch, außen, zurückgesetzt

Da die 3D-Außensicht der individuellen Konfiguration nicht möglich ist, kann man die 360° Visualisierung wählen. Doch hängen die geänderten Felgen wiederum ein bisschen komisch in der Luft oder? /Hach/, vielleicht liegt's ja an meiner Java-Installation. ;)

360° Visualisierung

Ein guter Freund würde jetzt in diesem Augenblick sagen: "Das geht ja wohl gar nicht...": Also lieber wie beim 1er zum Händler gehen und mit Papier-Ausdrucken konfigurieren? Es sei denn, er hat gerade die die gewünschte Konfiguration da. Anders gesagt: "Freude am Fahren", das Prinzip Freude, kann ich nur bestätigen, "Freude am Konfigurieren" nicht.

Diese Woche hatte ich erneut Post vom Windows Mobile Team. Am Sonntag angefordert und dann am Dienstag da – das ist mal wirklich schnell. Die Produktgruppen sitzen ja nicht in Deutschland. Dieses mal kam die Post aus UK.

In der Post waren u. a. Gimmicks; zum verlosen natürlich. :)
Eine echte Maglite z. B. ist als Geschenk schon ordentlich.

Wo verlose ich was?
Vielleicht hier, einfach vorbeischauen: ;)

• 28.05.2008, Dresden, Vortrag
• 29.05.2008, Leipzig, Workshop
• 10.06.2008, Köln, Vortrag
• 12.06.2008, Ulm, Vortrag
• 17.06.2008, Karlsruhe, Vortrag
• wahrscheinlich September: Braunschweig und Koblenz

Zutaten (für 6 Personen)

• 1/2 Glas Gurken, z. B. machland Wurstsemmel Gurken,
  ca. 150 - 200 g
• 8 mittelgroße Kartoffeln
• KNORR Delikatess Brühe
• Liebstöckel
• 1 Maggi Klare Hühner-Suppe Extra
• 5 EL Olivenöl
• 6 Paprika-Beißer, z. B. von Franken Gut
• 1 Daumenlänge Paprikamark aus der Tube, z. B. von ORO DI PARMA
• Salz
• Sambal Oelek, z. B. von Bamboo Garden
• 3 EL herbe Sojasoße, z. B. Ketjap Asin von Wan Kwai
• 1 kleine Dose Tomaten (200 g, stückig), z. B. von ORO DI PARMA
• 6 EL Weizen, z. B. Edelweizen von Ricy
• 8 EL Zwiebelwürfel bzw. nach Geschmack

Zubereitung

Zwiebelwürfel in Olivenöl in einem großen Topf anbraten und glasig werden lassen. Dann Paprikamark hinzufügen, unterrühren. Wasser auffüllen und in Stücke geschnittene Kartoffeln und Gurken dazugeben. Weizenkörner, Tomaten und Hühner-Suppe hinzufügen und ca. 1/4 h kochen, bis alles gar ist. Mit Salz, Liebstöckel und Brühe abschmecken. Die Paprika-Beißer ca. 3 Minuten mitkochen und zuletzt die Schärfe mit Sambal Oelek abschmecken.

Zutaten (für 4 Personen)

• Butter
• 1 TL Backpulver
• 2 Eier
• 800 g mehligkochende Kartoffeln (Pellkartoffeln)
  
• 500 g Magerquark
• 180 g Mehl
• 120 g Rosinen
• 70 g Rohrzucker
• 1,5 TL Salz
• 1 Spritzer Zitronensaft bzw. abgeriebene Schale einer Zitrone

Zubereitung

Kartoffeln weich kochen. Rosinen auf ein Sieb geben und mit heißem Wasser abspülen. Die abgekühlten Kartoffeln durch eine Kartoffelpresse geben oder durch ein Sieb streichen. Mehl mit Backpulver mischen und über Kartoffelmasse sieben. Danach abgetropfte Rosinen, Eier, Zucker, Salz, Zitronensaft und Quark hinzufügen und alles mit dem Knethaken des Handrührgerätes zu einem geschmeidigen Teig mischen. Die Arbeitsfläche leicht bemehlen und aus dem Teig jeweils mehrere Rollen mit ca. 6 cm Durchmesser formen. Die Rollen in ca. 2,5 cm dicke Scheiben¹ schneiden. Scheiben nochmal leicht bemehlen und ca. 6 Minuten bei geringer Hitze in einer Pfanne mit Butter goldgelb braten (häufig wenden).

Quarkeulchen passen gut zu Zucker & Zimt und Apfelmus.

¹ es können natürlich auch ovale Quarkkeulchen statt runde Scheiben sein

Alex, Marcel und ich waren gestern beim Mediencampus zu Besuch. Der Mediencampus ist ein Projekt der Medienstiftung der Sparkasse Leipzig und wahrscheinlich mir schon aus diesem Grund sympatisch; ich bin ja u. a. ein gelernter Bankkaufmann. Als wir gestern zu Besuch waren, wurde das positive Gefühl bestätigt. Alle Mitarbeiter dort sind wirklich sehr angenehm und wir haben eine Kooperation zwischen dem Mediencampus und der .NET User Group Leipzig vereinbart.

Die .NET User Group Leipzig darf am Mediencampus ihre Veranstaltungen durchführen und ist damit in einer wirklich sehr eleganten Umgebung. Der Mediencampus liegt in einer hervorragenden Umgebung, ist z. B. mit einem eigenen Tonstudio, Dolmetscher-Plätzen in Sälen, einem Roundtable-Computerpool, einem Mac-Pool ;), einem Restaurant / Cafe bis hin zu Appartements für Dozenten ideal ausgestattet.

Derzeit nehmen wir nach der gründlichen Überarbeitung unserer Webseite¹ die Gründung eines Vereins in den Angriff. Diese Kooperation passt perfekt in unser Konzept, in Leipzig und Umgebung der .NET Community weiter zu einem beständigen Wachstum zu verhelfen. Und das ist erst der Anfang...

¹ Danke noch mal an Alex!