Formatierung von Anfragen

[darkfile]

Hi,
sorry für die vielen Frage, aber ich hab doch noch was gefunden. 

Und zwar habe ich inzwischen einige Mail Templates erstellt. Das funktioniert soweit auch ganz prima.

Allerdings kriege ich ein Problem mit den mehrzeiligen Feldern, sprich <<Problem>> und <<Solution>>. Diese werden nur unformatiert, also ohne Zeilenumbrüche, übernommen. Das sieht natürlich nicht so toll aus.

Kann ich das irgendwo entsprechend umbiegen?

Bei der alten (1.07) hatte ich das Problem selber folgendermaßen gelöst. In den Aktionen habe ich den Quelltext modifiziert:

@MailSend(user;"";"";_Stringconcat;"     YOUR REQUEST:" + @NewLine + @NewLine +problem+@NewLine+@NewLine+"     PROBLEM SOLUTION:"+@NewLine+@NewLine+solution; "")));

Ergibt etwa so etwas:

Subject: Ihre Helpdeskanfrage MLAH-6M4DCV wurde von Michael Laubach bearbeitet. Der Vorgang ist abgeschlossen.

    YOUR REQUEST:

Probleme mit Notes

Hallo!!

Ich habe folgendes Problem blablablabla

   PROBLEM SOLUTION:

Blablabla viel Text über die Problemlösung. Anleitung für den User usw.

Da traue ich mich bei der 1.5 aber nicht mehr ran, weil ihr das doch um einiges komplexer gemacht habt mit den Vorlagen usw.

Über Hilfe würde ich mich freuen :-)

Gruß
Michael

[Thomas Schulte]

Das Problem dabei ist, das der FindAndReplace den wir verwenden an dieser Stelle rumzickt. Die Zeilenumbrüche werden zwar mit in den String kopiert, kommen aber im Richtext Feld nicht an. Dafür haben wir leider noch keine Lösung gefunden.

[darkfile]

Irgendeine Idee wie man das umgehen kann?

Wo finde ich denn die betroffenen Code-Stellen? Evtl. kann ich mir das ja wieder, wie damals bei der alten Version, hart reincoden?

Evtl. nerv ich dann auch mal meine Notes/Domino-Kontakte in der Firma, vielleicht hat jemand eine Idee wieso es nicht geht.

Gruß
Michael

[Thomas Schulte]

Ideen schon, sogar eine Ganze Menge, aber noch nichts was richtig funktioniert.
eine Möglichkeit wäre zum Beispiel die Sonderzeichen mit
   getstring = Replace(getstring,CrLf,"^")

zu ersetzen bevor der String in das Richtext Feld eingefügt wird und anschließend mit

      Set rtnav = rtItem.CreateNavigator
      Set rtrange = rtItem.CreateRange

      If rtnav.FindFirstString("^") Then
         Do
            Call rtrange.SetBegin(rtnav)
            Call rtrange.SetEnd(rtnav)
            Call rtrange.remove
            Call rtitem.BeginInsert(rtnav)
            Call rtitem.addnewline(1)
            Call rtitem.EndInsert
            Call rtitem.Update
         Loop While rtnav.findnextstring("^")
      End If

auseinanderzunehmen und wieder zusammenzusetzen. Hier hakt es im Moment, weil er nur auf die erste Fundstelle losgeht. Da ersetzt er das Zeichen tatsächlich durch ein newline. Danach kommt er aber komplett aus dem Tritt und findet das nächste Vorkommen nicht mehr.

[Thomas Schulte]

Man glaubt es kaum das ist tatsächlich lösbar. Aber wie öfter bei dieser Software nicht mit logischem Vorgehen, sondern indem man sich ganz dumm stellt.
Die vorher genannte Variante hat ja jeweils das erste Zeichen durch ein @newline ersetzt und danach den Rest einfach übergangen.

Diese Variante hier:

Code

		
		Set rtnav = rtItem.CreateNavigator
		Set rtrange = rtItem.CreateRange

		If rtnav.FindFirstString("^") Then
			Do
				Call rtrange.SetBegin(rtnav)
				Call rtrange.SetEnd(rtnav)
				Call rtrange.remove
				Call rtitem.BeginInsert(rtnav)
				Call rtitem.addnewline(1)
				Call rtitem.EndInsert
				Call rtitem.Update
				Set rtnav = rtItem.CreateNavigator
				Set rtrange = rtItem.CreateRange
			Loop While rtnav.findfirststring("^")
		End If

macht das tatsächlich richtig ( unter 6.5.5 ). Jetzt muss ich nur noch rauskriegen, ob sich dieser Teil hier:

Code

		' replace every occurence of chr(10) + chr(13) with ^ in getstring
		Dim CrLf As String
		CrLf = Chr$(13) & Chr$(10) ' Carriage Return and a Line Feed character
		getstring = Replace(getstring,CrLf,"^")

noch umgehen lässt indem man das direkt ansteuert, Wenn ja, dann wären sowohl Mehrfachwerte in Feldern, als auch Texte in denen CRLF vorkommen "sauber" darstellbar.

Und NEIN ich verkneife mir jetzt jeden Kommentar zur der Art wie man von IBM hier wenn man logisch denkt aufs Glatteis geführt wird.

[Thomas Schulte]

Code

		' replace every occurence of chr(10) + chr(13) with ^ in getstring
		Dim CrLf As String
		CrLf = Chr$(13) & Chr$(10) ' Carriage Return and a Line Feed character
		getstring = Replace(getstring,CrLf,"^")

Das lässt isch nicht umgehen, zumindest stürzt mein Client da immer mit einem RSOD ab, wenn ich das so ändere:

Code

		getstring = Replace(getstring,CrLf,chr$(0))

Also werden wir das halt so schreiben,

Code

		getstring = Replace(getstring,CrLf,"°")

und hoffen das niemand auf den Trichter kommt dieses Zeichen hier "°" in seinem Text zu verwenden.

[darkfile]

Hi,
coole Sache das es nun gelöst zu sein scheint.  *Thumbsup*

Wo baut man den code denn ein? Bei den Aktionen? Und welcher Code muss ersetzt werden?

Sorry, aber mit Programmieren in Notes hab ichs nicht so wirklich 

[Thomas Schulte]

In der nächsten Version ist das drin. In der 1.5.0 musst du das in die Spoofmessages einbauen aber da ist das etwas komplizierter.

[darkfile]

Hi Thomas,
danke für die Info.

Dann warte ich lieber mal auf die nächste Version 

Kann ja derweil alles andere fertig konfigurieren, Mailtemplates, Supporter, verschiedene Kategorien usw.

Hintergrund meiner strebsamen Beschäftigung ist übrigens, dass wir die verschiedenen Helpdesks vereinheitlichen wollen (im Moment gibts getrennte Helpdesks für Oracle / ERP und IT, für US und DE usw. Das schafft Verwirrung bei den Mitarbeitern und die Tickets landen oft falsch). Dazu ist der alte 1.07 nicht mehr umfangreich genug.

Von der Stabilität her war der aber wirklich genial, hatte in der ganzen Zeit nur 1x ein Problem mit dem Dispatcher :-)

Gruß
Michael

PS: Siehst Du mögliche Probleme darin, wenn ich die DB über verschiedene Server repliziere, oder kann ich das gefahrlos machen?