Lotus Notes / Domino Sonstiges > Help-Desk Applikation !!Help!!

Änderungen und Fixes im nächsten point Release 1.5.1 von !!Help!!

<< < (7/8) > >>

Thomas Schulte:
Welche Client Version setzt du ein. Es gibt ein Problem mit den Mail Bodys das aber an einer ganz anderen Stelle liegt. Versionsabhängig scheppert es nämlich beim direkten Setzen in den Edit modus mehr oder weniger. Dafür gibt es in der nächsten Version eine Lösung.

dudeis:
Hallo Thomas,

wir verwenden vorwiegend den Version 6.5.1 Client.
(An einigen Stellen auch den 6.5.4 er Client)

Gruß,
Andreas

Thomas Schulte:
Ah ja gefunden und gefixt. Wenn man jetzt Änderungen im RTFeld durchführt werden die auch mit übergeben. (In der nächsten Version). Das ist ein klassisches Ällerbätsch von Notes. Änderungen von RTFeldern in Dialogboxen werden eigentlich nicht an den aufrufenden Code übergeben. Es sei denn man zaubert ein wenig. Gut jetzt haben wir dank der Hilfe eines guten Freundes gezaubert. Und jetzt funktioniert das auch.

eknori (retired):
Die wohl verrückteste Funktion in der neuen EscalationEngine wird wohl diese hier sein:


--- Code: ---%REM
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
 Send a notification summary
///////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
%END REM
Private Function BuildAndSendMessageAsSummary ( Template As NotesDocument,_
tCol As NotesDocumentCollection, rcpt As String , group As Boolean) As Boolean

Dim UniqueRcpt As Variant
Dim sCol As NotesDocumentCollection

On Error Goto ERRHANDLE
BuildAndSendMessageAsSummary = False

If ( Not group) Then
'regular stuff here
If Left ( rcpt, 1 )  = "<"  Then
' ERROR : A summary can only be send to a single recipient or a group from DD
' Throw exception and stop executing
Goto EXITPOINT
Else
' rcpt does not contain a << tag;
' append a list of doclinks to the template and send it to the rcpt
'
End If

Else
' weird stuff here
If ( Not Left ( rcpt, 1 )  = "<" )  Then
' absolutely weird, does not belong here but can be handeld
Else
' remove <<tag>> from rcpt
' ... code to remove <<tags>> here ...
UniqueRcpt = Me.UniqueItems ( tcol , rcpt )

Forall r In UniqueRcpt

sCol =  Me.SubCollection ( tCol , icstr ( r ) )
' now send the collection to the UniqueRcpt
End Forall

End If

End If

BuildAndSendMessageAsSummary = True

EXITPOINT:
Exit Function
ERRHANDLE:

Dim e As New Exception
xProc = Getthreadinfo(LSI_THREAD_PROC)
xError = xProc  & ": " &Trim$(Str$(Err)) & " on line " & Cstr(Erl) & ": " & Error$
If e.es.UseOpenLog Then
Call LogError
Elseif e.es.LogScriptErrors Then
Call ThrowException ( xProc, xError  )
End If
Print xError   'In all cases
If e.es.ResumeMethodNext Then
Resume Next
Else
Resume EXITPOINT
End If

End Function

--- Ende Code ---

Zwei neue Felder kommen in der Maske hinzu

- SendAsSummary
- GroupTickets

Ohne eines dieser Felder anzuhaken, werden einzelne Benachrichtigungen an die in der Konfiguration benannten Personen oder Gruppen gesendet; es macht hier keinen Unterschied mehr, ob man die user-defined-formulas oder die default settings verwendet.

SendAsSummary:

wird dieser Eintrag bewirkt, daß eine Liste aller doclinks in tCol an einen Empfänger verschickt wird; dabei macht es keinen Sinn, <<tags>> zu verwenden.

SendAsSummary AND GroupTickets

sucht sich anhand des der function übergebenen rcpt zunächst einmal alle unique rcpt aus der collection, bildet eine subCollection anhand des uniqueRcpt und verschickt dann eine Liste der doclinks der subCollection.

Das macht er in einem Loop durch die Einträge in Me.UniqueItems.

Ziel dabei ist es dann, die eigentliche VersendeRoutine in allen Fällen auf ein


--- Code: ---function Send ( tCol as NotesDocumentCollection, rcpt as String, TemplateBody as NotesRichTextItem ) as boolean
--- Ende Code ---

zu reduzieren.

dudeis:

--- Zitat von: Thomas Schulte am 03.04.06 - 18:09:04 ---Ah ja gefunden und gefixt. Wenn man jetzt Änderungen im RTFeld durchführt werden die auch mit übergeben. (In der nächsten Version). Das ist ein klassisches Ällerbätsch von Notes. Änderungen von RTFeldern in Dialogboxen werden eigentlich nicht an den aufrufenden Code übergeben. Es sei denn man zaubert ein wenig. Gut jetzt haben wir dank der Hilfe eines guten Freundes gezaubert. Und jetzt funktioniert das auch.

--- Ende Zitat ---

Hallo Thomas,

Danke für Deine Reaktion.

Was hast Du jetzt eigentlich geändert ?
Ich habe nämlich festgestellt, wenn ich einfach nur den Body auf normalen Text umstelle, dann funktionieren die Änderungen am Text aber dummerweise wird der Link nicht mehr verschickt.
Das Einbinden von Links ist ja eine typische Richtext Funktion - braucht man dann noch ein weiteres Richtext Feld nur für den Link ?
Alternativ kann man in Abhängigkeit von der Konfiguration (mit/ohne Link) den Link auch nach dem Dialog ranhängen (im Script ist das Feld immer noch Richtext).

Oh je ich hasse diese Richtext Themen, die logischsten Sachen funktionieren nicht. Aber das ist Notes, so wird es einem nicht langweilig  ;)

Viele Grüße,
Andreas

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete