Das Notes Forum
Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Lysienne am 13.08.14 - 14:12:41
-
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
-
If note.Subject (0) = "Deine Bedingung" Then
Set docNew = New NotesDocument(db)
....
End If
Bernhard
-
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.
-
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
-
OK danke für die Hilfe.
Werde mich daran versuchen.
-
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
-
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
-
:)
Bist schon fit Bernhard
Hast du eigentlich auch noch andere Hobbys? ;)
Gut solche Leute hier im Forum zu haben.
-
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.