Dispatcher manuell und periodisch

[m3]

Deutsche Berufskleider-Leasing ?
Du möchtest Deine Postings ev. etwas mehr anonymisieren.

[Thobz]

Hallo m3,

habe es getan. Wo ist den das Problem ? Mich würde es nicht stören, wenn jemand
weiß aus welcher Firma ich komme. Aber DBL steht für etwas anderes :-).


Thomas

[Thomas Schulte]

Das hier ist die Stelle an der das passieren sollte:

Code

Sub CreateTicketNotificationMail(db As notesdatabase)
%REM
###################################################################################
Goal:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Arguments: Description:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Return:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
Example:
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
VERSION / WHEN / WHO / CHANGES
'################################################################################### 
%END REM	
	On Error Goto ERRHANDLE
	
	Dim item As notesitem
	Dim itemname As String
	
	Set newdoc = db.GetDocumentByUNID(newticketunid)
	' Check if the document should be mailed immediate
	If MailnewdocInformation = "YES" Then
		If MailnewdocAsSummary = "YES" Then
        		' save the content of this document to a list. The field Asubject is used
			If Iselement(newticketdocumentEntryList(newdoc.Universalid)) = False Then
				newticketdocumententrylist(newdoc.UniversalID).doclink = newdoc.UniversalID
				newticketdocumententrylist(newdoc.UniversalID).docsummary = ""
				itemname = GetConfigDocByKey("MailIfNewMailResponseBodyFieldName")
				If itemname <> "" Then
					Set item = newdoc.GetFirstItem(itemname)
					If Not item Is Nothing Then
						newticketdocumententrylist(newdoc.UniversalID).docsummary = item.Values
					End If
				End If
			End If
		Else
			rcpt = Split(MailnewDocInformationUserName, ";")
			Forall r In rcpt
				' do not send mail if said so for the default supporter
				If MailNewDocToDefaultSupporter <> "YES" And r = GetConfigDocByKey("DefaultSupporter") Then
				Else
        				' send this document as mail
					If  GetConfigDocByKey("MailIfNewMailResponseLink") = "YES" Then
						Boollink = True
					Else
						Boollink = False
					End If
					OKI = Spoofmessage(_
					GetConfigDocByKey("sendMailonBehalfof"),_
					r, _
					"",_
					interactivemessages("msgDispatchNotificationMailNewDocSubjectSingleMail"),_
					interactivemessages("msgDispatchNotificationMailNewDocBodySingleMail"),_
					newdoc,_
					GetConfigDocByKey("MailIfNewMailResponseSubjectFieldName"),_
					GetConfigDocByKey("MailIfNewMailResponseBodyFieldName"),_
					BoolLink,_
					False,_
					"BugReport",_
					"IsNewMail")
				End If
			End Forall
		End If
	End If
	
EXITPOINT:
	Exit Sub
ERRHANDLE:
	Call LogError
	Resume EXITPOINT
End Sub

Wenn du in der Forall Schleife ein paar Prints absetzt müsstest du rausbekommen ob und was er da auf dem Server macht.

[Thobz]

Hallo,

erstmal vielen Dank für deine Mühe und viele Hilfe.
Im Moment fehlt leider die Zeit um der Sache genau auf den Grund
zu gehen, ich denke ich were mich am Samstag mal in Ruhe an die Sache machen.

Gruß aus dem hohen Norden,

Thomas