Mal ne blöde Frage: Warum speicherst Du den HTML- Code nicht als File (z.B. ins Temp- Verzeichnis) und benutzt dann die NotesUIDocument.Import:
Call uidoc.Import( "HTML File" , filePath )
natürlich muss Dein Cursor an der richtigen Stelle im Richtext- Feld stehen, aber ansonsten funktioniert das wunderbar....
Hier mal ein Auszug aus einer "dynamisch" generierten Signatur:
| sigHTMLs = "<HTML>" |
| sigHTMLe = "</HTML>" |
| sigTITLEs = "<TITLE>" |
| sigTITLEe = "</TITLE>" |
| sigBODYs = "<BODY>" |
| sigBODYe = "</BODY>" |
| sigFONT1s = |<FONT STYLE="font-size: 10pt; color: black; font-family: 'Arial'">| |
| sigFONT2s = |<FONT STYLE="font-size: 8pt; color: black; font-family: 'Arial'">| |
| sigFONT3s = |<FONT STYLE="font-size: 8pt; color: #00a973; font-family: 'Arial'">| |
| sigFONTe = "</FONT>" |
| |
| tmpPath = getTmpPath |
| filePath = tmpPath & "signature.html" |
| On Error Resume Next |
| Kill filePath |
| On Error GoTo 0 |
| Open filePath For Output As fileNr |
| Print #fileNr , sigHTMLs |
| Print #fileNr , sigTITLEs & sigTITLEe |
| Print #fileNr , sigBODYs |
| |
| Print #fileNr , sigFONT1s |
| Print #fileNr , "<BR />" |
| ForAll value In arrLongSignature |
| Print #fileNr , value |
| Print #fileNr , "<BR />" |
| End ForAll |
| If Not docCompany Is Nothing Then |
| arrLongDisclaimer = Evaluate( |@Explode( CompanyDisclaimer ; @Char( 0 ) : @Char( 10 ) : @Char( 13 ) )| , docCompany ) |
| arrLongDisclaimer = Replace( arrLongDisclaimer , badWords , goodWords ) |
| ForAll value In arrLongDisclaimer |
| Print #fileNr , value |
| Print #fileNr , "<BR />" |
| End ForAll |
| End If |
| Print #fileNr , "<BR />" |
| Print #fileNr , "<BR />" |
| Print #fileNr , sigFONTe |
| Print #fileNr , sigBODYe |
| Print #fileNr , sigHTMLe |
| Close #fileNr |
| |
| Call uidoc.Import( "HTML File" , filePath ) |
| Kill filePath |
Deklarationen fehlen, ausserdem die Funktion "getTmpPath" sowie die Information, woher docCompany kommt, aber so vom Prinzip her sollte es klar sein..
Das ganze kann man natürlich auch mit einem Stream machen...
HTH
Tode
