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

Dispatcher manuell und periodisch

<< < (5/5)

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

--- Ende Code ---
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

Navigation

[0] Themen-Index

[*] Vorherige Sete