Formatierung bei Textkopie

[braincrusha]

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?

[klaussal]

... wie kopierst du den feldinhalt (scriptauscchnitt wäre nicht schlecht..) ?

[Don Pasquale]

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

Ciao
Don Pasquale

[klaussal]

@don pasquale,

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

warum beschreiben die leute nicht von anfang an ihr problem ?

[braincrusha]

@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

[eknori]

müsste dann so gehen ...

   Set rtitemA = Source.GetFirstItem( rtiName)
   Call rtitemB.AppendRTItem( rtitemA )

[Axel]

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

[klaussal]

... aus der designer-hilfe (fieldgettext):

In a document in read or Edit mode, returns the contents of a field you specify, as a string. If the field is of type numbers or date-time, its contents are converted to a string.

es geht nur so, wie eknori beschrieben hat.

dass es rt-felder sind, war leider nicht aus dem ersten eintrag ersichtlich. und dann kam eben das grosse abär.

war aber meinerseits nicht bös gemeint. t'schuldigung.