User Benachrichtigungen

[eddie_f]

Hallo mal wieder,

ich habe bereits die Einstellungen in HELP durchgesehen, aber keine passende Option gefunden. Mein Problem: es gibt Tickets, die vom Supporter erfasst werden wenn der User sich per Telefon gemeldet hat. Wenn jetzt das Problem im Laufe des Gesprächs gelöst wird, dann ist es eigentlich nicht notwendig dem User nochmal eine Mail mit dem geschlossen Ticket zu senden. Klar kann ich das jetzt allgemein unterdrücken, aber dann bekommt der User nie einen Hinweis, was dann ärgerlich ist wenn das Ticket nur per Mail/Helpdeskanfrage eingegangen ist. Ist es möglich dafür einen Button in der Maske zu erstellen der das Ticket schließt und keine Mial verschickt? Falls ja, wie?

P.S.: Kann es sein, daß in der 1.5.0 Wiedervorlagen nur nach dem Datum verarbeitet werden? Egal was ich für eine Uhrzeit einstelle, das Ticket wird immer an dem Tag ab 0:00 Uhr wieder aktiv, bzw. es werden Mails versandt. Falls das in 1.5.1 gefixt ist werde ich es mit dem Update versuchen.
-- Der Domino Server ist noch ein 6.5.1er, ich weis das ist nicht so die tolle Version, aber vom RZ her hab ich da keine Wahl 

[eknori]

Falls ja, wie?

Unter Tools ( oder Werkzeuge ) findest du eine Aktion, die es erlaubt, die globalen Maileinstellungen für einen einzelnen Vorgang zu beeinflussen.

[eddie_f]

Ok den Punkt hatte ich auch schon gefunden, aber Admins sind ja schließlich faul und wollen dann einen Knopf haben der das erledigt. Ich könnte mir das so als LotusSkript vorstellen, das dann erst die Einstellung frisiert und dann mit dem Button Abschliessen weiter macht. Ich werd mir mal den Code von der Maske reinpfeiffen, da sollte ich das ja finden können.

P.S.: Kann es sein, daß in der 1.5.0 Wiedervorlagen nur nach dem Datum verarbeitet werden? Egal was ich für eine Uhrzeit einstelle, das Ticket wird immer an dem Tag ab 0:00 Uhr wieder aktiv, bzw. es werden Mails versandt. Falls das in 1.5.1 gefixt ist werde ich es mit dem Update versuchen.
-- Der Domino Server ist noch ein 6.5.1er, ich weis das ist nicht so die tolle Version, aber vom RZ her hab ich da keine Wahl 

Dazu noch eine Idee oder soll ich dafür einen neuen Thread aufmachen?

[Thomas Schulte]

Ja das wäre möglich. Einbinden würde ich das über die Programmierbare Teilmaske in einer separaten Aktion, da das keine Globale Lösung sein wird.
Und dann musst du einfach nur diesen Code hier in die Action reinschreiben:

Code

Sub Click(Source As Button)
	Dim session As New NotesSession
	Dim wksp As New notesuiworkspace
	Dim db As notesdatabase	
	Dim uidoc As notesuidocument
	Dim doc As NotesDocument
	Dim Todoview As notesview
	Dim opentodocol As notesdocumentcollection
	Dim messagestext As String
	Dim messagessplit As Variant
	Dim messageslist List As String
	Dim user As String
	Dim x As Variant
	Dim i As Integer
	Dim message As String
	Dim messageintern As String
	Dim messagestringsplit As Variant
	Dim thisdate As New NotesDateTime("")
	Dim ok As Boolean
	Dim picklistback As Variant
	Dim reroutenewDocumenthistory As String
	Dim evalstring As String
	Dim evalvar As Variant
	Dim isnotesuser As Boolean
	Dim notesitem As notesitem
	Dim docmailsend As String
	
	Set db = session.CurrentDatabase
	Set todoview = db.GetView("($vwOpenTodo)")
	Set uidoc = wksp.CurrentDocument
	
	holders = uidoc.document.LockHolders
	If holders(0) <> "" Then
		Forall h In holders
			lockmessage = lockmessage & h & Chr(13)
		End Forall
		Messagebox lockmessage,, "Lock holders"
		Exit Sub
	End If	
	
	' if the uidoc is not in editmode set it
	If uidoc.EditMode= False Then
		uidoc.EditMode=True
	End If
	' get the actual date
	Call thisdate.setnow
	' get the actual user
	user = session.commonUserName
	' build a list for the message strings
	messagestext = uidoc.fieldgettext("MESSAGES")
	messagessplit = Split(messagestext,";")
	For I = 0 To Ubound(messagessplit) Step 1
		x = Split(messagessplit(i),"=")
		messageslist(x(0)) = x(1)	
	Next
	' check if the document has open Todos
	Set opentodocol = todoview.GetAllDocumentsByKey(uidoc.Document.UniversalID)
	If opentodocol.count>0 Then
		' messageoutbreak
		
		'x =Split(messageslist("msgTicketOpenTodo"),"~") 'wieder aktivieren
		
	'PW PROGRAMMIERT ANFANG
		x =Split(MessageslistitemNotExists(messageslist, "msgTicketOpenTodo",2),"~") 
	'PW PROGRAMMIERT ENDE
		Messagebox x(1),16,x(0) 
		Exit Sub
	End If
	' check if the document has a solution
	If uidoc.Document.solution(0) = "" Then
		' messageoutbreak
		'x =Split(messageslist("msgTicketDNoSolution"),"~")
		
	'PW PROGRAMMIERT ANFANG
		x =Split(MessageslistitemNotExists(messageslist, "msgTicketDNoSolution",2),"~") 
	'PW PROGRAMMIERT ENDE
		
		Messagebox x(1),16,x(0)
		Exit Sub
	End If
	' check if the user really wants to close this ticket
	'x =Split(messageslist("msgTicketDClose"),"~")
	
	'PW PROGRAMMIERT ANFANG
	x =Split(MessageslistitemNotExists(messageslist, "msgTicketDClose",2),"~") 
	'PW PROGRAMMIERT ENDE
	
	i= Messagebox(x(1),36,x(0))
	If i <> 6 Then
		Exit Sub
	End If
	' checked all barriers go on and change the document
	' set some fields in the uidoc
	uidoc.Document.status = "99"
	uidoc.document.CompletedBy = user
	uidoc.document.DateCompleted = thisdate.LocalTime
	' use the LogActions function for logging entrys.
	Ok = logActions(uidoc,"UserClosed","",thisdate.Dateonly, thisdate.timeonly,"","","","")
	If ok = False Then 
		' was not assigned due to an error in the logAction Script 
		Exit Sub
	End If
	'set the doc
	Set doc = uidoc.Document

	Call doc.Save(True,False)
	Call uidoc.close
End Sub

[eddie_f]

WOW das ist zu gut um wahr zu sein      Das erspart mir eine Menge Sucherei in der Maske.

Genial. Das Update auf 1.5.1 hat auch funktioniert, mit Hilfe der ganzen Threads hier im Forum sind die Probleme auf die man so trifft alle zu lösen