- name: embedded-mailer
  type: microservice
  profiles: prod,cloud
  instances: 1
  memory: 256M
  port: 9353
  arch: x64
  path: ${appBase}/embedded-mailer/mailing-app.jar

[
    {
        "objectTypes": "*",
        "platforms": ["web", "desktop_app", "mobile", "mobile_app"],
        "uri": "http://[ENAIO-BASE-URI]/mailing/",
        "title_EN": "Embedded Mailer",
        "title_DE": "Embedded Mailer",
        "title_FR": "Embedded Mailer",
        "iconId": "1"
    }
]

mailing:
    backend:
        client: enaio
        licenseKey: YOUR-COMPANIES-LICENSE-KEY
        licenseVersion: 2
    paths:
        - type: mailing-dashlet-design
          visibility: private
          target: Pfad\zu\Ihren\OptimalSystemsKomponenten\services\service-manager\data\embedded-mailer\designs\your-email-layout.html
    attachments:
        # 3 Types: EmptyJob | MandatoryFields | SystemFields
        fileNameGenerator:
            type: MandatoryFields
            # @todo Systemfields Konfiguration in MetadataService einbauen
            systemFields:
                - objectId
                - objectTypeId
                - lastModificationDate
    # Defines, which contact-types (currently AppConnector endpoint) getContacts should consider
    contacts:
        anonymous: false
        contacts: true
        user: true
        internal: true
        limit: 50
    extensions:
        # optional extensions
        frontend:
            - name: allowSignature
              type: EmptyJob
              parameters:
              expect: Boolean
        backend:
            # - name: closureTest
            #   type: Closure
            #   expect: List
            #   parameters:
            #   param1: 1
            #   param2: test
            #   param3: [1, 2, blubb]
    eml:
        store: true
    endpoints:
        appConnector:
            url: http://[ENAIO-BASE-URI]:8060/osrest/api
            actions:
                - name: callEmptyJob
                  query: ?timeout=120000
        renditionCache:
            url: http://[ENAIO-BASE-URI]:8070/osrenditioncache
            actions:
                - name: convertToPDF
                  query: ?timeout=120000
        smtp:
            host: your-mail-smtp-host
            port: 0
            enable-ssl: true
            enable-startTls: true
            auth:
                enable: true
                email: your-default-email@your-company-domain.ch
                password: *******
            anonymous:
                enable: true
                email: anonymous@your-company-domain.ch # non-personal email dispatching

<div class="preview">
    <div>${parsedMessage}</div>

   <#if attachmentsAsLinks>
       <ul>
          <#list data.attachments as item>
             <li>
                <a href="${item.getUri()}">${item.getName()}</a>
             </li>
          </#list>
       </ul>
    </#if>
</div>

' Hauptfunktion die auf HTTP-Anfragen des EmptyJobs reagiert.
Function Main
	Dim Method: Method = RC.InputParams.Value("method")

	' Exit Function If no Method was set
	If Method = "" Then
		RC.Logger.Error "Missing Method Parameter"
		Exit Function
	End If

	' Endpunkt / Funktion die an Hand der HTTP-Anfrage ausgeführt werden soll
    ' Grundregel:
    ' Alle für Auswahlboxen (DropDowns) verwendeten Funktionen müssen eine XML-Antwort zurückliefern
    ' Alle anderen Funktionen haben unterschiedliche Rückgabeformate (Text oder JSON)
	Select Case Method
        Case "emails"
            Dim Emails: Set Emails = getEmails()
            RC.OutputParams.Value("emails") = Emails.xml
        Case "getFileName"
            getFileName()
        Case "getObjectLocation"
            RC.OutputParams.Value("location") = getObjectLocation()
        Case "getPlaceholder"
            Dim Placeholder: Set Placeholder = getPlaceholder()
            RC.OutputParams.Value("placeholder") = Placeholder.xml
        Case "persistEmail"
            PersistEmail()
        Case "templates"
            Dim Templates: Set Templates = getTemplates()
            RC.OutputParams.Value("templates") = Templates.xml
        Case Else
            RC.Logger.Error "Unknown Method " & Method
            Exit Function
	End Select
End Function


' Funktion zur Dekodierung eines base64-kodierten Strings
Function Base64Decode(ByVal vCode)
    Dim oXML, oNode

    Set oXML = CreateObject("Msxml2.DOMDocument.3.0")
    Set oNode = oXML.CreateElement("base64")

    oNode.dataType = "bin.base64"
    oNode.text = vCode

    'Wichtig: enaio: us-ascii Kodierung, enaio unicode: UTF-16 Kodierung
	Base64Decode = Stream_BinaryToString(oNode.nodeTypedValue, 'UTF-16')

	Set oNode = Nothing
    Set oXML = Nothing
End Function

' Funktion zur Konvertierung eines binär-strings in eine per CharSet definierte andere Kodierung
Function Stream_BinaryToString(Binary, CharSet)
  Const adTypeText = 2
  Const adTypeBinary = 1

  Dim BinaryStream: Set BinaryStream = CreateObject("ADODB.Stream")

  BinaryStream.Type = adTypeBinary
  BinaryStream.Open
  BinaryStream.Write Binary
  BinaryStream.Position = 0
  BinaryStream.Type = adTypeText
  BinaryStream.CharSet = CharSet

  Stream_BinaryToString = BinaryStream.ReadText

  Set BinaryStream = Nothing
End Function

' Auswertung und Vorbelegung des HTTP-Parameters 'maxResults' der bei den meisten Anfragen vom Dashlet zu enaio mitgeschickt wird
' Der Parameter kan dazu verwendet werden, Ergebnismengen zu limitieren um Performance und Last zu verbessern.
Function getMaxResults()
	Dim maxResults: maxResults = RC.InputParams.Value("maxResults")
    ' Sofern Parameter nicht oder leer geschickt wurde kann hier der Standard (z.B. 100) festgelegt werden.
	If maxResults = "" OR maxResults = 0 Then
		maxResults = 100
	End If

	getMaxResults = maxResults
End Function

' Auswführen einer ADODB-Anfrage an enaio um zum Beispiel Benutzerdaten auszulesen
Function AdoSelect(ByVal Command)
		Dim JobInputParameter: Set JobInputParameter = RC.NewJobsParams
		Dim JobOutputParameter: Set JobOutputParameter = RC.NewJobsParams

		With JobInputParameter
			.Value("Flags") = 1
			.Value("Command") = Command
		End With

		RC.Jobs.ado.ExecuteSQL jobInputParameter, jobOutputParameter

		Dim RS: Set RS=CreateObject("ADODB.Recordset")

		RS.Open(JobOutputParameter.Value("ResultSet"))

		Set AdoSelect = RS
End Function

' Klasse um XML-Elemente zu generieren. Sie wird benötigt, um für jede Anfrage eine XML-Antwort zu generieren.
Class XMLElementClass
	Private MyDom
	Private MyElement

	Public Function Init(ByRef Dom, ByRef Element)
		Set MyDom = Dom
		Set MyElement = Element
	End Function

	Public Function Child(byVal TagName)
		Dim ChildElement: Set ChildElement = MyDom.createElement(TagName)
		MyElement.AppendChild ChildElement

		Dim ChildObj: Set ChildObj = New XMLElementClass
		ChildObj.Init MyDom, ChildElement
		Set Child = ChildObj
	End Function

	Public Function ChildWithContent(byVal TagName, ByVal Content)
		Dim ChildObj: Set ChildObj = Child(TagName)
		ChildObj.Content(Content)
		Set ChildWithContent = ChildObj
	End Function

	Public Function Attr(byVal Name, ByVal Value)
		MyElement.setAttribute Name, Value
	End Function

	Public Function Content(ByVal Value)
		MyElement.AppendChild MyDom.CreateTextNode(Value)
	End Function

	Public Function ToString
		ToString = MyDom.xml
	End Function

	Public Function ToDom
		Set ToDom = MyDom
	End Function
End Class

' Hilfsfunktion um die Verwendung der Klasse XMLElementClass zu vereinfachen
Function XMLElement(ByVal TagName)
	Dim MyDom: Set MyDom = CreateObject("MSXML2.DOMDocument")
	MyDom.documentElement = MyDom.createElement(TagName)

	Dim ElementObj: Set ElementObj = new XMLElementClass
	ElementObj.Init MyDom, MyDom.documentElement

	Set XMLElement = ElementObj
End Function

' MINIMAL VERSION
Function getEmails()
    ' E-Mail-Objekt anlegen (zum einfachereren erstellen einer XML-Antwort an das Dashlet)
    Set Email = CreateObject("Scripting.Dictionary")
    Email.Add "name" , "Max Mustermann"
    Email.Add "email" , "max@mustermann.ch"
    Email.Add "source", "System"

    ReDim Preserve Emails(UBound(Emails)+1)
    Set Emails(UBound(Emails)) = Email

    Dim count: count = 0
	Dim Response: Set Response = XMLElement("emails")

    ' Abschliessende Generierung der XML-Antwort an das Dashlet
	With Response
		.Attr "size", UBound(Emails)+1
		For Each Email In Emails
			With .Child("email")
				.Attr "name", Email("name")
				.Attr "email", Email("email")
				.Attr "source", Email("source")
			End With
			count = count + 1
		Next
	End With

	Set GetEmails = Response.toDom
End Function

Function getEmails()
    ' Anonyme Email-Adressen laden -> Werte: 1 oder 0
	Dim anonym: anonym = RC.InputParams.Value("anonymous")
    ' Email-Adressen von Benutzern laden -> Werte: 1 oder 0
	Dim mailsUser: mailsUser = RC.InputParams.Value("emailsUser")
    ' Email-Adressen von Kontakten (enaio-Ordner) laden -> Werte: 1 oder 0
	Dim mailsContacts: mailsContacts = RC.InputParams.Value("emailsContacts")
    ' Email-Adressen von internen Kontakten (enaio-Ordner) laden -> Werte: 1 oder 0
	Dim mailsInternal: mailsInternal = RC.InputParams.Value("emailsInternal")
    ' Maximale Anzahl der Ergebnisse -> Wert: Ganzzahl (Integer)
	Dim MaxResults: MaxResults = getMaxResults()
    ' Suchbegriff für die Suche nach passenden E-Mail-Adressen oder Benutzern in enaio -> Wert: text (String)
	Dim search: search = RC.InputParams.Value("searchQuery")

	Dim Emails: Emails = Array()
	Dim EmailsNodes, EmailNode, Email, FullName, Result, source, emailAdress

    ' Feste E-Mail-Adressen

    ' source legt die Quelle (Ansicht in Auswahlbox) der E-Mail fest.
    source = "System"
    ' E-Mail-Objekt anlegen (zum einfachereren erstellen einer XML-Antwort an das Dashlet)
    Set Email = CreateObject("Scripting.Dictionary")
    Email.Add "name" , "Max Mustermann"
    Email.Add "email" , "max@mustermann.ch"
    Email.Add "source", source

    ReDim Preserve Emails(UBound(Emails)+1)
    Set Emails(UBound(Emails)) = Email

    ' Ein weiteres E-Mail-Objekt anlegen
    Set Email = CreateObject("Scripting.Dictionary")
    Email.Add "name" , "Martha Mustermann"
    Email.Add "email" , "martha@mustermann.ch"
    Email.Add "source", source

    ReDim Preserve Emails(UBound(Emails)+1)
    Set Emails(UBound(Emails)) = Email

    ' E-Mail-Adresse eines oder mehrerer bestimmter Benutzer
    ' Flag emailsUser/mailsUser das via HTTP-Request von Dashlet zu enaio geschickt wird belegt die Variable mailsUser und
	If mailsUser = 1 Then
		source = "Benutzer"
        ' Datenbankanfrage via ADODB, um Benutzerdaten zu laden
		Dim query: query = "SELECT * FROM benutzer WHERE flags=1 AND osemail <> ''"

		If Not search = "*" Then
			query = query & " AND (name LIKE '" & search & "%' OR osemail LIKE '" & search & "%')"
		End If

		Dim resUser: Set resUser = AdoSelect(query)

		If Not resUser.BOF Then
			resUser.MoveFirst
            ' Dynamische Erstellung von E-Mail-Objekten
			Do While Not resUser.EOF
				emailAdress = resUser.Fields.Item("osemail").Value
				If Len(emailAdress) > 5 Then
				    Set Email = CreateObject("Scripting.Dictionary")
					Email.Add "name" , resUser.Fields.Item("name").Value
					Email.Add "email" , resUser.Fields.Item("osemail").Value
					Email.Add "source", source

					ReDim Preserve Emails(UBound(Emails)+1)
					Set Emails(UBound(Emails)) = Email
				End If
				resUser.MoveNext
			Loop
		End If
	End If

	Dim count: count = 0
	Dim Response: Set Response = XMLElement("emails")

    ' Abschliessende Generierung der XML-Antwort an das Dashlet
	With Response
		.Attr "size", UBound(Emails)+1
		For Each Email In Emails
			With .Child("email")
				.Attr "name", Email("name")
				.Attr "email", Email("email")
				.Attr "source", Email("source")
			End With
			count = count + 1
		Next
	End With

	Set GetEmails = Response.toDom
End Function

' Funktion gibt vor, wie Anhänge benannt werden. Hier ist ein Text als Rückgabewert ausreichend, da immer nur 1 Dokument angefragt werden kann.
Function getFileName()
	fileName = "Alle Anhänge heissen jetzt gleich."

    getFileName = fileName
End Function

' getObjectLocation nutzt den enaio DMS-Service, um den Standort eines Dokuments zu bestimmen
' Als Rückgabewert ist ein String ausreichend, der an den Embedded Mailer zurückgeliefert wird
Function getObjectLocation()
	Dim userName: userName = RC.InputParams.Value("$$$SwitchContextUserName$$$")
	Dim objectId: objectId = RC.InputParams.Value("objectId")
	Dim objectTypeId: objectTypeId = RC.InputParams.Value("objectTypeId")

	Dim Query: Set Query = XMLElement("DMSQuery")
	With Query
		.Attr "requesttype", "HOL"
		With .Child("Archive")
			With .Child("ObjectType")
				.Attr "id", objectTypeId
				With .Child("Conditions")
					With .Child("ConditionObject")
						.Attr "id", objectTypeId
						With .Child("FieldCondition")
							.Attr "internal_name", "OBJECT_ID"
							.Attr "operator", "="
							.Attr "system", "1"
							.ChildWithContent "Value", objectId
						End With
					End With
				End With
				With .Child("Fields")
					.Attr "field_schema", "DEF"
					With .Child("Field")
						.Attr "internal_name", "SDSTA_ID"
						.Attr "system", "1"
					End With
					With .Child("Field")
						.Attr "internal_name", "SDREG_ID"
						.Attr "system", "1"
					End With
					With .Child("Field")
						.Attr "internal_name", "SDREG_TYPE"
						.Attr "system", "1"
					End With
				End With
			End With
		End With
	End With

	Dim jobInputParameter: Set jobInputParameter = RC.NewJobsParams
	Dim jobOutputParameter: Set jobOutputParameter = RC.NewJobsParams

	jobInputParameter.Value("Flags") = 0
	jobInputParameter.Value("Options") = 1
	jobInputParameter.Value("Encoding") = "UTF-8"
	jobInputParameter.Value("FieldSchema") = "MIN"
	jobInputParameter.Value("XML") = Query.ToDom

	RC.Jobs.dms.GetResultList jobInputParameter, jobOutputParameter

	Dim Result : Set Result = CreateObject("MSXML2.DOMDocument")
	Result.load(jobOutputParameter.Value("XML"))

	sdStaName = Result.selectSingleNode("//Archive").getAttribute("name")
	sdStaId = Result.selectSingleNode(".//Field[@internal_name=""SDSTA_ID""]").text
	sdRegId = Result.selectSingleNode(".//Field[@internal_name=""SDREG_ID""]").text
	sdRegType = Result.selectSingleNode(".//Field[@internal_name=""SDREG_TYPE""]").text

    ' Zusammengesetzter String als Rückgabewert mit Informationen über den Schrank und das Register in dem das angefragte Dokument liegt
	getObjectLocation = sdStaId & "," & sdStaName & "," & sdRegId & "," & sdRegType
End Function

' getPlaceholder() erstellt die Liste der Platzhalter und liefert sie im XML-Format (vgl. getEmails()) zurück.
Function getPlaceholder()
	Dim userName: userName = RC.InputParams.Value("$$$SwitchContextUserName$$$")
	Dim placeholderList: placeholderList = Array()
	Dim Placeholder

    ' Statischer Platzhalter 1
    Set Placeholder = CreateObject("Scripting.Dictionary")
    Placeholder.Add "selector", "PLATZHALTERNAME1"
    Placeholder.Add "replacement", "Platzhalterwert 1"
    Placeholder.Add "description", "Platzhalter 1 Beschreibung"

    ReDim Preserve placeholderList(UBound(placeholderList)+1)
    Set placeholderList(UBound(placeholderList)) = Placeholder

    ' Statischer Platzhalter 2
    Set Placeholder = CreateObject("Scripting.Dictionary")
    Placeholder.Add "selector", "PLATZHALTERNAME2"
    Placeholder.Add "replacement", "Platzhalterwert 2"
    Placeholder.Add "description", "Platzhalter 2 Beschreibung"

    ReDim Preserve placeholderList(UBound(placeholderList)+1)
    Set placeholderList(UBound(placeholderList)) = Placeholder

    ' Abschliessende Generierung der XML-Antwort an das Dashlet
	Dim Response: Set Response = XMLElement("placeholder")
	With Response
		.Attr "size", UBound(placeholderList)+1
		For Each Item In placeholderList
			With .Child("replacement")
				.Attr "selector", Item("selector")
				.Attr "replacement", Item("replacement")
				.Attr "description", Item("description")
				.Content Placeholder(selector)
			End With
		Next
	End With

	Set getPlaceholder = Response.toDom
End Function

Function PersistEmail()
	' Register:  Foldername to E-Mail-object typenames
	Dim folderMailTypes: Set folderMailTypes = CreateObject("Scripting.Dictionary")

	' Beispiel: folderMailTypes.Add "Ordnername" , "E-Mail-Object-Typ: internal name"
	' Festlegung welche enaio EMail Typen in welchem Ordner erlaubt sind. Nur hier können Emails abgelegt werden
	folderMailTypes.Add "Ordner1", "EMailTypSchrank1" 'internal_name
	folderMailTypes.Add "Ordner2", "EMailTypeSchrank2" 'internal_name

    Dim folderId: folderId = RC.InputParams.Value("folderId")
	Dim folderName: folderName = RC.InputParams.Value("folderName")

    ' Rückgabe als JSON-Objekt
	If folderMailTypes.Exists(folderName) Then
        Dim filePath: filePath = createEmailTempFile()

        If Len(filePath) > 0 Then
            Dim email: Set email = createEmail(filePath, folderMailTypes)

            RC.OutputParams.Value("objectId") = email.Value("ObjectID")
            RC.OutputParams.Value("objectTypeId") = email.Value("ObjectType")
            RC.OutputParams.Value("status") = true
            RC.OutputParams.Value("error") = ""
            RC.OutputParams.Value("message") = "Created enaio document for folder " & folderName & "(" & folderId & "): " & filePath
        Else
            RC.OutputParams.Value("objectId") = 0
            RC.OutputParams.Value("objectTypeId") = 0
            RC.OutputParams.Value("status") = false
            RC.OutputParams.Value("error") = "EML-file in " & folderName & "(" & folderId & ") was not created."
            RC.OutputParams.Value("message") = ""
        End If
	Else
		RC.OutputParams.Value("objectId") = 0
		RC.OutputParams.Value("objectTypeId") = 0
		RC.OutputParams.Value("status") = false
		RC.OutputParams.Value("error") = "No folder " & folderName & "(" & folderId & ") related to e-mail object type in vbs."
		RC.OutputParams.Value("message") = ""
	End If
End Function

' Speichern des Base64 Kodierten EML Inhalts (E-Mail als Text wie sie auch via Outlook oder Thunderbird versendet wird)
Function createEmailTempFile()
    Dim emlBase64: emlBase64 = Base64Decode(RC.InputParams.Value("eml"))

    Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
    Dim	filePath: filePath = RC.ServerData.TempDir & "\" & fso.GetTempName & ".eml"

    Dim tempFile: Set TempFile = fso.CreateTextFile(FilePath, True, True)
    tempFile.write emlBase64 & vbCrLf
    tempFile.close()

    createEmailTempFile = filePath
End Function

' Erstellen eines enaio-E-Mail-Dokuments
Function createEmail(filePath, folderMailTypes)
    ' Ordner und Register festlegen, in dem ein E-Mail-Dokument in enaio erstellt werden soll

    ' Variante 1 "dynamisch": Systemfelder via HTTP-Request
    ' Schrank- und Registerinformationen kommen via HTTP-Anfrage und werden an Hand des zuletzt selektierten Dokuments in einem Standort (nicht Trefferliste) ermittelt
    Dim folderId: folderId = RC.InputParams.Value("folderId")
	Dim folderName: folderName = RC.InputParams.Value("folderName")
	Dim registerId: registerId = RC.InputParams.Value("registerId")
	Dim registerTypeId: registerTypeId = RC.InputParams.Value("registerTypeId")

    ' Variante 2 "statisch": Systemfelder für festen Schrank & Register
    ' Schrank- und Registerinformationen werden fest im EmptyJob definiert. Alle E-Mail-Dokumente werden in diesem Register angelegt.
'	Dim folderId: folderId = 2330
'	Dim folderName: folderName = "BeispielOrdner"
'	Dim registerId: registerId = 2420
'	Dim registerTypeId: registerTypeId = 6488064

    ' Variante 3 "kombiniert": Systemfelder für Schrank fest, Systemfelder für Register via HTTP-Request (zusätzliche Prüfungen müssen implementiert werden)
'	Dim folderId: folderId = 2330
'	Dim folderName: folderName = "BeispielOrdner"
'	Dim registerId: registerId = RC.InputParams.Value("registerId")
'	Dim registerTypeId: registerTypeId = RC.InputParams.Value("registerTypeId")


    Dim userName: userName = RC.InputParams.Value("$$$SwitchContextUserName$$$")

    ` Emailfelder via HTTP-Request
    Dim sender: sender = RC.InputParams.Value("from")
    Dim receiver: receiver = RC.InputParams.Value("to")
    Dim cc: cc = RC.InputParams.Value("cc")
    Dim bcc: bcc = RC.InputParams.Value("bcc")
    Dim sentOn: sentOn = RC.InputParams.Value("sentOn")
    Dim subject: subject = RC.InputParams.Value("subject")
    Dim message: message = RC.InputParams.Value("message")
    Dim messagePlainText: messagePlainText= RC.InputParams.Value("messagePlainText")
    Dim attachments: attachments = RC.InputParams.Value("attachments")

    ' Erstellen des enaio E-Mail-Dokuments via DMS Service
    Dim Query: Set Query = XMLElement("DMSData")

    With Query
        With .Child("Archive")
            With .Child("ObjectType")
                ' Vorsicht: In enaio 10.10. maintype nicht Abfragen. Führt zu einem falschen Ergebnis!
                .Attr "maintype", 6
                .Attr "internal_name", folderMailTypes.Item(folderName)
                With .Child("Object")
                    .Attr "folder_id", folderId
                    If registerId > 0 Then
                        .Attr "register_type", registerTypeId
                        .Attr "register_id", registerId
                    End If
                    With .Child("Fields")
                        With .Child("Field")
                            .Attr "internal_name", "MAIL_FROM"
                            .Content sender
                        End With
                        With .Child("Field")
                            .Attr "internal_name", "MAIL_TO"
                            .Content receiver
                        End With
                        With .Child("Field")
                            .Attr "internal_name", "MAIL_CC"
                            .Content cc
                        End With
                        With .Child("Field")
                            .Attr "internal_name", "MAIL_SUBJECT"
                            .Content subject
                        End With
                        With .Child("Field")
                            .Attr "internal_name", "MAIL_SUBMIT_TIME"
                            .Content sentOn
                        End With
                    End With
                    With .Child("Remarks")
                        With .Child("RemarkText")
                            .Attr "action", "INSERT"
                            .Attr "color", "BLUE"
                            .Content "E-Mail gesendet am von " & sender & " an " & receiver
                        End With
                    End With
                End With
            End With
        End With
    End With

    Dim jobInputParameter: Set jobInputParameter = RC.NewJobsParams
    Dim jobOutputParameter: Set jobOutputParameter = RC.NewJobsParams

    jobInputParameter.Value("Flags") = 0
    jobInputParameter.Value("File_0") = filePath
    jobInputParameter.Value("XML") = Query.ToDom

    RC.Jobs.dms.XMLInsert jobInputParameter, jobOutputParameter

    Set createEmail = jobOutputParameter
End Function

' Generiert eine XML-Liste von Nachrichtenvorlagen, die im Embedded Mailer verwendet werden können
Function getTemplates()
Dim search: search = RC.InputParams.Value("searchQuery")
Dim MaxResults: MaxResults = getMaxResults()
Dim department: department = getDepartment()

    ' Anfrage über DMS-Service nach Objekten vom Typ "MailingTemplate" (Schrankabhängig)
    Dim Query: Set Query = XMLElement("DMSQuery")
    With Query
    	.Attr "requesttype", "HOL"
    	With .Child("Archive")
    		With .Child("ObjectType")
    			.Attr "internal_name", "MailingTemplate"
    			With .Child("Conditions")
    				With .Child("ConditionObject")
    					.Attr "operator", "AND"
    					.Attr "internal_name", "MailingTemplate"
    					With .Child("FieldCondition")
    						.Attr "internal_name", "MailingTemplateSelection"
    						.Attr "operator", "="
    						.ChildWithContent "Value", search & "*"
    					End With
    					With .Child("FieldCondition")
    						.Attr "internal_name", "MailingTemplateFirma"
    						.Attr "operator", "="
    						.ChildWithContent "Value", department
    					End With
    				End With
    			End With
    			With .Child("Fields")
    				.Attr "field_schema", "DEF"
    				With .Child("Field")
    					.Attr "internal_name", "MailingTemplateSelection"
    				End With
    				With .Child("Field")
    					.Attr "internal_name", "MailingTemplateDescription"
    				End With
    				With .Child("Field")
    					.Attr "internal_name", "MailingTemplateSubject"
    				End With
    				With .Child("Field")
    					.Attr "internal_name", "MailingTemplateMessage"
    				End With
    			End With
    		End With
    	End With
    End With

    Dim jobInputParameter: Set jobInputParameter = RC.NewJobsParams
    Dim jobOutputParameter: Set jobOutputParameter = RC.NewJobsParams

    jobInputParameter.Value("Flags") = 0
    jobInputParameter.Value("FileInfo") = 1
    jobInputParameter.Value("Encoding") = "UTF-8"
    jobInputParameter.Value("XML") = Query.ToDom

    RC.Jobs.dms.GetResultList jobInputParameter, jobOutputParameter

    Dim Result : Set Result = CreateObject("MSXML2.DOMDocument")
    Result.load(jobOutputParameter.Value("XML"))

    Dim Templates: Templates = Array()
    Dim TemplateNodes, TemplateNode, Template
    Dim count: count = 0

    ' Auslesen der Nachrichtenvorlagendaten
    Set TemplateNodes = Result.SelectNodes("//ObjectType[@internal_name='MailingTemplate']/ObjectList/Object")
    For Each TemplateNode In TemplateNodes
    	Set Template = CreateObject("Scripting.Dictionary")
    	Template.Add "selection" , TemplateNode.selectSingleNode(".//Field[@internal_name=""MailingTemplateSelection""]").text
    	Template.Add "description" , TemplateNode.selectSingleNode(".//Field[@internal_name=""MailingTemplateDescription""]").text
    	Template.Add "subject" , TemplateNode.selectSingleNode(".//Field[@internal_name=""MailingTemplateSubject""]").text
    	Template.Add "message" , TemplateNode.selectSingleNode(".//Field[@internal_name=""MailingTemplateMessage""]").text
    	ReDim Preserve Templates(UBound(Templates)+1)
    	Set Templates(UBound(Templates)) = Template

    	count = count + 1

    	If count = MaxResults Then
    		Exit for
    	End If
    Next

    ' Abschliessende Generierung der XML-Antwort an das Dashlet
    Dim Response: Set Response = XMLElement("templates")
    With Response
    	.Attr "size", UBound(Templates)+1
    	.Attr "department", department
    	For Each Template In Templates
    		With .Child("template")
    			.Attr "selection", Template("selection")
    			.Attr "description", Template("description")
    			.Attr "subject", Template("subject")
    			.Attr "message", Template("message")
    		End With
    	Next
    End With

    Set GetTemplates = Response.toDom

## End Function

mailing:
    ...
    extensions:
        # Angular/Typescript Frontend
        frontend:
            - name: [Eindeutiger Name der Erweiterung]
              # "Closure" ruft statische Funktion im Frontend oder Backend auf
              # "EmptyJob" stellt zusätzlich eine individualisierbare Anfrage an einen enaio® EmptyJob
              type: [Closure | EmptyJob]
              paramters:
                - param1: [Wert]
                - param2: [Wert]
                ...
        # Java-Backend
        backend:
            - name: [Eindeutiger Name der Erweiterung]
              type: [Closure | EmptyJob]
              paramters:
                - param1: [Wert]
                - param2: [Wert]
                ...
    ...

mailing:
    ...
    extensions:
        frontend:
            - name: allowSignature
              type: EmptyJob
              expect: boolean
              paramters:
    ...

Function Main
	Dim Method: Method = RC.InputParams.Value("method")

	' Exit Function If no Method was set
	If Method = "" Then
		RC.Logger.Error "Missing Method Parameter"
		Exit Function
	End If

	' Execute Method
	Select Case Method
	Case "allowSignature" ' Closure
		RC.OutputParams.Value("result") = allowSignature()
	...
	Case Else
		RC.Logger.Error "Unknown Method " & Method
		Exit Function
	End Select
End Function

' Rückgabeformat: boolean - siehe Konfiguration "expect"
Function allowSignature() ' Closure
	Dim userName: userName = RC.InputParams.Value("$$$SwitchContextUserName$$$")
    Dim allowed: allowed = False

    If userName == "administrator" Then
        allowed = True

	allowSignature = allowed
End Function