Domino 9 und frühere Versionen > Entwicklung

Spam Filter

<< < (2/5) > >>

Thomas Schulte:
Schau dir mail mit dem Eigenschafts Fenster die Adten die im From Feld der Mail stehen genauer an. Die Prüfung gegen <> prüft nur ob exakt dieser Wert drinsteht.
Mittlerweile steht meistens aber noch irgendwas anderes drin wie zum Beispiel:
Thisismyname <myname@irgendwo.de>

HartiMcFly:
Also muß es quasi so aussehen?

If mail.from(0) <> "thisismyname <Beispiel@test.com>" Then

so Richtig??

Danke Patrick

koehlerbv:
Nein - Du musst nach einem Teilstring suchen:

If Instr (docMail.From (0), "beispiel@test.com") > 0 then ....

Bernhard

HartiMcFly:
Danke Patrick

HartiMcFly:
Nachdem ich die Suche nach einem Teilstring eingebaut habe, sieht es so aus.

Sub Initialize
   Dim Sitzung As New NotesSession
   Dim Inhaltsliste As Variant
   Dim Inhalte List As String
   Dim mail As NotesDocument
   Dim datenbank As NotesDatabase
   
   Set Sitzung = New NotesSession
   Set mail = Sitzung.DocumentContext
   Set datenbank = Sitzung.CurrentDatabase
   
   If Instr (docMail.From (0), "Beispiel@Beispiel.de") >0  Then
      
      If mail.hasitem("X_Spam_Status") Then
         Inhaltsliste = Evaluate({@explode(@ReplaceSubstring("}&mail.X_Spam_Status(0) & {"; " "; " ") ;" ")})
         
         Forall param In Inhaltsliste
            Inhalte (Strleft(param, "=")) = Strright(param, "=")
         End Forall
         
         If Val(Inhalte ("score")) >= 4.8 Then
            Call datenbank.EnableFolder("Spam")
            Call mail.PutInFolder( "Spam" )
            Call mail.RemoveFromFolder("($Inbox)")
         End If
      End If
   End If
   
End Sub


Nun Filtert er gar nichts mehr heraus, heißt also die Spam Mails landen wieder ganz normal im Eingang.

Könnt ihr bitte nochmals drüber schauen?

Danke

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete