Domino 9 und frühere Versionen > ND6: Entwicklung

Antwort mit Vorlage übernimmt keinen Anhang

<< < (4/5) > >>

waldt:
Hi,

also das schein alles nicht zu funktionieren.
Auch die RTF Speicher/Lösch - Änderung macht fehler. "Im Feld lässt sich nur Plain Text speichern.

Habe nun im Ordner INBOX eine Aktion stehen die so aussieht.

Anhang und Text werden allerdings hinter die Signatur gelegt. Ans Ende vom Dokument. Subjekt ist drin. Absenderadresse wird allerdings nicht ins to feld  übergeben.

RTF-habe ich deaktiviert!


Sub Click(Source As Button)
   Dim ws As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim collection As notesdocumentcollection
   Dim replyToUIDoc As NotesUIDocument
   Dim replyToDoc As NotesDocument
   Dim stationeryDoc As NotesDocument
   Dim stationeryBodyItem As NotesRichTextItem
   Dim itm As NotesItem
   Dim itm2 As NotesItem
   
   Set db = session.CurrentDatabase
   
   Set collection = ws.Picklistcollection(PICKLIST_CUSTOM, False, db.server, db.filepath, "Stationery", "Select Stationery", "Please select stationery for new memo.")
   
   Set stationeryDoc = collection.getfirstdocument
   
   If Not stationeryDoc Is Nothing Then
      
      Set replyToDoc = New NotesDocument(db)
      replyToDoc.Form="Reply"
      
      Set stationeryBodyItem = stationeryDoc.getfirstitem("Body")
      Call replyToDoc.CopyItem( stationeryBodyItem, "Body" )
      
      Set itm = stationeryDoc.getfirstitem("Subject")
      Call replyToDoc.CopyItem( itm, "Subject" )
      
      Set itm2 = stationeryDoc.getfirstitem("From")
      If Not itm2 Is Nothing Then
         Call replyToDoc.CopyItem( itm2, "To" )
      End If
      
      'Call replyToDoc.Save(True,True) 'Temp. Speichern des Backend-Doc. damit RTF-Feld angezeigt wird.
      Set replyToUIDoc = ws.EditDocument(True, replyToDoc)
      Call replyToUIDoc.Refresh(True)
      'Call replyToDoc.Remove(True) 'Das Dokument, das im Backend erstellt wurde, löschen
   End If         
   
End Sub







Die mail sieht dann so aus:

...............Signaturanfang.........
visit:http://www.XXXXXXXX.de

Geschäftsführer: XXXXXXXXXXX
Sitz der Gesellschaft: XXXX - Rechtsform: GmbH -
Amtsgericht XXXX - USt-ID-Nr. DE XXXXXXXXXXSehr geehrter Herr XXXXX,
sehr geehrter Herr XXXXXX,
 
um die Verfügbarkeit unserer Systeme noch zu verbessern
und den hohen Anforderungen heutiger Internettechnologien
auch zukünftig gerecht zu werden, wird die xxxxxxxxxxxxx bis

Axel:

--- Zitat von: waldt am 18.03.08 - 12:28:25 ---Hi,

also das schein alles nicht zu funktionieren.
Auch die RTF Speicher/Lösch - Änderung macht fehler. "Im Feld lässt sich nur Plain Text speichern.

RTF-habe ich deaktiviert!

--- Ende Zitat ---

Wenn du das im Feld deaktiviert hast, dann kannst du auch nur Text einfügen. Du musst das Feld zu einem RTF-Feld machen.

Ich frag jetzt nochmal: Woher kommen Subject und der Absender?

Axel

waldt:
Hi,
Subject und Abdender kommen aus der mail auf die ich das Reply anwende.

Wegen RTF: Am Feld habe ich nichts deaktiviert oder geändert.
Ich habe nur die 2 Zeilen von dir im Script deaktiviert.

Axel:

--- Zitat von: waldt am 18.03.08 - 13:02:40 ---Subject und Abdender kommen aus der mail auf die ich das Reply anwende.

--- Ende Zitat ---


--- Zitat von: waldt am 18.03.08 - 12:28:25 ---Habe nun im Ordner INBOX eine Aktion stehen die so aussieht.

--- Ende Zitat ---

Dann schau dir meine Antwort #14 an. Dort steht alles was du brauchst um die Abgaben aus dem markierten Mail in das Reply zu übernehmen.

Axel

waldt:
Hallo !

OK verstehe ich!

Kannst du mir das ganze script für die Inbox Aktion hier reinschreiben.

Ich weiß nicht wo und wie ich deine änderungen ünernehmen muss.

Danke
Thomas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete