Script Mailweiterleitung

[Lysienne]

leider habe ich kaum Ahnung von Script.
Ich habe mir ein script geklaut welches Mails weiterleitet.

Allerdings alle mails. Könnte mir jemand das script so ergäntzen, dass ich nach dem Betreff filtern kann.


Option Public
Option Declare

Sub Initialize
   
   Const sForward = "xxxxxxxxxxx@gmail.com"
   Dim session As New NotesSession
   Dim note As NotesDocument
   Dim docNew As NotesDocument
   Dim db As NotesDatabase
   Dim item As NotesItem
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set note = session.DocumentContext
   Set item = note.GetFirstItem("Body")
   
   Set docNew = New NotesDocument(db)
   docNew.Form = "Memo"
   Call item.copyitemtodocument(docNew, "")
   docNew.SendTo = sForward
   docNew.From = " " & note.From(0)
   docNew.Principal = " " & note.From(0)
   docNew.Subject = note.Subject(0)
   
   Call docNew.Send(True)
   
End Sub

[koehlerbv]

If note.Subject (0) = "Deine Bedingung" Then
   Set docNew = New NotesDocument(db)
   ....
End If

Bernhard

[Lysienne]

Super danke funktioniert.

Ein kleines Problem habe ich aber noch zum Thema.

Mit diesem Script muss der Betreff exakt übereinstimmen.

Kann man das script so anpassen, dass nur Teile des Betreffs passen müssen.

[koehlerbv]

Siehe die Instr-Function von LotusScript in der DesignerHelp. Und wenn man vorher Gesamt-Subject und Suchstring noch in Grossbuchstaben wandelt (siehe Ucase), dann ist auch die Abhängigkeit von Groß-/Kleinschreibung nicht mehr gegeben, die Stringsvergleiche sonst als Standard haben.

Bernhard

[Lysienne]

OK danke für die Hilfe.

Werde mich daran versuchen.

[Lysienne]

nochmal danke für die Hilfe - es funktioniert.
Noch eine Frage zu
Call docNew.Send(false)

True bedeutet ja das ich die maske mitsende. Innerhalb von Notes ist ja wohl false die richtige Wahl.
Wie ist denn das wenn ich nach extern versende.
Kann das leider nicht in meiner testumgebung testen


Sub Initialize
   
   Const sForward = "blabla"
   Dim session As New NotesSession
   Dim note As NotesDocument
   Dim docNew As NotesDocument
   Dim db As NotesDatabase
   Dim item As NotesItem
   Dim Betreff As string
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set note = session.DocumentContext
   Set item = note.GetFirstItem("Body")
   
   Betreff = UCase("test")
   
   If InStr (UCase(note.Subject (0)), Betreff ) then
         Set docNew = New NotesDocument(db)
         docNew.Form = "Memo"
      Call item.copyitemtodocument(docNew, "")
      docNew.SendTo = sForward
      docNew.From = " " & note.From(0)
         docNew.Principal = " " & note.From(0)
         docNew.Subject = note.Subject(0)
   
   Call docNew.Send(false)
   
   End if
End Sub

[koehlerbv]

Wenn Du nach extern (SMTP) *mit* Maske sendest, dann ist das noch viel, viel sinnfreier: Was würde dem Empfänger *ohne* Notes ein Mail senden, in der ein Gestaltungsdokument aus Notes sinnfrei die Mail aufbläht? Er kann damit ja gerade genau Null anfangen. Das wäre genau das gleiche, als wenn ich aus Outlook Informationen zu einer internen Anpassung an einen Empfänger rmit ... irgendwas anderem senden würde. Oder von mir aus auch an Notes.
Und da SMTP so einen Zauber gar nicht kennt / nicht in den RFCs hat, würde der Router eine Notes-Mail vor dem Versenden via SMGTP eh um alles strippen, was da nicht hin gehört.

HTH,
Bernhard

[Lysienne]

 
Bist schon fit Bernhard

Hast du eigentlich auch noch andere Hobbys?

Gut solche Leute hier im Forum zu haben.

[koehlerbv]

Ooooh ja, ich habe auch andere Hobbies. Und war in in letzter gar nicht mehr so aktiv hier (nach x sehr aktiven Jahren hat man halt sehr viel eh schon mal geschrieben, oft mehr als einmal), aber die Lust kommt wieder - wenn auch selektiv.

Ad andere Hobbies oder Beschäftigungen: Zeitgeschichte, versuchen, aktuelle Dinge in grössere Zusammenhänge einzuordnen. Spannend wie sonst nur irgend etwas. Fotografieren und Dinge aus anderer Sicht zu sehen - zur eigenen Freude und zu dem von Freunden. Und auch Dinge, die ein Loch haben und trotzdem nicht kaputt sind (Flugzeuge). Letzteres aus technischer Sicht - und nicht mit Bezug zu Punkt 2, ich bin kein Spotter. Eher der Bezug zu Punkt 1.

Bernhard

PS: Ich habe eine tolle Familie incl. erstem Enkelkind und einem Urgroßvater (vom Enkelkind). Das ist aber kein Hobby. Aber auch das ist ein sehr, sehr grosser Bestandteil meines Lebens, den ich sehr schätze.