NoReflectorsInTestGroups

Donnerstag, den 08. Mai 2014 um 22:29 Uhr Dietmar Vollmeier

Wer kennt das Problem nicht? Bei einem neuen Posting in eine Test-Gruppe kannst du in den Optionen von 40tude Dialog einstellen, daß dem Subject ein " - no reply - ignore" angehängt wird um damit den Reflector im Bann zu halten. Wenn man aber auf ein Posting in einer Test-Gruppe antwortet, wo dieser Zusatz fehlt, dann hat man den Reflector plötzlich wieder am Hals.

In diesem Fall müßte man das Subject erweitern, also ändern oder man kann auf dieses Script zurückgreifen. Dieses fügt in Test-Gruppen automatisch den Header

Keywords: ignore - no reply

ein und hält einem dadurch die Reflectoren vom Hals.

Name und Funktion

Include	:	{$I _i_OBSendM_NoReflectorsInTestGroups}
Funktion	:	AddKeywordsHeaderInTestGroups(Result, Message, IsEmail);

Einbindung

Generelle Infos zur Einbindung von INCLUDE-Files findest du hier.

Program OnBeforeSendingMessage;

// Weitere Include-Files
{$I _i_OBSendM_NoReflectorsInTestGroups}

Function OnBeforeSendingMessage(
  Var   Message    : TStringlist;
  Const Servername : String;
  Const IsEmail    : Boolean
) : Boolean;

Begin
  Result := True;
  
  // Weitere Funktionen
  Result := AddKeywordsHeaderInTestGroups(Result, Message, IsEmail);

End;  // Function OnBeforeSendingMessage()

Begin
End.