TempBemerkung := Bemerkung;
@SetField("Bemerkung"; "");
@Command([Compose];"":"";"Antworttest");
@SetField("Bemerkung"; TempBemerkung);Aber Notes will da nicht so, wie ich will.....
ZitatAber Notes will da nicht so, wie ich will.....
Geht's noch ungenauer ?
Die @SetField-Formel wird einfach ignoriert, habe ich den Eindruck.
FIELD Bemerkung:=Bemerkung;
@SetField("Bemerkung"; "");ZitatDie @SetField-Formel wird einfach ignoriert, habe ich den Eindruck.
... und ich habe den Eindruck, dass du glaubst, wir könnten hier zaubern.
Also bitte eine genaue Beschreibung, was Du willst und was nicht geht.
... dann lösch doch einfach die Felder in der Antwort-Mail-Maske.
Es wird doch immer noch das gesamte Originaldokument mit allen Feldern in das Body-Feld der Antwort kopiert,Davon war vorher nie die Rede....
ZitatEs wird doch immer noch das gesamte Originaldokument mit allen Feldern in das Body-Feld der Antwort kopiert,Davon war vorher nie die Rede....
Wie wird denn kopiert ?
... ich würde es per LS machen. Damit hast du alles im Griff...
Was ist "Bemerkung" für ein Feld - Text oder RichText?
Toni
Oder muss ich das doch noch manuell über LS machen?
So habs jetzt mit LS gemacht.
Dim ws As NotesUIWorkspace
Dim s As NotesSession
Dim db As NotesDatabase
Dim collection As notesdocumentcollection
Dim uidoc As NotesuiDocument
Dim doc As NotesDocument
Dim docFW As NotesDocument
Set ws = New NotesUIWorkspace
Set s = New NotesSession
Set db = s.CurrentDatabase
Set collection = db.unprocesseddocuments
If collection.count <> 1 Then Exit Sub
Set doc = collection.getfirstdocument
'Antwortdokument erstellen
Set docFW = New NotesDocument(db)
Call docFW.MakeResponse(doc)
'Text und Betreff der Originalmail übernehmen
Call docFW.CopyItem(doc.GetFirstItem("Body"), "Body")
Call docFW.ReplaceItemValue("Subject", "Antwort: " + doc.GetitemValue("Subject")(0) )
'Absender als Empfänger eintragen
docFW.SendTo = doc.GetItemValue("From")(0)
'Weitere Empfänger wieder als Empfänger eintragen
If doc.GetItemvalue("SendTo")(0) <> "" Then
Forall entry In doc.GetItemValue("SendTo")
If entry <> "Adresse der Abteilung" Then
docFW.SendTo = Arrayappend(docFW.SendTo, entry)
End If
End Forall
End If
If doc.GetItemValue("CopyTo")(0) <>"" Then
docFW.CopyTo = ""
Forall entry In doc.GetItemValue("CopyTo")
If entry <> "Adress der Abteilung" Then
docFW.CopyTo = Arrayappend(docFW.CopyTo, entry)
End If
End Forall
End If
docFW.SaveOnSend = False
docFW.SaveMessageOnSend = False
docFW.Form = "Antwort"
Set uidoc = ws.EditDocument (True, docFW)
... If entry <> "Adress der Abteilung" Then
Was mir hier beim Überfliegen schon auffällt:
- Du vernichtest jegliche Formatierung, evtl. vorhandene embedded objects etc. aus der Ursprungsmail
- "+" ist nicht der korrekte Stringconcatenator
- "Antwort" ist der falsche Formname, dass muss "Reply" heissen.
Bernhard
Zitat... If entry <> "Adress der Abteilung" Then
... könnte vermutlich auch anders gemeint sein
Wieder was gelernt...^^
Zitat von: ata... If entry <> "Adress der Abteilung" Then
... könnte vermutlich auch anders gemeint sein
Wie anders gemeint?
ZitatZitat von: ata... If entry <> "Adress der Abteilung" Then
... könnte vermutlich auch anders gemeint sein
Wie anders gemeint?
"Adresse der Abteilung"
... der Stringvergleich könnte eventuell danebenlaufen...
Toni