Das hier ist die Stelle an der das passieren sollte:
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