Beiträge von PLindemann

Hallo zusammen,

ich suche nach einer Möglichkeit in iNotes 8.5.3 FP1 die Schriftart Verdana als Vorgabeschriftart für das Body-Feld einer neuen Mail einzustellen.
Dass Verdana in der Auswahlliste der Schriftarten in der Forms85_x.nsf erst eingestellt werden muss, konnte ich schon finden, muss nur noch sehen was genau ich einstellen muss, damit dort "Verdana" auftaucht.
Im Moment steht dort als Schriftart jedenfalls immer "Sans Serif".

Im FAT-Client haben wir das Body-Feld der Memo-Maske entsprechend angepasst, dass Verdana verwendet wird.
Bei Mails, die ins Internetz gehen steht im Quelltext der Mail korrekt "<font size=3D2 face=3D"Verdana">Testtext</font>"

Wo ich allerdings für iNotes hinlangen muss kann ich leider nicht finden.
Im Quelltext einer Mail aus iNotes steht "<font face=3D"Vorgabe Sans Serif,Verdana,Arial,Helvetica,Sans-Serif" size=3D"2"><div>Testtext<br><br>=0D<br>=0D".
Es ist also vom Empfänger-Client abhängig, was er als Vorgabeschriftart für Sans Serif konfiguriert hat. ob Verdana angezeigt wird oder nicht.
Ich suche also nach einer Möglichkeit die Reihenfolge der verwendeten Fonts zu ändern z.B. in "<font face=3D"Verdana,Vorgabe Sans Serif,Arial,Helvetica,Sans-Serif" size=3D"2"><div>test<br><br>=0D<br>=0D" damit, wenn Verdana vorhanden ist auch Verdana verwendet wird.

Das Forum habe ich bereits nach den Schlagworten:
iNotes AND Body
iNotes AND Schriftart
iNotes AND Schrift
iNotes AND Vorgabe
iNotes

durchsucht, aber leider nichts finden können was mir bei der Lösung meines Problems hilft.

Wer kann mir helfen?

Im voraus vielen Dank!

Erst einmal vielen Dank Diali für Deine Hilfeversuche.

Ich habe das eine Dokument, welches mir im Agent deswegen durch die Lappen ging, nun manuell korrigiert.

Zumindest bin ich (bzw. sind wir ;)) nun um eine Erfahrung reicher geworden

Das war leider auch erfolglos.

Dim doc As NotesDocument
Dim docItem As NotesItem
.
.
.
Set docItem = doc.GetFirstItem( Source_Field_Name )
Source_Value = Trim(docItem.Text)
Source_Value_Length = Len(Source_Value)

Source_Value ist immer noch ein Leerstring und
Source_Value_Length ist immer noch 0.

Zitat von Diali

mach mal noch einen Fulltrim, vor der Rückgabe des Strings.

Danke für den Tipp, das hilft aber leider auch nichts.
Bereits beim GetItemValue("Source_Field_Name")(0) wird ein Leerstring ausgelesen, sodass

Source_Value = doc.GetItemValue("Source_Field_Name")(0)
If Len(Source_Value) > 0 Then

nicht betreten sondern übersprungen wird.
Schaue ich mir das betreffende Item des doc aber im Debugger an fällt auf, dass es eine VALUELENGTH von 3 hat.
Andere leere Felder in dem Dokument haben eine VALUELENGTH von 2.
Irgendetwas steht da also drin, was beim GetItemValue nicht ausgelesen wird oder ich lese es falsch aus.
Das Item hat auch nur einen Value "[0]" welcher im Debugger als Leerstring angezeigt wird.

Leider habe ich über die SuFu hier im Forum nichts hilfreiches gefunden. Aber irgendetwas mache ich bestimmt falsch...

Ich habe hier eine Datenbank, bei der existiert in einem Dokument in einem normalen Textfeld ein einzelner Zeilenumbruch, nicht mehr und nicht weniger.
Ich lese dieses Feld mit

doc.GetItemValue("Source_Field_Name")(0)

in Lotusscript aus und bekomme einen Leerstring im Debugger angezeigt (?!???).
Seltsamerweise wird das Dokument in einer View mit der Selection SELECT @Length(Source_Field_Name) > 0 aber angezeigt, also muss es doch einen Wert haben...

Ich habe eine Funktion gebaut, die bestimmte Zeichen in einem String ersetzt, so auch CrLf (Chr(10) und Chr(13)).
Diese Funkltion habe ich als Beispiel modifiziert und hier eingefügt:

Function ValueCleaner (Source_Value As String) As String
    Dim ValueCleaner_Source ( 0 ) As String
    Dim ValueCleaner_Search ( 7 ) As String
    Dim ValueCleaner_Replace ( 7 ) As String
    Dim ValueCleaner_Destination As Variant


    ValueCleaner_Source ( 0 ) = UCase ( Source_Value )
    ValueCleaner_Search ( 0 ) = Chr(8)
    ValueCleaner_Search ( 1 ) = Chr(9)
    ValueCleaner_Search ( 2 ) = Chr(10)
    ValueCleaner_Search ( 3 ) = Chr(11)
    ValueCleaner_Search ( 4 ) = Chr(12)
    ValueCleaner_Search ( 5 ) = Chr(14)
    ValueCleaner_Search ( 6 ) = Chr(13)
    ValueCleaner_Search ( 7 ) = Chr(15)
    ValueCleaner_Replace ( 0 ) = "[Backspace]"
    ValueCleaner_Replace ( 1 ) = "[Tab]"
    ValueCleaner_Replace ( 2 ) = "[Line Feed Return]"
    ValueCleaner_Replace ( 3 ) = "[Shift+Enter]"
    ValueCleaner_Replace ( 4 ) = "[Page Break]"
    ValueCleaner_Replace ( 5 ) = "[Column Break]"
    ValueCleaner_Replace ( 6 ) = "[Carriage Return]"
    ValueCleaner_Replace ( 7 ) = "[Shift In]"
    ValueCleaner_Destination = Replace(ValueCleaner_Source, ValueCleaner_Search, ValueCleaner_Replace)
    ValueCleaner = ValueCleaner_Destination(0)
End Function

Ändere ich den Feldwert über das UI in der Maske in z.B. "1" & CrLf & "2", also "1", Zeilenumbruch und dann "2" so liefert mir diese Funktion den Wert
"1[Line Feed Return][Carriage Return]2" korrekt zurück, wenn ich den Feldinhalt an diese Funktion übergebe.

Befindet sich in dem Feld aber nur der Zeilenumbruch, so bekomme ich einen Leerstring (wird lt. Debugger auch nur ausgelesen), und nicht wie erwartet "[Line Feed Return][Carriage Return]" zurück.

Ich entwickle mit dem Designer Release 8.5.3FP3

Hat jemand eine Idee wie ich den Feldwert korrekt auslesen muss, damit ich keinen Leerstring erhalte?