Schlagwort-Archive: VBA

Festplatten Einbau, WOL, VBA – Teil 4 Arbeitsplatzcomputer Wechsel

Eine über Jahre für die eigene Arbeitsweise optimal angepasste Workstation auszutauschen ist immer mit vielen kleinen aber zeitraubenden Problemen verbunden. Hier nur einige mit denen ich zu kämpfen hatte/habe:

Apple iCloud Plugin für Outlook

Die Kontakte und Termine meines iPhones sollen natürlich mit den Kontakten und Terminen von Outlook 2013 synchronisiert werden. Schon im Vorherein habe ich ein ungutes Gefühl. Erinnerungen an das Update des Apple iCloud Plugin für Outlook von Version 1.0 auf 2.0 kommen auf. Damals hat das Update dieses Plugins den Outlook Postausgang durcheinander gebracht.

Weiterlesen

Betreff von eingehenden E-Mails automatisch mittels VBA modifizieren

Ich bekomme viele standardisierte E-Mails mit einer Fälligkeitsmeldung im Text (Body) der E-Mails. Um diese E-Mails zu verwalten verschiebe ich sie manuell in einen anderen Ordner. Leider lassen sie sich nicht sinnvoll anhand des Fälligkeitsdatum sortieren, da ihr Betreff nicht dementsprechend aufgebaut ist.

Im Betreff der E-Mails steht:

32043262-Hinweis Fälligkeit bla bla bla

Im Text (Body) der E-Mails steht irgend wo:

Fällig am: 25/7/2007,

Zu beachten ist, dass das Datum beim Tages- und Monatsanteil nicht mit führenden Nullen beginnt d.h. es kann ein Datum der Form T/M/JJJJ und ein Datum der Form TT/MM/JJJJ geben.

Ich möchte nun beim Betreff den Zahlencode „32043262-„, der bei jeder E-Mail ein anderer ist, durch das Datum, welches irgendwo im Text steht, ersetzen.

Die Lösung:

  1. Dem Betreff müssen am Anfang die 9 Zeichen des Zahlencodes: „32043262-“ entfernt werden
  2. Das Datum der Fälligkeit muss aus dem Text (Body) ausgelesen werden
  3. Das Datum der Fälligkeit soll dem Betreff in der Form „Faelligkeit : JJJJ.MM.TT -“ am Anfang  angehängt werden.

Der VBA-Quellcode

Ich habe das Beispiel zum Thema NewMailEx aus der VBA-Hilfe verwendet und dieses angepasst. Hier ist nur der angepasste Teil dokumentiert.

Dieser Code muss in der Sektion ThisOutlookSession eingegeben werden: