Domino 9 und frühere Versionen > Entwicklung

Bei Antwort mit Protokoll eigene Bemerkungen vorher entfernen

<< < (4/6) > >>

ata:

--- Zitat ---So habs jetzt mit LS gemacht.
--- Ende Zitat ---

... wie hast du es gemacht - Codebeispiel - denn es gibt immer mehrere Wege nach Rom...

Toni

the_summer:
Gut. Ich habs jetzt so gemacht, funktioniert zufriedenstellend:


--- Zitat ---   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)
--- Ende Zitat ---

koehlerbv:
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

ata:

--- Zitat ---... If entry <> "Adress der Abteilung" Then
--- Ende Zitat ---

... könnte vermutlich auch anders gemeint sein

the_summer:

--- Zitat von: koehlerbv am 06.05.08 - 14:59:35 ---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

--- Ende Zitat ---

Das mit der Formatierung stimmt. Danke, ist mir auf Anhieb gar nicht so aufgefallen.
Habe jetzt das Body-Item kopiert, statt nur den Wert.

Bei "Antwort" habe ich keine Probleme feststellen können ("Reply" ist als Alias der Maske eingetragen)



--- Zitat von: ata am 06.05.08 - 15:08:36 ---
--- Zitat ---... If entry <> "Adress der Abteilung" Then
--- Ende Zitat ---

... könnte vermutlich auch anders gemeint sein

--- Ende Zitat ---

Wie anders gemeint?
Unsere Gruppe/Abteilung hat hier ein Gemeinschaftspostfach und da kommt halt die Emülladresse von dieser hinein.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete