Hallo liebes Forum  ,

also ich hab mal wieder ein kleines Problem und zwar:

Ich hab zwei Felder. Nennen wir sie einfach Feld A und B. Im Querysave der Maske überprüf ich ob Feld A leer ist. Ist dies der Fall soll er den Inhalt aus Feld B in Feld A kopieren.

Soweit so gut. Macht er, aber die Formatierungen und Bilder gehen verloren. Also es wird in der Standardschriftart, -größe und -farbe dargestellt und alle BMP.Dateien oder JPG.Dateien sind komplett verschwunden. Kann man dies irgendwie verhindern?

Irgendwie hab ich das Gefühl das ist nicht irgendein Feld,
sondern das Body-Feld der Mail.

Ciao
Don Pasquale

@don pasquale,

... wie immer, locken mit einem kleinen problem und dann, ABÄR....

warum beschreiben die leute nicht von anfang an ihr problem ?

He Stopp wart mal in der Überschrift steht doch eigentlich um was es geht oder?? Wenn ich sie falsch gewählt hab tut es mir leid.. mir ist absolut nix eingefallen...

bis jetzt steht im Querysave der Ansicht:

Sub Querysave(Source As Notesuidocument, Continue As Variant)
   Dim session As Variant
   Set session = CreateObject("Notes.NotesSession")
   Dim dateTime As New NotesDateTime( "" )
   Call dateTime.SetNow
   
   If source.FieldGetText("A")="" Then
      Call source.FieldSetText("B", source.FieldGetText("A"))
   End If
   
End Sub



sind beides stinknormale RichTextFelder

Hi,

so wird das nix. Du kannst keine RTF-Felder mit FieldGetText auslesen.

ein Blick in die Designer-Hilfe wikrt manchmal Wunder.  


Auszug aus der Designer-Hilfe:

Dim docA As NotesDocument  'Destination-Dok.
Dim docB As NotesDocument  'Source-Dok.
Dim rtitemA As Variant
Dim rtitemB As Variant
'...set values of docA and docB...

Set rtitemA = docA.GetFirstItem( "Body" )
Set rtitemB = docB.GetFirstItem( "Body" )

If ( rtitemA.Type = RICHTEXT And _
rtitemB.Type = RICHTEXT ) Then
  Call rtitemA.AppendRTItem( rtitemB )
  Call docA.Save( False, True )
End If