Domino 9 und frühere Versionen > ND8: Entwicklung

Script Mailweiterleitung

(1/2) > >>

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.

Navigation

[0] Themen-Index

[#] Nächste Seite