Autoreply Script soll auf Antworten nicht reagieren

[kmuenke]

Hallo,

das ist bestimmt nur eine Kleinigkeit für die Profis. Hier mal so wie wir uns das so vorstellen.

anzeigen@tttt.de hat autoreplay

info@firma.de sendet an anzeigen@tttt.de

autopreply geht mit SMTP Header Reply-To: anzeigen-noreply@tttt.de raus

anzeigen-noreply@tttt.de ist ein alias in der anzeigen@tttt.de Mailbox der KEIN neues autoreply erzeugt

In der Mailschablone wird *.-noreply@tttt.de im Agenten ignoriert

Bis auf das noreply funktioniert das Script soweit. Ich bekomme den String nicht hin das alle Antworten auf noreply nicht beantwortet werden. Hier das Script.

Sub Initialize
   Dim Absender As String
   Dim MailText As String
      
   Absender = "Anzeigen/............"
   MailText1 = Chr(10) & "Sehr geehrte Damen und Herren," & Chr(10) &Chr(10)
   MailText2 = "vielen Dank für Ihre E-Mail, die wir umgehend bearbeiten werden." & Chr(10) &Chr(10)
   MailText3 = "Für Rückfragen stehen wir Ihnen natürlich gerne zur Verfügung. Am besten" & Chr(10)   
   MailText4 = "erreichen Sie uns von Montag bis Freitag in der Zeit zwischen 8.30 Uhr " & Chr(10)   
   MailText5 = "und 17.00 Uhr." & Chr(10) &Chr(10)
   MailText6 = "Mit freundlichen Grüßen" & Chr(10) &Chr(10)
   MailText7 = "...." & Chr(10)
   MailText8 = "......" & Chr(10)
   
   
   Dim Session As New NotesSession
   Dim DB As NotesDatabase
   Dim Doc As NotesDocument
   Dim AntwortDoc As NotesDocument
   
   Set DB = Session.CurrentDatabase
   Set Doc =  Session.DocumentContext
   
   Set AntwortDoc = DB.CreateDocument
   If Right(doc.from(0),12) <> "Mediengruppe" Then
      If Right(doc.from(0),6) <> "Test.de" Then
         If Not (doc.SendTo(0)Like "*-reply@*") Then
            
            AntwortDoc.Form = "Memo"
            AntwortDoc.SendTo = doc.From(0)
            AntwortDoc.ReplyTo = "Hans_Mustermann-noreply@tttt.de"
            AntwortDoc.Subject = "Antwort: " + Doc.Subject(0)
            AntwortDoc.Body = MailText1 + MailText2 + MailText3 + MailText4 + MailText5 + MailText6 + MailText7 + MailText8
            AntwortDoc.Principal = Absender
            AntwortDoc.Send(False)

         End If
      End If
   End If      
   
End Sub

[Peter Klett]

If Not (doc.SendTo(0)Like "*-noreply@*") Then  ?

[kmuenke]

heißt

[Peter Klett]

.. dass in Deinem Script "no" fehlt

[kmuenke]

DANKE

manchmal sieht man den Wald vor lauter Bäumen nicht :-) Danke.