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:

3 Gedanken zu „Betreff von eingehenden E-Mails automatisch mittels VBA modifizieren“

  1. Hallo,
    das ist ein Super Script nur kenne ich mich leider sehr schlecht mit solchen Scribten aus, wäre es möglich das Sie mir ein Scribt schreiben?
    Bei allen eingehenden Mails soll das Aktuelle datum in der Betreffzeile hinzugefügt werden in dieser Form 171025 könnten Sie mir dies bauen? und mir eine Anleitung mitsenden wie ich es zum Laufen bekomme? Vielen dank schon mal für Ihre Antwort

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.