Hallo Henry!
Du rufst zwar in der SUB die Funktion stringsearch auf aber übergibst ihr keine Daten (hier den Text der Betreffzeile). Wenn ich das richtig sehe, hast du die Zeile
stext = obj.subject
in der Funktion dann auskommentiert. Damit gibt es zwar die Variable stext die ist aber leer. Deshalb kommt immer die Anzeigen "Id..!" :-) Ich vermute mal, dass es da auch eine Fehlermeldung vorher gab, da in der Function kein Objekt obj existierte. Also m.e. kannst du so auch nicht den Betreff in die Funktion übernehmen.
Eine Möglichkeit auf die schnelle wäre.
definiere den Funktionskopf wie folgt:
Function stringsearch (stext as string)
und rufe die Funktion im SUB wie folgt auf
stringsearch (obj.subject)
Damit übergibst du den Betreff an die Funktion und dieser wird dann in der Funktion weiterbearbeitet. Ggf. vorher den Betreff noch testen oder in in eine Variable schreiben und diese dann übergeben.
Das sollte dann eigentlich klappen.
Achja, auf Grund der englischen Anfrage hatte ich übrigens versucht in englisch zu antworten. Auf Grund dessen ist auch die Variablenbezeichnung englisch. Das kann natürlich geändert werden, um ggf. für andere Nutzer das lesen zu erleichtern.
Gruß Matthias
|