ERGO Workshop v2.26 — HTA Quellcode

Eigenstaendiges Workshop-Tool (startet direkt im weissen Workshop-Frontend)
Wie nutze ich diese Seite?
Klicke auf "Code kopieren" oder "Als .hta herunterladen"
Beim Kopieren: Notepad / Notepad++ oeffnen und einfuegen (Strg+V)
Speichern als ergo-workshop.hta (Encoding UTF-8)
Doppelklick → HTA startet direkt im Workshop-Modus
Dateigroesse: ... | Zeilen: ...
<!DOCTYPE html>
<html>
<head>
    <meta charset="UTF-8">
    <meta http-equiv="X-UA-Compatible" content="IE=11">
    <title>ERGO Workshop</title>
    <HTA:APPLICATION
        ID="ERGO_Vorgang_Analyse"
        APPLICATIONNAME="ERGO Workshop"
        BORDER="dialog"
        BORDERSTYLE="normal"
        CAPTION="yes"
        MAXIMIZEBUTTON="yes"
        MINIMIZEBUTTON="yes"
        SHOWINTASKBAR="yes"
        SINGLEINSTANCE="yes"
        SYSMENU="yes"
        VERSION="2.26"
        WINDOWSTATE="normal"
    />
    <style>
        * { margin: 0; padding: 0; box-sizing: border-box; }
        body {
            font-family: 'Segoe UI', Tahoma, sans-serif;
            background: linear-gradient(135deg, #0f172a 0%, #1e293b 100%);
            color: #f1f5f9;
            min-height: 100vh;
            padding: 1rem 1.5rem;
        }
        .container { max-width: 1500px; margin: 0 auto; }
        .card {
            background: rgba(30, 41, 59, 0.85);
            border-radius: 14px;
            padding: 1.25rem 1.5rem;
            box-shadow: 0 4px 20px rgba(0,0,0,0.4);
            margin-bottom: 1rem;
        }
        .header { display: flex; justify-content: space-between; align-items: center; margin-bottom: 0.75rem; }
        .header-left { display: flex; align-items: center; gap: 0.75rem; }
        .logo { font-size: 32px; }
        h1 { font-size: 20px; }
        .subtitle { color: #94a3b8; font-size: 12px; margin-top: 2px; }
        .ver { color: #64748b; font-size: 11px; }

        label {
            display: block; margin-bottom: 0.3rem;
            color: #cbd5e1; font-size: 12px; font-weight: 500;
        }
        input[type="text"], input[type="number"], input[type="password"], textarea, select {
            width: 100%; padding: 8px 10px;
            border: 1px solid #475569; border-radius: 6px;
            background: #1e293b; color: #f1f5f9; font-size: 13px;
            font-family: inherit;
        }
        textarea { resize: vertical; font-family: 'Consolas', monospace; font-size: 11px; }
        input:focus, textarea:focus, select:focus { outline: none; border-color: #ef4444; }

        .grid { display: grid; gap: 0.75rem; }
        .grid-2 { grid-template-columns: 1fr 1fr; }
        .grid-4 { grid-template-columns: 1fr 1fr 1fr 1fr; }
        .grid-cookie { grid-template-columns: 1fr auto; align-items: end; }

        .btn {
            padding: 9px 16px; border: none; border-radius: 6px;
            cursor: pointer; font-size: 13px; font-weight: 500;
            transition: all 0.2s;
        }
        .btn:disabled { opacity: 0.4; cursor: not-allowed; }
        .btn-primary { background: linear-gradient(135deg, #ef4444 0%, #b91c1c 100%); color: white; }
        .btn-primary:hover:not(:disabled) { background: linear-gradient(135deg, #f87171 0%, #dc2626 100%); }
        .btn-success { background: linear-gradient(135deg, #10b981 0%, #059669 100%); color: white; }
        .btn-success:hover:not(:disabled) { background: linear-gradient(135deg, #34d399 0%, #10b981 100%); }
        .btn-warning { background: linear-gradient(135deg, #f59e0b 0%, #d97706 100%); color: white; }
        .btn-warning:hover:not(:disabled) { background: linear-gradient(135deg, #fbbf24 0%, #f59e0b 100%); }
        .btn-secondary { background: #475569; color: #f1f5f9; }
        .btn-secondary:hover:not(:disabled) { background: #64748b; }
        .btn-danger { background: linear-gradient(135deg, #dc2626 0%, #991b1b 100%); color: white; }
        .btn-danger:hover:not(:disabled) { background: linear-gradient(135deg, #ef4444 0%, #b91c1c 100%); }

        .cookie-bar { display: flex; gap: 0.5rem; align-items: center; }
        .cookie-status { font-size: 11px; padding: 4px 8px; border-radius: 4px; }
        .cookie-status.ok { background: rgba(16, 185, 129, 0.15); color: #6ee7b7; }
        .cookie-status.missing { background: rgba(239, 68, 68, 0.15); color: #fca5a5; }

        .drop-area {
            border: 2px dashed #475569; border-radius: 10px;
            padding: 1.25rem; text-align: center; cursor: pointer;
            background: rgba(0,0,0,0.2); transition: all 0.2s;
            margin-bottom: 0.75rem;
        }
        .drop-area:hover, .drop-area.dragover {
            border-color: #ef4444; background: rgba(239, 68, 68, 0.05);
        }
        .drop-area .big { font-size: 28px; margin-bottom: 0.25rem; }
        .drop-area .hint { color: #94a3b8; font-size: 12px; margin-top: 0.25rem; }
        .folder-path { font-family: 'Consolas', monospace; font-size: 12px; color: #cbd5e1; margin-top: 0.5rem; word-break: break-all; }

        .stats { display: flex; gap: 1rem; flex-wrap: wrap; margin: 0.5rem 0 0.75rem; }
        .stat { background: rgba(0,0,0,0.25); padding: 6px 12px; border-radius: 6px; font-size: 12px; }
        .stat strong { color: #ef4444; }
        .stat.ok strong { color: #10b981; }
        .stat.err strong { color: #fca5a5; }

        .action-bar { display: flex; gap: 0.5rem; flex-wrap: wrap; align-items: center; }

        .progress-container { display: none; margin: 0.75rem 0; }
        .progress-bar { height: 6px; background: #374151; border-radius: 3px; overflow: hidden; }
        .progress-fill {
            height: 100%; background: linear-gradient(90deg, #ef4444, #f97316);
            width: 0%; transition: width 0.3s;
        }
        .progress-text { font-size: 11px; color: #94a3b8; margin-top: 0.4rem; }
        .status { display: none; padding: 0.6rem 0.85rem; border-radius: 6px; margin: 0.5rem 0; font-size: 12px; }
        .status.success { background: rgba(16, 185, 129, 0.15); border: 1px solid #10b981; color: #6ee7b7; }
        .status.error { background: rgba(239, 68, 68, 0.15); border: 1px solid #ef4444; color: #fca5a5; }
        .status.info { background: rgba(59, 130, 246, 0.15); border: 1px solid #3b82f6; color: #93c5fd; }

        .results-table-wrap {
            display: none; max-height: 540px; overflow: auto;
            background: rgba(0,0,0,0.25); border-radius: 8px;
            border: 1px solid #334155; margin-top: 0.5rem;
        }
        table.results { width: 100%; border-collapse: collapse; font-size: 11px; }
        table.results th {
            position: sticky; top: 0; background: #0f172a; color: #cbd5e1;
            text-align: left; padding: 6px 8px; border-bottom: 1px solid #334155;
            font-weight: 600; font-size: 10px; text-transform: uppercase;
            white-space: nowrap;
        }
        table.results td {
            padding: 5px 8px; border-bottom: 1px solid #1e293b;
            color: #e2e8f0; vertical-align: top;
        }
        table.results tr:hover td { background: rgba(239, 68, 68, 0.08); cursor: pointer; }
        td.col-date { white-space: nowrap; color: #94a3b8; }
        td.col-betr { font-weight: 500; max-width: 280px; overflow: hidden; text-overflow: ellipsis; white-space: nowrap; }
        td.col-status { font-weight: 600; white-space: nowrap; }
        td.col-status.s-pending { color: #94a3b8; }
        td.col-status.s-running { color: #fbbf24; }
        td.col-status.s-ok { color: #10b981; }
        td.col-status.s-err { color: #ef4444; }
        td.col-status.s-cancel { color: #94a3b8; }
        td.col-status.s-cache { color: #60a5fa; }
        td.col-klass { font-weight: 500; }
        td.col-vt-makler { color: #6ee7b7; }
        td.col-vt-bounce { color: #94a3b8; }
        td.col-vt-other { color: #fbbf24; }

        .modal-backdrop {
            display: none; position: fixed; inset: 0;
            background: rgba(0,0,0,0.7); z-index: 100;
            align-items: center; justify-content: center; padding: 2rem;
        }
        .modal-backdrop.active { display: flex; }
        .modal {
            background: #1e293b; border-radius: 10px; padding: 1.25rem;
            max-width: 900px; width: 100%; max-height: 90vh; overflow: auto;
            border: 1px solid #475569;
        }
        .modal h3 { margin-bottom: 0.5rem; }
        .modal .kv { display: grid; grid-template-columns: 180px 1fr; gap: 4px 12px; font-size: 12px; margin-top: 0.75rem; }
        .modal .kv .k { color: #94a3b8; font-weight: 500; }
        .modal .kv .v { color: #e2e8f0; word-break: break-word; }
        .modal pre {
            background: #0f172a; padding: 0.75rem; border-radius: 6px;
            color: #e2e8f0; font-size: 11px; white-space: pre-wrap;
            word-wrap: break-word; max-height: 40vh; overflow: auto;
            font-family: 'Consolas', monospace; margin-top: 0.5rem;
        }

        .info-box {
            background: rgba(59, 130, 246, 0.08); border: 1px solid #1e40af;
            border-radius: 6px; padding: 0.5rem 0.75rem;
            font-size: 11px; color: #cbd5e1; margin-bottom: 0.5rem;
        }
        .compact { display: flex; gap: 0.5rem; align-items: center; flex-wrap: wrap; }
        .compact > * { margin: 0; }
        .checkbox-row { display: flex; align-items: center; gap: 0.4rem; font-size: 12px; color: #cbd5e1; cursor: pointer; }
        .checkbox-row input { width: auto; margin: 0; }

        details summary { cursor: pointer; padding: 6px 0; font-weight: 500; color: #cbd5e1; font-size: 13px; }
        details[open] summary { color: #f1f5f9; }
    </style>
</head>
<body>
<style id="ws-standalone">body > .container{display:none !important;} #wsClose{display:none !important;} #workshopOverlay{display:block !important;}</style>
<div class="container">

    <!-- UNC/MOTW-Banner sind ab v1.10 entfernt: der VBScript-Subprozess
         loest die Zone-Restriktion ohnehin, das HTA muss nicht mehr von
         C:\ aus laufen. Relocate/Unblock-Funktionen bleiben im Code fuer
         manuellen Aufruf via VBA-Editor-Konsole, falls jemand sie braucht. -->

    <div class="card">
        <div class="header">
            <div class="header-left">
                <div class="logo">&#129302;</div>
                <div>
                    <h1><span style="cursor:pointer; user-select:none;" onclick="openWorkshopMode()" title="Klick fuer Workshop-Modus (Demo mit 5 Mails)">ERGO</span> Vorgang-Analyse</h1>
                    <div class="subtitle">.msg-Mails &rarr; ErgoGPT Klassifikation &rarr; Excel-Export</div>
                </div>
            </div>
            <div class="ver">v2.26 - Neues Feld "Forward an Zielpostfach" im Workshop-UI. Wenn gesetzt, wird jede angereicherte Mail nach dem SaveAs zusaetzlich per Outlook-Forward+Send an diese Adresse geschickt. Hinweis: der Absender ist dann das eigene Postfach (kein echter Redirect ueber Outlook-OM moeglich); fuer Mensch-zu-Mensch-Workflows reicht das. v2.25 - Workshop-Frontend aufgeraeumt: Buttons Batch / Chunked-Batch / Kombi-PDF / Testmodus + die Erklaerungs-Box darunter ausgeblendet. Nur noch der grosse "Analyse starten"-Button sichtbar. Die Funktionen selbst bleiben im Code (per Hotkey o.ae. erreichbar), nur das UI ist auf den Default-Pfad reduziert. v2.24 - (a) Cluster-Key nutzt jetzt Union(Agentur,Vermittler) statt "Agentur/Vermittler" - wenn dieselbe Maklernummer einmal in Agentur und einmal in Vermittler steht (LLM-Klassifikations-Unschaerfe), entsteht jetzt derselbe Cluster-Schluessel. (b) Mails ohne KI-Notiz (Analyse-Fehler / Save-Fehler) werden als Original-.msg in Unterordner _Fehler_ohne_KI-Notiz kopiert - per Drag-Drop wieder in Outlook importierbar. (c) Word-Performance: ScreenUpdating, Pagination, Grammatik/Rechtschreib-Background-Checks und AutoFormat-Quotes abgeschaltet beim Word-Init - spart ~50-200ms pro PDF, sichtbar bei vielen Mails. v2.23 - FERTIG-Log-Zeile enthaelt jetzt den Fortschritt "FERTIG (X/Y)" statt nur "FERTIG", so dass auf einen Blick zu sehen ist, wie viele der Parallel-Mails schon durch sind. v2.22 - Token-Caps wieder gelockert: harte Zeichengrenzen je Feld zurueck auf vorherige weiche Vorgaben ("1-2 Saetze" statt "max 140 Zeichen"). Globale "max ~1500 Tokens"-Anweisung raus. Begruendung: mit dem robusten Truncation-Recovery-Parser (v2.18) und dem entfernten naechster_schritt (v2.21) ist Puffer da; die harten Caps waren ueberkautelarisch und schraenkten die LLM-Antwort unnoetig ein. Die Anweisung "knapp + praezise, keine PDF-Zitate ins JSON" bleibt. v2.21 - Schema-Umbau: (a) neues Feld "mv_datum" = Datum der Maklervollmacht-Unterschrift durch den Kunden (TT.MM.JJJJ), abgegrenzt vom "auftrag_datum" (Datum des Pool-Anschreibens). Eigene Spalte "MV Datum" im Excel. (b) Spalte "Datum" umbenannt zu "Mail Datum" - klarer abgegrenzt von MV_Datum und Auftrag_Datum. (c) "naechster_schritt" komplett aus LLM-Schema entfernt (war nicht benoetigt, sparte Token). (d) "Zusammenfassung" wieder in der Excel-Spalte UND in der KI-Notiz-PDF. v2.20 - Workshop-Excel: Spalten "Zusammenfassung" und "Naechster_Schritt" entfernt (nicht benoetigt, machten die Tabelle nur breit). Die Felder bleiben im LLM-Schema und in der KI-Notiz-PDF erhalten. v2.19 - Token-Limit-Truncation an der Wurzel angepackt: alle Freitext-Felder im JSON-Schema haben jetzt explizite Zeichengrenzen (klassifikation_grund 140, zusammenfassung 140, naechster_schritt 100, hinweis 80, mv_einschraenkungen 120, unterlagen_liste 150). Plus globale Anweisung im Prompt: max ~1500 Tokens Gesamtantwort, keine PDF-Zitate ins JSON. Vorher schrieb das Modell teils 500+ Zeichen pro Begruendung und hat sich damit selbst ins Token-Limit gefahren. v2.18 - JSON-Parser kann jetzt auch HARTE Truncation (mitten im Key/Value am Token-Limit abgeschnitten) reparieren: scant rueckwaerts bis zur letzten kompletten Property, kappt dort sauber und schliesst die Klammern. Vorher war nur fehlende } am Ende reparierbar - wenn der LLM mitten in einem String aufhoerte, war die ganze Antwort verloren. Zusaetzliche Perf-Optimierung: wsLog nutzt jetzt createElement statt innerHTML += (war bei vielen Mails quadratisch langsam) und cached den FSO statt ihn pro Log-Zeile neu anzulegen. Cap auf letzte 1500 Log-Zeilen. Macht Parallel-Prep + Analyse deutlich fluessiger. v2.17 - KI-Notiz-PDF wird nur noch im TEMP angelegt, in die .msg eingebettet und danach geloescht. Vorher lag pro Vorgang ein redundantes KI-Notiz_BÜ-KI-NNN.pdf neben der .msg - das war ueberfluessig, weil die Notiz in der .msg selbst steckt. v2.16 - Zustellfehler-Meldungen (Unzustellbarkeitsberichte / NDR / Bounce-Mails) werden VOR dem LLM-Aufruf erkannt und lokal klassifiziert (Absender postmaster/mailer-daemon/ITERGO-Security, Betreff "Nachricht nicht zustellbar", .eml-Anhang + Body-Hinweise). Kein API-Call mehr -> spart Token UND vermeidet JSON-Parse-Fehler durch die eingebetteten MIME-Header der originalen Mail im .eml-Anhang. Begriff "Bounce-NDR" umbenannt in deutsches "Zustellfehler" in allen Prompts und Spalten. v2.15 - JSON-Parser robuster: Smart-Quotes (“ ” ’) werden auf ASCII normalisiert, trailing Kommas vor } und ] werden entfernt, abgeschnittene Antworten (Token-Limit) bekommen fehlende } automatisch nachgesetzt. Wenn der Parse trotzdem scheitert, steht jetzt im Log + in der Excel-Fehlerspalte die LLM-Antwort (250 Zeichen) - so sieht man direkt, was der LLM zurueckgegeben hat. v2.14 - .msg-Speichern tick-basiert (eine Mail pro setTimeout-Tick) statt synchroner Schleife: HTA bricht nicht mehr ab wenn Outlook eine Sicherheitsabfrage zeigt, Progress + Log laufen live mit, jede Mail hat ihr eigenes try/catch. Echte Parallelisierung von Outlook/Word geht nicht (Single-Thread-Apartment, wuerde Kontention erzeugen). Excel-Schriftart jetzt Open Sans (mit Fallback Calibri). Lfd-Nr-Spalte verbreitert (13 Zeichen), damit BÜ-KI-001 einzeilig passt. v2.13 - Cluster-Match jetzt ueber Agentur-/Vermittler-Nummer (verlaesslicher als Name) - Ricci Sabrina bei gleicher Agentur 8903235 wird auch dann ein Cluster, wenn der Maklerfirma-Name unterschiedlich geschrieben ist. Zusaetzlich Angleicher: gleicht "Finanzguru" / "Finanzguru Versicherungsservice GmbH" automatisch auf die kuerzeste Variante an (Stem-Match nach Lowercase/Punctuation/Rechtsform-Strip). v2.12 - Workshop-Excel: (1) Versicherungsnummern werden als TEXT geschrieben (kein Komma-Punkt-Swap, kein E+17 mehr bei langen Nummern). (2) Mehrere Vertragsnummern pro Mail: bei \'BUe Kundenverbindung\' werden ALLE explizit benannten VNRen kommagetrennt erfasst. (3) Cluster-Spalte mit IDs 001a/001b/...: gleicher Makler + Kunde -> gemeinsame Pastell-Zeilenfarbe, Vorgaenge sortiert nebeneinander. (4) Freeze-Pane jetzt auf B2 - Header-Zeile UND Spalte A (Lfd_Nr) bleiben beim Scrollen sichtbar. (5) LLM-Platzhalter \"leer\"/\"k.A.\"/\"-\" werden zu wirklich leeren Zellen. v2.11 - Parallel-Modus friert nicht mehr ein: der Prep-Loop (Outlook-OpenSharedItem + Anhang-Save + Conv-Create-Fire fuer alle Mails) lief synchron in einer Schleife -&gt; HTA blockierte je nach Anzahl/Anhaengen 20-40 s ohne Log-Update. Jetzt EINE Mail pro setTimeout-Tick: Log/Progress/Buttons bleiben live, Fenster klickbar. v2.10 - Workshop kann jetzt direkt einen OUTLOOK-ORDNER anklicken, alle Mails landen als .msg im Workshop-Ergebnisordner (eine Mail pro setTimeout-Tick, kein Freeze). v2.09 - Kombi wieder SCHNELL: laeuft wie vor v2.04 ueber den warmen In-HTA-Async-Pfad statt eines kalten wscript-Subprozesses (der pro Lauf Proxy neu aufloeste/authentifizierte = der Bremsfaktor). Antwort wird weiterhin nur EINMAL gelesen/geparst (kein Crash). v2.08 - Workshop-Log: echte deutsche Umlaute (ü/ä/ö/ß statt ue/ae/oe) + Leerzeichen zwischen Uhrzeit und Log-Text (MSHTA kennt kein flex-gap, jetzt margin). v2.07 - FIX Stream HTTP 403: der Streaming-VBS-Worker sendet jetzt denselben Browser-User-Agent + Accept-Language wie der funktionierende Nicht-Stream-Pfad (das ERGO-Gateway blockt Requests ohne Browser-UA mit 403). v2.06 - FIX Stream-Start "Datenquelle in anderer Domaene": kein ADODB.Stream mehr im HTA-Prozess (vom Netzlaufwerk = Internet-Zone gesperrt). Payload + Antwort laufen ueber FSO-Unicode; der VBS-Subprozess macht die UTF-16/UTF-8-Umwandlung. v2.05 - Mail-Level-Skip: enthaelt eine Mail AUCH NUR EINE Foto-/Scan-PDF, wird die GESAMTE Mail nicht analysiert (auch Text-PDFs darin nicht) - laeuft nur ueber den Body, als manuell-pruefen markiert. Plus Stream-Start-Instrumentierung (granulares Log bis zum genauen Crash-Schritt) + try/catch um wsStreamAnswerStart. v2.04 - CRASH-FIX Kombi-Streaming: Log in Workshop-Log_*.txt, WinHttp-Subprozess, Parse genau einmal</div>
        </div>

        <!-- Cookie -->
        <details open>
            <summary>1. Cookie fuer gpt.ergo.com</summary>
            <div style="margin-top: 0.5rem;">
                <div class="cookie-bar">
                    <input type="password" id="cookieInput" placeholder="Cookie hier einfuegen (langer String mit XSRF-TOKEN, ai_session, ...)">
                    <button class="btn btn-secondary" onclick="toggleCookieVis()" title="Sichtbarkeit umschalten">&#128065;</button>
                    <button class="btn btn-success" onclick="saveCookie()">Speichern</button>
                    <button class="btn btn-secondary" onclick="loadCookieFromFile()" title="Cookie.txt erneut von der Platte laden">&#128260; Neu laden</button>
                    <span id="cookieStatus" class="cookie-status missing">Cookie fehlt</span>
                </div>
                <div class="info-box" style="margin-top: 0.4rem;">
                    Cookie wird als <code>Cookie.txt</code> <strong>neben der HTA-Datei</strong> gespeichert: <code id="cookiePath">...</code>. Vorteil: gleicher Ordner = gleiche Security-Zone, keine Cross-Domain-Pruefung, funktioniert auch ohne "Zulassen"-Haekchen.
                </div>
            </div>
        </details>
    </div>

    <!-- Folder + Settings -->
    <div class="card">
        <details open>
            <summary>2. Ordner mit .msg-Dateien</summary>
            <div style="margin-top: 0.5rem;">
                <div class="drop-area" id="dropArea" onclick="pickFolder()">
                    <div class="big">&#128194;</div>
                    <div><strong>Ordner waehlen</strong> (oder Ordner hier hereinziehen)</div>
                    <div class="hint">Tool scannt rekursiv nach .msg-Dateien</div>
                </div>
                <div id="folderPath" class="folder-path"></div>
                <div id="folderStats" class="stats"></div>
                <div style="margin-top: 0.5rem;">
                    <button class="btn btn-secondary" id="btnRenameWithDate" onclick="renameMsgFilesWithDate()" disabled
                            style="padding: 6px 12px; font-size: 12px;"
                            title="Benennt alle .msg-Dateien im Ordner um zu YYYY-MM-DD_HHMM_<Originalname>.msg. Datum wird aus dem Mail-Header gelesen (kein Outlook noetig).">
                        &#128221; Datei-Datum als Praefix hinzufuegen (fuer Zeitraum-Filter)
                    </button>
                </div>
            </div>
        </details>

        <details>
            <summary>2b. Zeitraum-Filter (optional)</summary>
            <div style="margin-top: 0.5rem;">
                <div class="row">
                    <div>
                        <label>Von</label>
                        <input type="date" id="dateFrom" onchange="onDateChange()">
                    </div>
                    <div>
                        <label>Bis</label>
                        <input type="date" id="dateTo" onchange="onDateChange()">
                    </div>
                </div>
                <div class="compact" style="margin-top: 0.4rem;">
                    <button class="btn btn-secondary" style="padding:4px 10px;font-size:11px" onclick="setDateRangeQuick(7)">Letzte 7 Tage</button>
                    <button class="btn btn-secondary" style="padding:4px 10px;font-size:11px" onclick="setDateRangeQuick(14)">Letzte 14 Tage</button>
                    <button class="btn btn-secondary" style="padding:4px 10px;font-size:11px" onclick="setDateRangeQuick(30)">Letzte 30 Tage</button>
                    <button class="btn btn-secondary" style="padding:4px 10px;font-size:11px" onclick="setDateRangeQuick(90)">Letzte 90 Tage</button>
                    <button class="btn btn-secondary" style="padding:4px 10px;font-size:11px" onclick="resetDateRange()">Reset (alle)</button>
                </div>
                <div id="dateRangeStatus" style="font-size:11px; color: #94a3b8; margin-top:6px;">
                    Datum-Format: <code>TT.MM.JJJJ</code> (z.B. <code>15.05.2026</code>) oder <code>JJJJ-MM-TT</code> (z.B. <code>2026-05-15</code>). Filtert nach Datum im Dateinamen (Muster <code>YYYY-MM-DD_HHMM_...</code>). Mails ohne erkennbares Datum werden eingeschlossen.
                </div>
                <div style="margin-top: 0.6rem; padding-top: 0.5rem; border-top: 1px solid #334155;">
                    <button class="btn" id="btnCollectByDate" onclick="copyZeitraumToNewFolder()" disabled
                            style="background: linear-gradient(135deg, #0891b2, #155e75); color: white; font-size: 12px; padding: 8px 14px;"
                            title="Kopiert alle Mails im gewaehlten Zeitraum aus dem Ordner (rekursiv durch Unterordner) in einen neuen Ziel-Ordner. Der neue Ordner wird automatisch zum Analyse-Ordner.">
                        &#128193; Mails aus Zeitraum in neuen Ordner sammeln
                    </button>
                    <button class="btn" id="btnRandomSample" onclick="copyRandomSampleToNewFolder()" disabled
                            style="background: linear-gradient(135deg, #7c3aed, #5b21b6); color: white; font-size: 12px; padding: 8px 14px; margin-left: 6px;"
                            title="Zieht eine zufaellige Stichprobe (z.B. 1000 Mails) aus dem aktuellen Ordner / Filter und kopiert sie in einen neuen Ordner fuer's Sampling.">
                        &#127922; Zufallsstichprobe in neuen Ordner kopieren
                    </button>
                    <div style="font-size:11px; color: #94a3b8; margin-top:4px;">
                        <strong>Sammeln:</strong> alle Mails im Zeitraum (Filter wird angewendet).<br>
                        <strong>Zufalls-Stichprobe:</strong> N zufaellig gewaehlte Mails aus dem aktuellen Filter (z.B. 1000 von 5000 fuer Pool-Analyse).<br>
                        Beide kopieren FLACH (keine Unterordner), Originale bleiben erhalten.
                    </div>
                </div>
            </div>
        </details>

        <details>
            <summary>3. Einstellungen</summary>
            <div style="margin-top: 0.5rem;" class="grid grid-2">
                <div>
                    <label>Modell</label>
                    <input type="text" id="modelInput" value="gpt-51-chat">
                </div>
                <div>
                    <label>Parallel-Slots (1-50)</label>
                    <input type="number" id="parallelInput" value="3" min="1" max="50">
                </div>
            </div>
            <div style="margin-top: 0.5rem;" class="compact">
                <label class="checkbox-row">
                    <input type="checkbox" id="reanalyzeAll"> Alle Vorgaenge neu analysieren (Cache ignorieren)
                </label>
                <button class="btn btn-secondary" style="padding: 4px 10px; font-size: 11px;" onclick="clearCache()">Cache fuer diesen Ordner loeschen</button>
            </div>
        </details>
    </div>

    <!-- Action -->
    <div class="card">
        <div class="action-bar">
            <button class="btn btn-primary" id="btnStart" onclick="startAnalysis()" disabled>
                &#9658; Analyse starten (mit KI)
            </button>
            <button class="btn" id="btnQuickPool" onclick="runQuickPoolOverview()" disabled
                    style="background: linear-gradient(135deg, #7c3aed, #5b21b6); color: white;"
                    title="Schnelle Pool-Uebersicht ohne KI - reine Heuristik aus Domain/Subject/Signatur (~1s/Mail, mit Outlook)">
                &#9889; Pool-Uebersicht (Outlook)
            </button>
            <button class="btn" id="btnQuickPoolXxl" onclick="runQuickPoolOverviewXxl()" disabled
                    style="background: linear-gradient(135deg, #0d9488, #064e3b); color: white;"
                    title="XXL: parsed .msg-Dateien direkt ohne Outlook, fuer grosse Sets (1000+ Mails). ~20-50x schneller.">
                &#128640; Pool-XXL (ohne Outlook)
            </button>
            <button class="btn" id="btnBulkTriage" onclick="runBulkTriage()" disabled
                    style="background: linear-gradient(135deg, #d97706, #92400e); color: white;"
                    title="Stufe 1: Bulk-KI-Triage. Sendet 30-40 Mails (Subject+Body) pro KI-Call. Kein PDF-Upload. Setzt Pool-XXL voraus.">
                &#129302; Bulk-Triage (Stufe 1, KI ohne PDF)
            </button>
            <button class="btn btn-warning" id="btnCancel" onclick="cancelAnalysis()" disabled
                    title="Pausiert die Analyse, schreibt den Cache und oeffnet Excel mit den bisherigen Ergebnissen. Beim naechsten Klick auf Start wird automatisch nahtlos weitergemacht - schon analysierte Mails werden uebersprungen.">
                &#9208; Pause (Excel + Resume)
            </button>
            <div style="flex:1;"></div>
            <button class="btn" id="btnRefreshLive" onclick="refreshLiveExcelDecor()" disabled
                    style="background: linear-gradient(135deg, #0d9488, #115e59); color: white;"
                    title="Wendet Farb-Highlights auf ALLE Zeilen im Live-Excel an und baut Auswertung-Sheet neu.">
                &#127912; Farben + Auswertung
            </button>
            <button class="btn" id="btnReReminders" onclick="reAnalyzeReminders()" disabled
                    style="background: linear-gradient(135deg, #b45309, #92400e); color: white;"
                    title="Analysiert NUR die als Reminder erkannten Vorgaenge nochmal - um die neue Spalte 'Reminder_Quelle' (Anhang-PDF / Anhang-Name / Betreff / Body) zu fuellen. Spart Tokens vs Komplett-Neulauf.">
                &#128260; Reminder-Quellen
            </button>
            <button class="btn" id="btnLoadExternalXlsx" onclick="openExternalXlsxPicker()"
                    style="background: linear-gradient(135deg, #6366f1, #4338ca); color: white;"
                    title="Laedt eine externe .xlsx (z.B. dein manuell gefiltertes Reminder-Subset) als Excel-Cache. .msg-Dateien werden im aktuell gewaehlten Ordner gematcht. Alle Eintraege werden zur Neuanalyse markiert.">
                &#128194; Externes Excel laden
            </button>
            <input type="file" id="externalXlsxFile" accept=".xlsx,.xlsm,.xls" style="display:none" onchange="onExternalXlsxPicked(this)">
            <button class="btn" id="btnLoadXlsxCache" onclick="loadXlsxCache()"
                    style="background: linear-gradient(135deg, #7c3aed, #5b21b6); color: white;"
                    title="Oeffnet die bestehende analyse.xlsx im _KI-Analyse-Ordner. Wurde frueher automatisch beim Folder-Select gemacht - jetzt nur auf Klick (dauert bei 5000 Vorgaengen ~30s).">
                &#128196; Cache laden
            </button>
            <button class="btn btn-success" id="btnExcel" onclick="exportToExcel()" disabled>
                &#128202; Excel-Export
            </button>
            <button class="btn btn-secondary" id="btnJson" onclick="exportToJson()" disabled>
                &#128190; JSON-Export
            </button>
        </div>

        <div class="progress-container" id="progressContainer">
            <div class="progress-bar"><div class="progress-fill" id="progressFill"></div></div>
            <div class="progress-text" id="progressText">Verarbeite...</div>
            <div id="slotStatus" style="display:flex; flex-direction: column; gap: 2px; margin-top: 6px; font-size: 11px; color: #cbd5e1; font-family: 'Consolas', monospace;"></div>
            <div style="margin-top: 8px; font-size: 11px; color: #94a3b8;">Live-Log (letzte 50 Mails):</div>
            <div id="aiLog" style="margin-top: 4px; max-height: 220px; overflow-y: auto; font-size: 11px; color: #e2e8f0; font-family: 'Consolas', monospace; background: rgba(15, 23, 42, 0.6); border: 1px solid #334155; border-radius: 4px; padding: 6px 8px; white-space: pre-wrap;"></div>
        </div>

        <div class="status success" id="successStatus"><span id="successMsg"></span></div>
        <div class="status error" id="errorStatus"><span id="errorMsg"></span></div>
        <div class="status info" id="infoStatus"><span id="infoMsg"></span></div>
    </div>

    <!-- Results -->
    <div class="card" style="padding: 0.75rem 1rem;">
        <div class="compact" style="margin-bottom: 0.5rem;">
            <strong style="font-size: 13px;">Ergebnisse</strong>
            <span id="resultsCount" style="color: #94a3b8; font-size: 12px;">0 Vorgaenge</span>
        </div>
        <div class="results-table-wrap" id="resultsTableWrap">
            <table class="results">
                <thead>
                    <tr>
                        <th>#</th>
                        <th>Status</th>
                        <th>Datei</th>
                        <th>Datum</th>
                        <th>Absender</th>
                        <th>Betreff</th>
                        <th>Triage</th>
                        <th>Klassifikation</th>
                        <th>Pool</th>
                        <th>Kunde</th>
                        <th>MV vollst.</th>
                        <th>Hinweis</th>
                    </tr>
                </thead>
                <tbody id="resultsBody"></tbody>
            </table>
        </div>
    </div>

    <!-- Detail Modal -->
    <div class="modal-backdrop" id="detailModal" onclick="closeDetail(event)">
        <div class="modal" onclick="event.stopPropagation()">
            <h3 id="detailTitle"></h3>
            <div id="detailKv" class="kv"></div>
            <pre id="detailRaw"></pre>
            <div style="margin-top: 0.75rem; text-align: right;">
                <button class="btn btn-secondary" onclick="closeDetail()">Schliessen</button>
            </div>
        </div>
    </div>

</div>

<!-- v1.5: VBScript-Helper komplett entfernt. Pure JS Multipart, da VBScript-
     Funktionen in HTAs aus UNC/Internet-Zone fuer JS nicht zugaenglich sind. -->


<script language="JavaScript">
'use strict';

// ============================================================================
// GLOBAL STATE
// ============================================================================
var outlookApp = null;
var outlookNS = null;
var COOKIE_PATH = "";  // computed at startup -> Cookie.txt next to this HTA
var ERGO_BASE = "https://gpt.ergo.com/api";
// Limits absichtlich SEHR hoch - die KI soll die volle Mail + alle Anhaenge sehen.
// MAX_PDFS war frueher 3 (Token-Sparen bei 5000er-Laeufen). Bei kleineren
// Stichproben gibt es keinen Grund Anhaenge zu droppen.
// MAX_PDF_MB schuetzt nur vor wirklich riesigen Files (z.B. 100MB-Scans).
// BODY_CAP wird in der Praxis fast nie erreicht - typische Mails sind <5000 Zeichen.
var MAX_PDFS = 50;        // praktisch unbegrenzt
var MAX_PDF_MB = 25;      // einzelne PDFs > 25 MB sind unrealistisch + ErgoGPT-Risiko
var BODY_CAP = 50000;     // ca. 12500 Tokens - normaler GPT-Kontext reicht easy
var DRAIN_TIMEOUT_MS = 240000;

var state = {
    cookie: "",
    folderPath: "",
    msgFiles: [],         // array of full paths
    results: [],          // array of result objects (cache-compatible)
    pendingMap: {},       // msgPath -> true if already in results
    running: false,
    cancelled: false,
    slots: {},            // active slot map
    slotCounter: 0,
    nextIdx: 0,
    parallelN: 3,
    txtFolderEnabled: false,
    dateFrom: null,       // Date object oder null
    dateTo: null,         // Date object oder null
    // Excel-Live-Cache (v1.54): waehrend Analyse wird jeder Vorgang sofort als
    // Zeile in eine .xlsx-Datei im _KI-Analyse-Ordner geschrieben. Excel ist
    // sichtbar, User sieht live wie's waechst. Wb.Save alle 10 Mails.
    excelApp: null,
    excelWb: null,
    excelSheet: null,
    excelXlsxPath: "",
    excelLiveRowCount: 0    // Anzahl Zeilen ab Zeile 2 die schon geschrieben sind
};

// ============================================================================
// INIT
// ============================================================================
window.onload = function() {
    try { window.resizeTo(1480, 920); } catch(e) {}

    // Outlook
    try {
        outlookApp = new ActiveXObject("Outlook.Application");
        outlookNS = outlookApp.GetNamespace("MAPI");
    } catch(e) {
        showError("Outlook konnte nicht verbunden werden. Bitte Outlook oeffnen und HTA neu starten. (" + e.message + ")");
    }

    // Cookie-Pfad: Cookie.txt neben der HTA-Datei (gleiche Security-Zone)
    COOKIE_PATH = getHtaDir() + "\\Cookie.txt";
    document.getElementById("cookiePath").innerText = COOKIE_PATH || "(HTA-Pfad nicht ermittelbar)";

    // Ab v1.10: keine UNC/MOTW-Banner mehr - der VBScript-Subprozess
    // umgeht die Zone-Restriktion ohnehin. HTA kann von UNC laufen.

    // Load cookie
    loadCookieFromFile();

    // Load saved settings from localStorage
    try {
        var saved = window.localStorage ? window.localStorage.getItem("ergo_va_settings") : null;
        if (saved) {
            var s = eval("(" + saved + ")");
            if (s.model) document.getElementById("modelInput").value = s.model;
            if (s.parallel) document.getElementById("parallelInput").value = s.parallel;
            if (s.lastFolder) {
                // Don't auto-load - require explicit user action - but pre-fill
                state.folderPath = s.lastFolder;
                document.getElementById("folderPath").innerText = "Zuletzt verwendet: " + s.lastFolder + " (Ordner waehlen zum Laden)";
            }
        }
    } catch(e) {}

    // Drag-drop
    setupDragDrop();
    try { setTimeout(function(){ openWorkshopMode(); }, 200); } catch(e) {}
};

function setupDragDrop() {
    var area = document.getElementById("dropArea");
    area.ondragenter = function(e) { e.preventDefault(); area.className = "drop-area dragover"; return false; };
    area.ondragover = function(e) { e.preventDefault(); area.className = "drop-area dragover"; return false; };
    area.ondragleave = function(e) { area.className = "drop-area"; };
    area.ondrop = function(e) {
        e.preventDefault();
        area.className = "drop-area";
        try {
            var dt = e.dataTransfer;
            if (dt && dt.files && dt.files.length > 0) {
                // HTA-Hack: in IE11 mode the File object often has .path
                var first = dt.files[0];
                var p = first.path;
                if (p) {
                    var fso = new ActiveXObject("Scripting.FileSystemObject");
                    if (fso.FolderExists(p)) {
                        useFolder(p);
                        return false;
                    } else if (fso.FileExists(p)) {
                        // dropped a file - use its parent folder
                        var parent = fso.GetParentFolderName(p);
                        useFolder(parent);
                        return false;
                    }
                }
                showError("Pfad konnte nicht aus dem Drop-Event extrahiert werden. Bitte 'Ordner waehlen' nutzen.");
            }
        } catch(ex) {
            showError("Drop-Verarbeitung fehlgeschlagen: " + ex.message + " - bitte 'Ordner waehlen' nutzen.");
        }
        return false;
    };
}

// ============================================================================
// COOKIE
// ============================================================================
function loadCookieFromFile() {
    if (!COOKIE_PATH) {
        updateCookieStatus(false, "HTA-Pfad nicht ermittelbar");
        return;
    }
    var fso;
    try { fso = new ActiveXObject("Scripting.FileSystemObject"); }
    catch(e) { updateCookieStatus(false, "FSO nicht verfuegbar: " + e.message); return; }

    if (!fso.FileExists(COOKIE_PATH)) {
        updateCookieStatus(false, "Cookie.txt nicht gefunden");
        return;
    }

    // FSO.OpenTextFile statt ADODB.Stream - ADODB.Stream ist in IE-Internet-Zone
    // (UNC-Pfade!) als 'Datenquelle' gesperrt, FSO nicht.
    // Format: -2=System Default, -1=Unicode (UTF-16 LE), 0=ASCII
    var attempts = [
        { fmt: 0,  name: "ASCII" },
        { fmt: -1, name: "Unicode (UTF-16)" },
        { fmt: -2, name: "System-Default" }
    ];
    var best = "";
    var bestName = "";
    var lastErr = "";
    for (var i = 0; i < attempts.length; i++) {
        try {
            var ts = fso.OpenTextFile(COOKIE_PATH, 1, false, attempts[i].fmt);
            var raw = ts.ReadAll();
            ts.Close();
            raw = trim(String(raw));
            if (raw.charCodeAt(0) === 0xFEFF) raw = raw.substr(1);
            if (raw.length > best.length) { best = raw; bestName = attempts[i].name; }
            if (raw.length >= 50 && raw.indexOf("=") >= 0) {
                state.cookie = raw;
                document.getElementById("cookieInput").value = raw;
                updateCookieStatus(true, "Geladen via FSO/" + attempts[i].name + " (" + raw.length + " Zeichen)");
                return;
            }
        } catch(e) {
            lastErr = attempts[i].name + ": " + e.message;
        }
    }
    if (best.length > 0) {
        updateCookieStatus(false, "Datei nur " + best.length + " Zeichen / kein '=' (probiert: " + bestName + ")");
    } else {
        updateCookieStatus(false, "Datei unlesbar - " + (lastErr || "leere oder ungueltige Datei"));
    }
}

function saveCookie() {
    var raw = trim(document.getElementById("cookieInput").value);
    if (raw.length < 50) {
        showError("Cookie sieht zu kurz aus (min. 50 Zeichen). Bitte den vollen Cookie-String aus dem Browser einfuegen.");
        return;
    }
    if (!COOKIE_PATH) {
        showError("HTA-Pfad konnte nicht ermittelt werden - Cookie-Datei kann nicht gespeichert werden.");
        return;
    }
    try {
        // FSO.CreateTextFile statt ADODB.Stream - in UNC/Internet-Zone laeuft
        // ADODB.Stream nicht (gilt als 'Datenquelle'), FSO aber schon.
        // Cookie-String ist ASCII-safe (Base64, Hex etc.), Unicode nicht noetig.
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        var ts = fso.CreateTextFile(COOKIE_PATH, true, false); // overwrite, ASCII
        ts.Write(raw);
        ts.Close();
        state.cookie = raw;
        updateCookieStatus(true, "Gespeichert via FSO (" + raw.length + " Zeichen)");
        showSuccess("Cookie gespeichert: " + COOKIE_PATH);
    } catch(e) {
        showError("Cookie konnte nicht gespeichert werden: " + e.message + " (Pfad: " + COOKIE_PATH + ")");
    }
}

function toggleCookieVis() {
    var i = document.getElementById("cookieInput");
    i.type = (i.type === "password") ? "text" : "password";
}

function updateCookieStatus(ok, detail) {
    var s = document.getElementById("cookieStatus");
    if (ok) {
        s.className = "cookie-status ok";
        s.innerText = "Cookie OK: " + (detail || ("Laenge " + state.cookie.length));
        s.title = "Cookie-Datei: " + COOKIE_PATH;
    } else {
        s.className = "cookie-status missing";
        s.innerText = "Cookie fehlt" + (detail ? " - " + detail : "");
        s.title = "Pfad geprueft: " + COOKIE_PATH;
    }
    refreshStartButton();
}

function extractCsrf(cookie) {
    if (!cookie) return "";
    var m = cookie.match(/(?:XSRF-TOKEN|CSRF-TOKEN|csrfToken|_csrf)=([^;]+)/i);
    if (!m) return "";
    try { return decodeURIComponent(m[1].replace(/\+/g, " ")); } catch(e) { return m[1]; }
}

// ============================================================================
// FOLDER
// ============================================================================
function pickFolder() {
    try {
        var shell = new ActiveXObject("Shell.Application");
        var f = shell.BrowseForFolder(0, "Ordner mit .msg-Dateien waehlen", 0);
        if (f && f.Self && f.Self.Path) {
            useFolder(f.Self.Path);
        }
    } catch(e) {
        var p = prompt("Ordner-Pfad eingeben:", state.folderPath || "C:\\");
        if (p) useFolder(p);
    }
}

function useFolder(path) {
    state.folderPath = path;
    document.getElementById("folderPath").innerText = path;
    saveSettings();
    scanFolder();
    refreshStartButton();
}

function scanFolder() {
    state.msgFiles = [];
    state.results = [];
    state.pendingMap = {};
    // Excel-Cache-State zuruecksetzen (wird ggf. spaeter per Klick geoeffnet)
    state.excelApp = null; state.excelWb = null; state.excelSheet = null;
    state.excelLiveRowCount = 0;
    hideStatus();
    try {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        if (!fso.FolderExists(state.folderPath)) {
            showError("Ordner nicht gefunden: " + state.folderPath);
            renderTable();
            return;
        }
        collectMsgFiles(fso, fso.GetFolder(state.folderPath));

        // KEIN Auto-Open der xlsx mehr (das dauert bei 5000 Zeilen 20-60s!).
        // Stattdessen: Info anzeigen, User entscheidet ob/wie Cache geladen werden soll.
        var xlsxPath = getXlsxCachePath();
        if (xlsxPath && fso.FileExists(xlsxPath)) {
            var sz = 0;
            try { sz = fso.GetFile(xlsxPath).Size; } catch(eS) {}
            var sizeStr = Math.round(sz / 1024) + " KB";
            showInfo("<strong>" + state.msgFiles.length + " .msg-Dateien</strong> gefunden. " +
                     "Bestehende Analyse: <code>analyse.xlsx</code> (" + sizeStr + "). Du hast drei Optionen:<br>" +
                     "&nbsp;&nbsp;1. <strong>'Cache laden'</strong> &rarr; oeffnet die volle xlsx (kann ~30s dauern)<br>" +
                     "&nbsp;&nbsp;2. <strong>'Externes Excel laden'</strong> &rarr; nur ein Subset (z.B. nur Reminder, schnell)<br>" +
                     "&nbsp;&nbsp;3. <strong>Start</strong> &rarr; ignoriert bestehende Analyse, faengt neu an");
        } else {
            // Legacy: cache.json laden falls vorhanden und keine xlsx da
            loadCache();
            if (state.msgFiles.length > 0 && state.results.length === 0) {
                showInfo(state.msgFiles.length + " .msg-Dateien gefunden. Keine bestehende Analyse - klick Start oder lade externes Excel.");
            }
        }

        renderTable();
        refreshFolderStats();
        refreshDateRangeStatus();
        if (state.msgFiles.length === 0) showInfo("Keine .msg-Dateien gefunden.");
    } catch(e) {
        showError("Ordner-Scan fehlgeschlagen: " + e.message);
    }
}

// Lazy: laed die analyse.xlsx erst auf User-Klick (war frueher Auto-Load in scanFolder).
function loadXlsxCache() {
    if (!state.folderPath) {
        showError("Erst Mail-Ordner waehlen.");
        return;
    }
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var p = getXlsxCachePath();
    if (!fso.FileExists(p)) {
        showError("Keine analyse.xlsx im _KI-Analyse-Ordner: " + p);
        return;
    }
    showInfo("Lade Excel-Cache... bei grossen Dateien ~10-60s.");
    try {
        if (ensureExcelCache()) {
            var n = readResultsFromExcelLive();
            renderTable();
            refreshFolderStats();
            refreshStartButton();
            showSuccess("Excel-Cache geladen: <strong>" + n + "</strong> Vorgaenge. Klick Start fuer weitere Analyse oder 'Externes Excel laden' fuer Subset-Workflow.");
        }
    } catch(e) {
        showError("Cache laden fehlgeschlagen: " + e.message);
    }
}

function collectMsgFiles(fso, folder) {
    try {
        var files = new Enumerator(folder.Files);
        for (; !files.atEnd(); files.moveNext()) {
            var f = files.item();
            if (String(f.Name).toLowerCase().substr(-4) === ".msg") {
                state.msgFiles.push(f.Path);
            }
        }
        var subs = new Enumerator(folder.SubFolders);
        for (; !subs.atEnd(); subs.moveNext()) {
            var sub = subs.item();
            // Don't recurse into _KI-Analyse cache folder
            if (String(sub.Name) !== "_KI-Analyse") {
                collectMsgFiles(fso, sub);
            }
        }
    } catch(e) {}
}

// ============================================================================
// CACHE
// ============================================================================
function cachePath() {
    if (!state.folderPath) return "";
    return state.folderPath + "\\_KI-Analyse\\cache.json";
}

function ensureCacheFolder() {
    try {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        var dir = state.folderPath + "\\_KI-Analyse";
        if (!fso.FolderExists(dir)) fso.CreateFolder(dir);
    } catch(e) {}
}

function loadCache() {
    var p = cachePath();
    if (!p) {
        showInfo("Cache: kein Pfad berechnet (folderPath leer?).");
        return;
    }
    // Volle Diagnose, damit der User sieht was passiert
    var fsoCk;
    try { fsoCk = new ActiveXObject("Scripting.FileSystemObject"); }
    catch(eF) { showError("Cache: FSO nicht verfuegbar - " + eF.message); return; }

    if (!fsoCk.FileExists(p)) {
        // Datei nicht da - zeige wo gesucht wurde + was im _KI-Analyse-Ordner liegt
        var cacheDir = state.folderPath + "\\_KI-Analyse";
        var diag = "Cache nicht gefunden bei: <code>" + p + "</code>. ";
        if (fsoCk.FolderExists(cacheDir)) {
            try {
                var folder = fsoCk.GetFolder(cacheDir);
                var en = new Enumerator(folder.Files);
                var names = [];
                for (; !en.atEnd(); en.moveNext()) names.push(String(en.item().Name));
                diag += "Inhalt von <code>" + cacheDir + "</code>: [" + (names.length > 0 ? names.join(", ") : "leer") + "]";
            } catch(eL) { diag += "Inhalt konnte nicht gelesen werden: " + eL.message; }
        } else {
            diag += "Unterordner <code>_KI-Analyse</code> existiert NICHT in <code>" + state.folderPath + "</code>.";
            // Vielleicht in einem direkten Unterordner? Suche eine Ebene tiefer
            try {
                var topFolder = fsoCk.GetFolder(state.folderPath);
                var subs = new Enumerator(topFolder.SubFolders);
                var hits = [];
                for (; !subs.atEnd(); subs.moveNext()) {
                    var sub = subs.item();
                    var subCache = String(sub.Path) + "\\_KI-Analyse\\cache.json";
                    if (fsoCk.FileExists(subCache)) hits.push(subCache);
                }
                if (hits.length > 0) diag += " Aber Cache existiert in Unter-Ordnern: " + hits.join(", ") + " - dort den Ordner auswaehlen!";
            } catch(eS) {}
        }
        showError(diag);
        return;
    }

    // Cache.json wird von saveCache() IMMER als UTF-16 LE geschrieben.
    // ADODB.Stream mit Charset="unicode" liest deterministisch die volle Datei -
    // FSO.OpenTextFile.ReadAll() hat bei >1 MB Dateien einen bekannten Bug, der
    // unterschiedlich viel zurueckliefert je nach Memory-State.
    var fileSize = 0;
    try {
        var f = fsoCk.GetFile(p);
        fileSize = f.Size;
    } catch(eFS) {}

    var raw = "";
    var readMethod = "";
    var readErr = "";
    // OFFIZIELLER deterministischer Read: VBScript-Helper macht ALLES intern:
    //   1. ADODB.Stream Type=1 + LoadFromFile (blockt synchron bis komplett im RAM)
    //   2. Stream.Size-Verify gegen fileSize
    //   3. stm.Read() liefert SafeArray of Bytes
    //   4. UTF-16-LE-Decode via MidB/AscB/ChrW direkt in VBScript
    //   5. Rueckgabe als String (BSTR) - marshalt 1:1 nach JScript
    // KEIN JScript-VBArray.toArray() - das hat bei grossen Arrays Partial-Returns.
    try {
        raw = String(ReadFileFullUtf16LE(p));
        readMethod = "VBScript binary->UTF16LE decode (" + raw.length + " chars)";
    } catch(eA) {
        readErr += "VBScript-Read: " + eA.message + ". ";
        // Fallback 1: FSO ReadAll
        try {
            var fRead = fsoCk.OpenTextFile(p, 1, false, -1);
            raw = String(fRead.ReadAll());
            fRead.Close();
            readMethod = "FSO Unicode (VBScript-Read scheiterte)";
        } catch(eU) {
            showError("Cache laden fehlgeschlagen. " + readErr + "FSO: " + eU.message + " (Pfad: " + p + ")");
            return;
        }
    }

    // CRC ueber gesamtes raw (nicht nur erste 100k!) - zeigt zuverlaessig ob
    // sich die Datei zwischen Loads veraendert
    var crc = 0;
    for (var ci = 0; ci < raw.length; ci++) {
        crc = ((crc << 5) - crc + raw.charCodeAt(ci)) | 0;
    }

    // BOM strippen (ADODB.unicode strippt BOM normalerweise selbst, aber sicher ist sicher)
    if (raw.length > 0 && raw.charCodeAt(0) === 0xFEFF) raw = raw.substr(1);

    // File-Modification-Time einlesen - User sieht ob sich Datei aendert zwischen Loads
    var lastMod = "";
    try { lastMod = String(fsoCk.GetFile(p).DateLastModified); } catch(eM) {}

    // Letzte 200 Zeichen des raw - zeigt ob JSON sauber mit '] }' endet
    var rawEnd = raw.length > 200 ? raw.substr(raw.length - 200) : raw;
    rawEnd = rawEnd.replace(/[\r\n]+/g, " ");

    // Sanity-Check: erwartete Char-Anzahl bei UTF-16 LE = (fileSize - 2 BOM) / 2
    var expectedChars = fileSize > 0 ? Math.floor((fileSize - 2) / 2) : 0;
    var readPctOk = expectedChars > 0 ? Math.round((raw.length / expectedChars) * 100) : 0;
    var sizeInfo = " [Datei: " + Math.round(fileSize / 1024) + " KB | mod: " + lastMod +
                   " | gelesen: " + Math.round(raw.length * 2 / 1024) + " KB via " + readMethod +
                   " | " + readPctOk + "% | CRC=" + (crc >>> 0).toString(16) +
                   " | Ende: '..." + rawEnd.substr(rawEnd.length - 80).replace(/'/g, "\"") + "']";

    if (!raw || raw.length < 10) {
        showError("Cache-Datei leer oder zu klein (" + raw.length + " Zeichen)." + sizeInfo);
        return;
    }

    // BEIDE Parser laufen lassen und das groessere Ergebnis nehmen.
    // Hintergrund: JSON.parse hat in IE11 bei sehr grossen Strings ggf. Quirks,
    // eval ist permissiver. Wenn JSON.parse z.B. 1061 Eintraege liefert, eval
    // aber 2000 - dann hatte JSON.parse partial-parse-Issue.
    var dataJson = null, dataEval = null;
    var parseErr = "";
    try {
        if (typeof JSON !== "undefined" && JSON.parse) dataJson = JSON.parse(raw);
    } catch(eJP) { parseErr += "JSON.parse: " + eJP.message + ". "; }
    try {
        dataEval = eval("(" + raw + ")");
    } catch(eEv) { parseErr += "eval: " + eEv.message + ". "; }

    // Welcher Parser hat mehr Eintraege?
    var jsonCount = (dataJson && dataJson.results && dataJson.results.length) || 0;
    var evalCount = (dataEval && dataEval.results && dataEval.results.length) || 0;
    var data = (evalCount > jsonCount) ? dataEval : dataJson;
    if (!data) data = dataEval || dataJson;
    var parserUsed = (evalCount > jsonCount) ? "eval(" + evalCount + ")" : "JSON.parse(" + jsonCount + ")";
    sizeInfo += " [Parser: " + parserUsed + ", JSON=" + jsonCount + " eval=" + evalCount + "]";
    if (!data) {
        var sample = "Anfang: '" + raw.substr(0, 200).replace(/[\r\n]+/g, " ") + "' | Ende: '" +
                     raw.substr(Math.max(0, raw.length - 200)).replace(/[\r\n]+/g, " ") + "'";
        showError("Cache laden fehlgeschlagen (Parsing). Dateigroesse: " +
                  Math.round(raw.length / 1024) + " KB. Fehler: " + parseErr + ". " + sample);
        return;
    }
    if (!data.results || data.results.length === 0) {
        showInfo("Cache-Datei vorhanden aber leer (data.results=" + (data.results ? data.results.length : "fehlt") + ")." + sizeInfo);
        return;
    }
    state.results = data.results;
    state.pendingMap = {};
    for (var i = 0; i < state.results.length; i++) {
        state.pendingMap[String(state.results[i].msgPath).toLowerCase()] = true;
    }
    // Letzten Eintrag anzeigen damit User sieht, was der "letzte" gecachte Vorgang war
    var lastEntry = state.results[state.results.length - 1];
    var lastInfo = lastEntry ? " Letzter Eintrag: " + (lastEntry.msgFile || lastEntry.msgPath || "?") + " (" + (lastEntry.analyzedAt || "?") + ")" : "";
    showInfo("Cache geladen: <strong>" + state.results.length + "</strong> Vorgaenge." + sizeInfo + lastInfo);
}

function saveCache() {
    var p = cachePath();
    if (!p || state.results.length === 0) return;
    try {
        ensureCacheFolder();
        var data = {
            version: 1,
            folder: state.folderPath,
            updatedAt: isoNow(),
            results: state.results
        };
        writeTextFile(p, jsonStringify(data));
    } catch(e) {
        // Don't crash on cache write fail
    }
}

// ============================================================================
// EXCEL-LIVE-CACHE (v1.54)
// xlsx-Datei im _KI-Analyse-Ordner ist die Wahrheitsquelle. Waehrend Analyse
// wird jeder fertige Vorgang sofort als Zeile geschrieben (eine Range.Value
// pro Cell = ~50ms pro Vorgang - vernachlaessigbar vs ErgoGPT ~3-5s).
// Wb.Save alle 10 Vorgaenge, sowie bei Pause/Finish.
// ============================================================================
function getXlsxCachePath() {
    if (!state.folderPath) return "";
    return state.folderPath + "\\_KI-Analyse\\analyse.xlsx";
}

var EXCEL_HEADERS = ["#","Datei","Datum","Auftrag_Datum","Absender Name","Absender Email","Empfaenger","Betreff","Anhaenge",
                     "Maklerpool","Makler_Nachname","Makler_Vorname","Maklernummer",
                     "Kunde_Nachname","Kunde_Vorname","Kundennummer","Versicherungsnummer",
                     "Vorgangstyp","Ist_Reminder","Klassifikation","Klassifikation_Grund",
                     "Geschaefts_Typ","Unterlagen_Angefragt","Unterlagen_Liste","Sonderfall","Sparte",
                     "Anhang_Typen","PDF_Qualitaet","MV_Enthalten","MV_Vollumfaenglich","MV_Einschraenkungen","MV_Status",
                     "Unterschrift_Kunde","Unterschrift_Makler","Auf_VN","Makler_Namentlich","Hinweis","Fehler","Reminder_Quelle",
                     "Mail_Zusammenfassung","Nicht_Neu_Grund"];

// Reminder-Indikatoren - Schluesselwoerter die in Betreff oder Anhang-Namen
// auf einen Reminder hindeuten. Match-case-insensitiv.
var REMINDER_RE = /\b(mahnung|reminder|erinnerung|wiedervorlage|\bWV\b|sachstandsanfrage|nachfass|2\.?\s*Mahnung)\b/i;

// Reminder-Quelle: bevorzugt KI-Antwort r.data.reminder_quelle (v1.59+).
// Fallback fuer alte Cache-Eintraege: Heuristik auf Anhang-Name + Betreff.
// Liefert komma-getrennte Liste falls mehrere Quellen zutreffen.
function detectReminderSource(r) {
    if (!r || !r.data) return "";
    if (sg(r.data, "ist_reminder") !== "ja") return "";
    // KI-Antwort (neue Analysen ab v1.59) - bevorzugt, kann schon Komma-Liste sein
    var kiQuelle = sg(r.data, "reminder_quelle");
    if (kiQuelle && kiQuelle.length > 0) return kiQuelle;
    // Fallback fuer alte Caches: Heuristik (kann Mail-Body / PDF-Inhalt nicht sehen)
    var parts = [];
    if (REMINDER_RE.test(String(r.anhangAlle || ""))) parts.push("Anhang-Dateiname");
    if (REMINDER_RE.test(String(r.betreff || ""))) parts.push("Mail-Betreff");
    if (parts.length === 0) return "Body/PDF (alt-Cache, Heuristik blind)";
    return parts.join(", ") + " (Heuristik)";
}

// Splittet eine Reminder-Quelle-Liste in atomare Quellen.
// Normalisiert "(Heuristik)"-Suffix weg, Whitespace, etc.
function splitReminderQuellen(s) {
    if (!s) return [];
    var clean = String(s).replace(/\s*\(Heuristik\)\s*/gi, "").replace(/\s*\(alt-Cache.*?\)\s*/gi, "");
    var parts = clean.split(",");
    var out = [];
    for (var i = 0; i < parts.length; i++) {
        var p = parts[i].replace(/^\s+|\s+$/g, "");
        if (p.length > 0) out.push(p);
    }
    return out;
}

// Stellt sicher dass state.excelApp / Wb / Sheet existieren und das xlsx
// im _KI-Analyse-Ordner geoeffnet/erstellt ist. Returns true bei Erfolg.
function ensureExcelCache() {
    if (state.excelSheet) {
        // Check ob die Reference noch lebt
        try { var test = state.excelSheet.Cells(1, 1).Value; return true; } catch(e) {
            state.excelApp = null; state.excelWb = null; state.excelSheet = null;
            state.excelLiveRowCount = 0;
        }
    }
    try {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        var dir = state.folderPath + "\\_KI-Analyse";
        if (!fso.FolderExists(dir)) {
            try { fso.CreateFolder(dir); } catch(eDir) {}
        }
        var xlsxPath = getXlsxCachePath();
        state.excelXlsxPath = xlsxPath;

        if (!state.excelApp) {
            state.excelApp = new ActiveXObject("Excel.Application");
            state.excelApp.Visible = true;
            state.excelApp.DisplayAlerts = false;
        }

        if (fso.FileExists(xlsxPath)) {
            state.excelWb = state.excelApp.Workbooks.Open(xlsxPath);
        } else {
            state.excelWb = state.excelApp.Workbooks.Add();
            try { state.excelWb.ActiveSheet.Name = "Analyse"; } catch(eN) {}
            state.excelWb.SaveAs(xlsxPath, 51);   // 51 = xlOpenXMLWorkbook (.xlsx)
        }
        try { state.excelSheet = state.excelWb.Sheets("Analyse"); } catch(eSht) {
            state.excelSheet = state.excelWb.ActiveSheet;
            try { state.excelSheet.Name = "Analyse"; } catch(eN2) {}
        }

        // Header schreiben wenn Zeile 1 noch leer
        var cellA1 = "";
        try { cellA1 = String(state.excelSheet.Cells(1, 1).Value || ""); } catch(eC) {}
        if (cellA1 === "" || cellA1 === "0") {
            writeExcelLiveHeaders(state.excelSheet);
            state.excelLiveRowCount = 0;
        } else {
            // Bestimme wie viele Datenzeilen schon drin sind
            var used = 0;
            try { used = state.excelSheet.UsedRange.Rows.Count; } catch(eU) {}
            state.excelLiveRowCount = Math.max(0, used - 1);
        }
        return true;
    } catch(e) {
        showError("Excel-Live-Cache konnte nicht initialisiert werden: " + e.message);
        return false;
    }
}

function writeExcelLiveHeaders(sheet) {
    try {
        // Open Sans als Schriftart fuer das Live-Sheet (Header + Daten).
        try { sheet.Cells.Font.Name = "Open Sans"; } catch(eFnt) {}
        for (var c = 0; c < EXCEL_HEADERS.length; c++) {
            sheet.Cells(1, c + 1).Value = EXCEL_HEADERS[c];
        }
        var hr = sheet.Range(sheet.Cells(1, 1), sheet.Cells(1, EXCEL_HEADERS.length));
        hr.Font.Bold = true;
        hr.Font.Color = rgb(255, 255, 255);
        hr.Interior.Color = rgb(30, 64, 175);
        hr.HorizontalAlignment = -4108;
        hr.WrapText = true;
        sheet.Rows(1).RowHeight = 28;
        // Freeze pane
        try {
            sheet.Range("A2").Select();
            state.excelApp.ActiveWindow.FreezePanes = true;
        } catch(eFr) {}
        // Spaltenbreiten grob
        try {
            sheet.Columns("A:A").ColumnWidth = 5;
            sheet.Columns("B:B").ColumnWidth = 40;
            sheet.Columns("C:I").ColumnWidth = 16;
        } catch(eCw) {}
        // Nummern-Spalten als TEXT formatieren - sonst macht Excel aus
        // "96877374.7" -> 96877374,7 (Locale) und aus langen Nummern E+17.
        // 13=Maklernummer, 16=Kundennummer, 17=Versicherungsnummer.
        try {
            sheet.Columns(13).NumberFormat = "@";
            sheet.Columns(16).NumberFormat = "@";
            sheet.Columns(17).NumberFormat = "@";
        } catch(eNf) {}
    } catch(e) {}
}

// Schreibt eine Result-Zeile in das Excel-Live-Sheet. Verwendet r._excelRow
// wenn gesetzt (Update), sonst Append am Ende.
function writeResultRowToExcel(r) {
    if (!state.excelSheet) return;
    try {
        var rowIdx;
        if (r._excelRow && r._excelRow >= 2) {
            rowIdx = r._excelRow;
        } else {
            state.excelLiveRowCount++;
            rowIdx = state.excelLiveRowCount + 1;
            r._excelRow = rowIdx;
        }
        var d = r.data || {};
        var sht = state.excelSheet;
        sht.Cells(rowIdx, 1).Value = rowIdx - 1;
        sht.Cells(rowIdx, 2).Value = cellSafe(r.msgFile);
        sht.Cells(rowIdx, 3).Value = cellSafe(r.datum);
        sht.Cells(rowIdx, 4).Value = cellSafe(sg(d, "auftrag_datum"));
        sht.Cells(rowIdx, 5).Value = cellSafe(r.absName);
        sht.Cells(rowIdx, 6).Value = cellSafe(r.absMail);
        sht.Cells(rowIdx, 7).Value = cellSafe(r.empfaenger);
        sht.Cells(rowIdx, 8).Value = cellSafe(r.betreff);
        sht.Cells(rowIdx, 9).Value = cellSafe(r.anhangAlle);
        sht.Cells(rowIdx, 10).Value = cellSafe(sg(d, "maklerpool"));
        sht.Cells(rowIdx, 11).Value = cellSafe(sg(d, "makler_nachname"));
        sht.Cells(rowIdx, 12).Value = cellSafe(sg(d, "makler_vorname"));
        sht.Cells(rowIdx, 13).Value = cellSafe(sg(d, "makler_nummer"));
        sht.Cells(rowIdx, 14).Value = cellSafe(sg(d, "kunde_nachname"));
        sht.Cells(rowIdx, 15).Value = cellSafe(sg(d, "kunde_vorname"));
        sht.Cells(rowIdx, 16).Value = cellSafe(sg(d, "kunde_nummer"));
        sht.Cells(rowIdx, 17).Value = cellSafe(sg(d, "versicherungsnummer"));
        sht.Cells(rowIdx, 18).Value = cellSafe(sg(d, "vorgangstyp"));
        sht.Cells(rowIdx, 19).Value = cellSafe(sg(d, "ist_reminder"));
        sht.Cells(rowIdx, 20).Value = cellSafe(sg(d, "klassifikation"));
        sht.Cells(rowIdx, 21).Value = cellSafe(sg(d, "klassifikation_grund"));
        sht.Cells(rowIdx, 22).Value = cellSafe(sg(d, "geschaefts_typ"));
        sht.Cells(rowIdx, 23).Value = cellSafe(sg(d, "unterlagen_angefragt"));
        sht.Cells(rowIdx, 24).Value = cellSafe(sg(d, "unterlagen_liste"));
        sht.Cells(rowIdx, 25).Value = cellSafe(sg(d, "sonderfall"));
        sht.Cells(rowIdx, 26).Value = cellSafe(sg(d, "sparte"));
        sht.Cells(rowIdx, 27).Value = cellSafe(sg(d, "anhang_typen"));
        sht.Cells(rowIdx, 28).Value = cellSafe(sg(d, "pdf_qualitaet"));
        sht.Cells(rowIdx, 29).Value = cellSafe(sg(d, "enthaelt_maklervollmacht"));
        sht.Cells(rowIdx, 30).Value = cellSafe(sg(d, "mv_vollumfaenglich"));
        sht.Cells(rowIdx, 31).Value = cellSafe(sg(d, "mv_einschraenkungen"));
        sht.Cells(rowIdx, 32).Value = cellSafe(computeMvStatus(r));
        sht.Cells(rowIdx, 33).Value = cellSafe(sg(d, "unterschrift_kunde"));
        sht.Cells(rowIdx, 34).Value = cellSafe(sg(d, "unterschrift_makler"));
        sht.Cells(rowIdx, 35).Value = cellSafe(sg(d, "auf_vn_ausgestellt"));
        sht.Cells(rowIdx, 36).Value = cellSafe(sg(d, "makler_namentlich_genannt"));
        sht.Cells(rowIdx, 37).Value = cellSafe(sg(d, "hinweis"));
        sht.Cells(rowIdx, 38).Value = r.ok ? "" : cellSafe(r.errMsg);
        sht.Cells(rowIdx, 39).Value = cellSafe(detectReminderSource(r));
        sht.Cells(rowIdx, 40).Value = cellSafe(sg(d, "mail_zusammenfassung"));
        sht.Cells(rowIdx, 41).Value = cellSafe(sg(d, "nicht_neuer_vorgang_grund"));
        // Highlights live anwenden (~6-10 zusaetzliche COM-Calls, vernachlaessigbar
        // weil Mail-Analyse-Tempo ~3-5s pro Mail).
        applyHighlightsToLiveRow(rowIdx, r);
    } catch(e) {
        // Schreib-Fehler einer Zeile darf den Analyse-Lauf nicht killen
    }
}

function saveExcelLiveCache() {
    if (!state.excelWb) return;
    try { state.excelWb.Save(); } catch(e) {}
}

// Highlight-Farben (gleich wie in exportToExcel)
var H_LIVE_ROT    = function() { return rgb(252, 165, 165); };
var H_LIVE_GRUEN  = function() { return rgb(187, 247, 208); };
var H_LIVE_GELB   = function() { return rgb(254, 240, 138); };
var H_LIVE_ORANGE = function() { return rgb(254, 215, 170); };
var H_LIVE_BERN   = function() { return rgb(253, 230, 138); };
var H_LIVE_GRAU   = function() { return rgb(229, 231, 235); };

// Spalten-Indizes im Live-Excel (1-basiert) - muss zur EXCEL_HEADERS-Reihenfolge passen
var LIVE_COL_VORGANGSTYP = 18, LIVE_COL_REMINDER = 19, LIVE_COL_KLASSIFIK = 20;
var LIVE_COL_SONDERFALL = 25, LIVE_COL_PDF_QUAL = 28;
var LIVE_COL_VM_VOLLST = 30, LIVE_COL_MV_STATUS = 32;
var LIVE_COL_UNTERSCHR_K = 33, LIVE_COL_UNTERSCHR_M = 34;
var LIVE_COL_MAKLERPOOL = 10, LIVE_COL_HINWEIS = 37, LIVE_COL_FEHLER = 38, LIVE_COL_REMINDER_QUELLE = 39;

// Wendet Highlight-Farben auf EINE Zeile im Live-Excel an. Wird sowohl per-Zeile
// waehrend Analyse aufgerufen als auch im Bulk-Pass nach Migration.
function applyHighlightsToLiveRow(rowIdx, r) {
    if (!state.excelSheet) return;
    var d = r.data || {};
    try {
        if (!r.ok || r.errMsg) {
            state.excelSheet.Cells(rowIdx, LIVE_COL_FEHLER).Interior.Color = H_LIVE_ROT();
        }
        var vt = sg(d, "vorgangstyp");
        if (vt && vt !== "Makler-Vorgang" && vt !== "") {
            state.excelSheet.Range(state.excelSheet.Cells(rowIdx, LIVE_COL_MAKLERPOOL), state.excelSheet.Cells(rowIdx, LIVE_COL_HINWEIS)).Interior.Color = H_LIVE_GRAU();
            state.excelSheet.Cells(rowIdx, LIVE_COL_VORGANGSTYP).Interior.Color = H_LIVE_ORANGE();
        }
        if (sg(d, "ist_reminder") === "ja") state.excelSheet.Cells(rowIdx, LIVE_COL_REMINDER).Interior.Color = H_LIVE_ORANGE();
        // Reminder_Quelle (Spalte 39) - farblich markieren je nach Quelle
        var rq = detectReminderSource(r);
        if (rq.indexOf("Anhang") === 0) state.excelSheet.Cells(rowIdx, LIVE_COL_REMINDER_QUELLE).Interior.Color = rgb(167, 139, 250);   // Violett
        else if (rq.indexOf("Mail-Betreff") === 0 || rq.indexOf("Betreff") === 0) state.excelSheet.Cells(rowIdx, LIVE_COL_REMINDER_QUELLE).Interior.Color = H_LIVE_ORANGE();   // Orange
        else if (rq.length > 0) state.excelSheet.Cells(rowIdx, LIVE_COL_REMINDER_QUELLE).Interior.Color = H_LIVE_GELB();      // Gelb
        var sond = sg(d, "sonderfall");
        if (sond === "Flottengeschaeft" || sond === "Sondertarif") state.excelSheet.Cells(rowIdx, LIVE_COL_SONDERFALL).Interior.Color = H_LIVE_ROT();
        var kl = sg(d, "klassifikation");
        if (kl === "Nicht-Standard") state.excelSheet.Cells(rowIdx, LIVE_COL_KLASSIFIK).Interior.Color = H_LIVE_BERN();
        var pq = sg(d, "pdf_qualitaet");
        if (pq === "Scan") state.excelSheet.Cells(rowIdx, LIVE_COL_PDF_QUAL).Interior.Color = H_LIVE_BERN();
        else if (pq === "Mixed") state.excelSheet.Cells(rowIdx, LIVE_COL_PDF_QUAL).Interior.Color = H_LIVE_GELB();
        var mvv = sg(d, "mv_vollumfaenglich");
        if (mvv === "teilweise" || mvv === "nein") state.excelSheet.Cells(rowIdx, LIVE_COL_VM_VOLLST).Interior.Color = H_LIVE_ROT();
        else if (mvv === "ja") state.excelSheet.Cells(rowIdx, LIVE_COL_VM_VOLLST).Interior.Color = H_LIVE_GRUEN();
        var mvSt = computeMvStatus(r);
        if (mvSt === "OK") state.excelSheet.Cells(rowIdx, LIVE_COL_MV_STATUS).Interior.Color = H_LIVE_GRUEN();
        else if (mvSt === "MV unvollstaendig" || mvSt === "MV fehlt") state.excelSheet.Cells(rowIdx, LIVE_COL_MV_STATUS).Interior.Color = H_LIVE_ROT();
        else if (mvSt === "kein Anhang") state.excelSheet.Cells(rowIdx, LIVE_COL_MV_STATUS).Interior.Color = H_LIVE_GRAU();
        else if (mvSt === "nicht pruefbar") state.excelSheet.Cells(rowIdx, LIVE_COL_MV_STATUS).Interior.Color = H_LIVE_GELB();
        var uk = sg(d, "unterschrift_kunde");
        if (uk === "nein") state.excelSheet.Cells(rowIdx, LIVE_COL_UNTERSCHR_K).Interior.Color = H_LIVE_ROT();
        else if (uk === "ja") state.excelSheet.Cells(rowIdx, LIVE_COL_UNTERSCHR_K).Interior.Color = H_LIVE_GRUEN();
        var um = sg(d, "unterschrift_makler");
        if (um === "nein") state.excelSheet.Cells(rowIdx, LIVE_COL_UNTERSCHR_M).Interior.Color = H_LIVE_ROT();
        else if (um === "ja") state.excelSheet.Cells(rowIdx, LIVE_COL_UNTERSCHR_M).Interior.Color = H_LIVE_GRUEN();
    } catch(eHL) {}
}

// Wendet Highlights auf MEHRERE Zeilen an (Bulk nach Migration). Mit
// Excel-Speed-Flags damit das schnell geht.
function applyHighlightsToLiveRows(startRow, endRow, results) {
    if (!state.excelSheet) return;
    try { state.excelApp.ScreenUpdating = false; } catch(eF) {}
    try { state.excelApp.Calculation = -4135; } catch(eF) {}
    for (var i = 0; i < results.length; i++) {
        applyHighlightsToLiveRow(startRow + i, results[i]);
    }
    try { state.excelApp.ScreenUpdating = true; } catch(eF) {}
    try { state.excelApp.Calculation = -4105; } catch(eF) {}
}

// Baut die Auswertung-Sheet neu im Excel-Live-Workbook. Loescht ein
// existierendes Auswertung-Sheet und ruft die buildAuswertungSheet-Funktion
// aus exportToExcel auf - die kennt die Stats-Logik (Postfach-Drilldown, MV-Status etc).
// Oeffnet den File-Picker fuer das externe Excel. Triggert via Klick auf
// das versteckte <input type="file">. onChange ruft onExternalXlsxPicked.
function openExternalXlsxPicker() {
    if (!state.folderPath) {
        showError("Bitte zuerst den Mail-Ordner waehlen (Drop-Bereich oben). Dann externes Excel laden.");
        return;
    }
    var inp = document.getElementById("externalXlsxFile");
    if (!inp) { showError("File-Picker nicht initialisiert"); return; }
    // Reset value damit onChange auch bei gleicher Datei nochmal feuert
    try { inp.value = ""; } catch(e) {}
    inp.click();
}

// onChange-Handler vom File-Input. In HTA liefert input.value den vollen Pfad.
function onExternalXlsxPicked(input) {
    if (!input || !input.value) return;
    var path = String(input.value);
    if (path.length === 0) return;
    loadExternalXlsx(path);
}

// Externes Excel als Cache laden (z.B. manuell auf Reminder gefiltertes Subset).
// Vorteil: nur ~700 Reminder im Cache statt 5000 Komplett-Daten.
// Voraussetzung: Mail-Ordner ist schon gewaehlt (state.folderPath).
// path: optional - wenn nicht uebergeben, wird der File-Picker geoeffnet.
function loadExternalXlsx(path) {
    if (!state.folderPath) {
        showError("Bitte zuerst den Mail-Ordner waehlen (Drop-Bereich oben). Dann externes Excel laden.");
        return;
    }
    if (!path) {
        // Kein Pfad uebergeben - File-Picker oeffnen
        openExternalXlsxPicker();
        return;
    }
    path = String(path).replace(/^["']|["']$/g, "");   // Pfad-Anfuehrungszeichen weg
    var fso;
    try { fso = new ActiveXObject("Scripting.FileSystemObject"); } catch(eF) { showError("FSO nicht verfuegbar"); return; }
    if (!fso.FileExists(path)) {
        showError("Datei nicht gefunden: " + path);
        return;
    }
    try {
        // Existing Excel-Workbook schliessen falls offen
        if (state.excelWb) {
            try { state.excelWb.Close(false); } catch(eC) {}
            state.excelWb = null;
            state.excelSheet = null;
        }
        if (!state.excelApp) {
            state.excelApp = new ActiveXObject("Excel.Application");
            state.excelApp.DisplayAlerts = false;
        }
        state.excelApp.Visible = true;
        state.excelWb = state.excelApp.Workbooks.Open(path);
        state.excelXlsxPath = path;
        try { state.excelSheet = state.excelWb.Sheets("Analyse"); } catch(eS) {
            state.excelSheet = state.excelWb.ActiveSheet;
        }
        // Eintraege lesen + state.results befuellen
        var n = readResultsFromExcelLive();
        if (n === 0) {
            showError("Externes Excel geoeffnet, aber 0 lesbare Zeilen gefunden. Erwartetes Format: gleicher Header wie das Live-Excel (Spalte B = Datei).");
            return;
        }
        // Alle Eintraege zur Neuanalyse markieren (pendingMap leeren)
        for (var k in state.pendingMap) {
            if (state.pendingMap.hasOwnProperty(k)) delete state.pendingMap[k];
        }
        // KRITISCH: state.msgFiles auf NUR die gematchten Eintraege aus dem externen
        // Excel beschraenken. Sonst wuerde Start alle 5000 .msg-Dateien im Ordner
        // analysieren statt nur die ~700 Reminder.
        var matched = 0, missing = 0;
        var matchedPaths = [];
        var seenPath = {};
        var missingList = [];
        for (var i = 0; i < state.results.length; i++) {
            var p = state.results[i].msgPath || "";
            if (p && fso.FileExists(p) && !seenPath[p.toLowerCase()]) {
                matchedPaths.push(p);
                seenPath[p.toLowerCase()] = true;
                matched++;
            } else if (p && !fso.FileExists(p)) {
                missing++;
                if (missingList.length < 5) missingList.push(state.results[i].msgFile || p);
            }
        }
        state.msgFiles = matchedPaths;  // ueberschreibt die volle Liste mit dem Subset
        // Date-Range-Filter ausschalten, damit alle Reminder durchkommen
        state.dateFrom = null;
        state.dateTo = null;
        try {
            var df = document.getElementById("dateFrom"); if (df) df.value = "";
            var dt = document.getElementById("dateTo"); if (dt) dt.value = "";
        } catch(eD) {}
        renderTable();
        refreshFolderStats();
        refreshDateRangeStatus();
        refreshStartButton();
        var msg = "Externes Excel geladen: <strong>" + n + "</strong> Eintraege. " +
                  "<strong>" + matched + "</strong> .msg-Dateien im Ordner gefunden und ausgewaehlt. ";
        if (missing > 0) msg += "<strong>" + missing + " fehlen</strong> im Ordner";
        if (missingList.length > 0) msg += " (z.B.: " + missingList.join(", ") + "). ";
        else msg += ". ";
        msg += "Work-Queue ist auf diese " + matched + " Vorgaenge beschraenkt. " +
               "<strong>Klick Start</strong> &rarr; nur diese werden (re-)analysiert.";
        showSuccess(msg);
    } catch(e) {
        showError("Externes Excel laden fehlgeschlagen: " + (e.message || "unbekannt"));
    }
}

// User-Trigger: Analysiert NUR die als Reminder erkannten Vorgaenge neu,
// um die reminder_quelle (PDF-Inhalt / Dateiname / Betreff / Body) nachzutragen.
// Markiert sie als nicht-cached, dann normaler Start-Analyse-Lauf.
function reAnalyzeReminders() {
    if (state.results.length === 0) {
        showError("Keine Daten - erst Ordner waehlen.");
        return;
    }
    if (state.cookie.length < 50) {
        showError("Cookie fehlt - kann nicht neu analysieren.");
        return;
    }
    // Zaehle wieviele Reminders es gibt
    var reminders = [];
    for (var i = 0; i < state.results.length; i++) {
        var r = state.results[i];
        if (r && r.data && sg(r.data, "ist_reminder") === "ja") reminders.push(r);
    }
    if (reminders.length === 0) {
        showInfo("Keine Reminder-Vorgaenge gefunden - nichts zu tun.");
        return;
    }
    // Bestaetigung
    var sure = confirm("Es werden " + reminders.length + " Reminder-Vorgaenge neu analysiert " +
                       "(volle KI-Analyse pro Mail, ~" + Math.round(reminders.length * 0.05) +
                       " Cent geschaetzt). Die reminder_quelle-Spalte wird danach befuellt.\n\n" +
                       "Fortfahren?");
    if (!sure) return;
    // Aus pendingMap entfernen damit sie als nicht-cached gelten
    for (var k = 0; k < reminders.length; k++) {
        var rk = reminders[k];
        delete state.pendingMap[String(rk.msgPath).toLowerCase()];
    }
    appendAiLog("OK", "", "Reminder-Re-Analyse: " + reminders.length + " Vorgaenge zur Neuanalyse markiert");
    // Normaler Start-Lauf - der filtert ueber pendingMap und nimmt nur die Reminders
    startAnalysis();
}

// User-Trigger: wendet Farb-Highlights auf ALLE Zeilen im Live-Excel an und
// baut die Auswertung neu. Hilfreich nach bereits gelaufener Migration ohne
// Highlights, oder um Stats nach manuellen Aenderungen zu aktualisieren.
function refreshLiveExcelDecor() {
    if (!state.excelSheet || state.results.length === 0) {
        showError("Kein Excel-Live-Cache offen oder keine Daten. Erst Ordner waehlen und Analyse-Start druecken.");
        return;
    }
    hideStatus();
    showInfo("Wende Farben auf " + state.results.length + " Zeilen an + baue Auswertung neu...");
    try { state.excelApp.ScreenUpdating = false; } catch(eF) {}
    try { state.excelApp.Calculation = -4135; } catch(eF) {}
    var done = 0;
    for (var i = 0; i < state.results.length; i++) {
        var r = state.results[i];
        var rowIdx = r._excelRow || (i + 2);
        // Reminder_Quelle-Spalte (39) jetzt auch befuellen - wichtig fuer
        // alte Migrationen ohne diese Spalte
        try { state.excelSheet.Cells(rowIdx, 39).Value = cellSafe(detectReminderSource(r)); } catch(eRq) {}
        applyHighlightsToLiveRow(rowIdx, r);
        done++;
    }
    try { state.excelApp.ScreenUpdating = true; } catch(eF) {}
    try { state.excelApp.Calculation = -4105; } catch(eF) {}
    try { rebuildLiveAuswertungSheet(); } catch(eA) {}
    try { saveExcelLiveCache(); } catch(eS) {}
    showSuccess("Farben + Auswertung aktualisiert (" + done + " Zeilen). Excel ist auf neuestem Stand.");
}

function rebuildLiveAuswertungSheet() {
    if (!state.excelWb || !state.excelApp) return;
    try {
        // Existing loeschen
        try {
            state.excelApp.DisplayAlerts = false;
            var existing = state.excelWb.Sheets("Auswertung");
            existing.Delete();
        } catch(eD) {}
        try { state.excelApp.DisplayAlerts = true; } catch(eDA) {}
        // Neu bauen via existierender Funktion
        buildAuswertungSheet(state.excelWb, state.excelApp);
        // Zurueck zum Analyse-Sheet
        try { state.excelWb.Sheets("Analyse").Activate(); } catch(eA) {}
    } catch(e) {}
}

// Bulk-Write MEHRERE Results in EINEM Rutsch via VBScript-FillRangeFromTsv.
// Verwendet fuer die initiale Migration (1100+ Vorgaenge aus cache.json -> xlsx),
// damit nicht 1100 x 38 = 41800 sync COM-Calls den Long-Running-Script-Dialog
// triggern und Excel ueberlasten. Returns true bei Erfolg, false bei Fehler.
function bulkWriteResultsToExcel(results) {
    if (!state.excelSheet || results.length === 0) return false;
    var startRow = state.excelLiveRowCount + 2;
    var nRows = results.length;
    var nCols = EXCEL_HEADERS.length;

    // TSV bauen: cellSafeTsv strippt Tabs/Newlines aus Werten
    var rowsTsv = [];
    for (var i = 0; i < nRows; i++) {
        var r = results[i];
        var d = r.data || {};
        var rowNum = state.excelLiveRowCount + i + 1;
        rowsTsv.push(
            String(rowNum) + "\t" +
            cellSafeTsv(r.msgFile) + "\t" +
            cellSafeTsv(r.datum) + "\t" +
            cellSafeTsv(sg(d, "auftrag_datum")) + "\t" +
            cellSafeTsv(r.absName) + "\t" +
            cellSafeTsv(r.absMail) + "\t" +
            cellSafeTsv(r.empfaenger) + "\t" +
            cellSafeTsv(r.betreff) + "\t" +
            cellSafeTsv(r.anhangAlle) + "\t" +
            cellSafeTsv(sg(d, "maklerpool")) + "\t" +
            cellSafeTsv(sg(d, "makler_nachname")) + "\t" +
            cellSafeTsv(sg(d, "makler_vorname")) + "\t" +
            cellSafeTsv(sg(d, "makler_nummer")) + "\t" +
            cellSafeTsv(sg(d, "kunde_nachname")) + "\t" +
            cellSafeTsv(sg(d, "kunde_vorname")) + "\t" +
            cellSafeTsv(sg(d, "kunde_nummer")) + "\t" +
            cellSafeTsv(sg(d, "versicherungsnummer")) + "\t" +
            cellSafeTsv(sg(d, "vorgangstyp")) + "\t" +
            cellSafeTsv(sg(d, "ist_reminder")) + "\t" +
            cellSafeTsv(sg(d, "klassifikation")) + "\t" +
            cellSafeTsv(sg(d, "klassifikation_grund")) + "\t" +
            cellSafeTsv(sg(d, "geschaefts_typ")) + "\t" +
            cellSafeTsv(sg(d, "unterlagen_angefragt")) + "\t" +
            cellSafeTsv(sg(d, "unterlagen_liste")) + "\t" +
            cellSafeTsv(sg(d, "sonderfall")) + "\t" +
            cellSafeTsv(sg(d, "sparte")) + "\t" +
            cellSafeTsv(sg(d, "anhang_typen")) + "\t" +
            cellSafeTsv(sg(d, "pdf_qualitaet")) + "\t" +
            cellSafeTsv(sg(d, "enthaelt_maklervollmacht")) + "\t" +
            cellSafeTsv(sg(d, "mv_vollumfaenglich")) + "\t" +
            cellSafeTsv(sg(d, "mv_einschraenkungen")) + "\t" +
            cellSafeTsv(computeMvStatus(r)) + "\t" +
            cellSafeTsv(sg(d, "unterschrift_kunde")) + "\t" +
            cellSafeTsv(sg(d, "unterschrift_makler")) + "\t" +
            cellSafeTsv(sg(d, "auf_vn_ausgestellt")) + "\t" +
            cellSafeTsv(sg(d, "makler_namentlich_genannt")) + "\t" +
            cellSafeTsv(sg(d, "hinweis")) + "\t" +
            (r.ok ? "" : cellSafeTsv(r.errMsg)) + "\t" +
            cellSafeTsv(detectReminderSource(r)) + "\t" +
            cellSafeTsv(sg(d, "mail_zusammenfassung")) + "\t" +
            cellSafeTsv(sg(d, "nicht_neuer_vorgang_grund"))
        );
        r._excelRow = startRow + i;
    }
    var bigTsv = rowsTsv.join("\n");

    // Excel-Speed-Flags waehrend Bulk-Write
    try { state.excelApp.ScreenUpdating = false; } catch(eF) {}
    try { state.excelApp.Calculation = -4135; } catch(eF) {}
    try { state.excelApp.EnableEvents = false; } catch(eF) {}

    var ok = false;
    var method = "";
    try {
        var rng = state.excelSheet.Range(
            state.excelSheet.Cells(startRow, 1),
            state.excelSheet.Cells(startRow + nRows - 1, nCols)
        );
        FillRangeFromTsv(rng, bigTsv, "\n", "\t", nRows, nCols);
        // Sanity-Check: 3 Stichproben
        var s1 = String(state.excelSheet.Cells(startRow, 2).Value || "");
        var midR = startRow + Math.floor(nRows / 2);
        var sM = String(state.excelSheet.Cells(midR, 2).Value || "");
        var sE = String(state.excelSheet.Cells(startRow + nRows - 1, 2).Value || "");
        if (s1.length > 0 && sM.length > 0 && sE.length > 0) {
            state.excelLiveRowCount += nRows;
            ok = true;
            method = "FillRangeFromTsv";
        }
    } catch(eB) {}

    if (!ok) {
        // Methode 2: Clipboard-Paste. Bewaehrte Excel-Bulk-Methode.
        // Tab-Newline-TSV in Clipboard, Cell selektieren, Paste.
        try {
            // Cleanup falls erster Versuch teilweise gefuellt hat
            try {
                state.excelSheet.Range(
                    state.excelSheet.Cells(startRow, 1),
                    state.excelSheet.Cells(startRow + nRows - 1, nCols)
                ).ClearContents();
            } catch(eClr) {}
            window.clipboardData.clearData();
            window.clipboardData.setData("Text", bigTsv);
            state.excelSheet.Range(state.excelSheet.Cells(startRow, 1), state.excelSheet.Cells(startRow, 1)).Select();
            state.excelSheet.Paste();
            // Sanity
            var c1 = String(state.excelSheet.Cells(startRow, 2).Value || "");
            var cM = String(state.excelSheet.Cells(startRow + Math.floor(nRows / 2), 2).Value || "");
            var cE = String(state.excelSheet.Cells(startRow + nRows - 1, 2).Value || "");
            if (c1.length > 0 && cM.length > 0 && cE.length > 0) {
                state.excelLiveRowCount += nRows;
                ok = true;
                method = "Clipboard-Paste";
            }
            try { window.clipboardData.clearData(); } catch(eCC) {}
        } catch(eCp) {}
    }

    // Flags zurueck
    try { state.excelApp.ScreenUpdating = true; } catch(eF) {}
    try { state.excelApp.Calculation = -4105; } catch(eF) {}
    try { state.excelApp.EnableEvents = true; } catch(eF) {}

    if (ok) {
        appendAiLog("OK", "", "Bulk-Write erfolgreich via " + method + " (" + nRows + " Zeilen)");
        // Highlights bulk-applizieren auf alle frisch geschriebenen Zeilen
        appendAiLog("OK", "", "Wende Farb-Highlights an (" + nRows + " Zeilen)...");
        applyHighlightsToLiveRows(startRow, startRow + nRows - 1, results);
        appendAiLog("OK", "", "Highlights fertig. Baue Auswertung-Sheet...");
        rebuildLiveAuswertungSheet();
        appendAiLog("OK", "", "Auswertung-Sheet fertig.");
    } else {
        // Cleanup partial write + reset _excelRow markers
        try {
            state.excelSheet.Range(
                state.excelSheet.Cells(startRow, 1),
                state.excelSheet.Cells(startRow + nRows - 1, nCols)
            ).ClearContents();
        } catch(eC) {}
        for (var j = 0; j < nRows; j++) results[j]._excelRow = 0;
    }
    return ok;
}

// Liest die Daten aus einem existierenden xlsx (vor Analyse-Start)
// und befuellt state.results + state.pendingMap. Returns Anzahl gelesener Zeilen.
function readResultsFromExcelLive() {
    if (!state.excelSheet) return 0;
    var lastRow = 1;
    try { lastRow = state.excelSheet.UsedRange.Rows.Count; } catch(e) {}
    if (lastRow < 2) return 0;
    // Build msgFile -> msgPath map aus state.msgFiles
    var fileToPath = {};
    for (var fi = 0; fi < state.msgFiles.length; fi++) {
        var fp = state.msgFiles[fi];
        var fn = fp.substr(fp.lastIndexOf("\\") + 1);
        fileToPath[fn.toLowerCase()] = fp;
    }
    state.results = [];
    state.pendingMap = {};
    for (var r = 2; r <= lastRow; r++) {
        try {
            var msgFile = String(state.excelSheet.Cells(r, 2).Value || "");
            if (!msgFile) continue;
            var msgPath = fileToPath[msgFile.toLowerCase()] || msgFile;  // fallback: nur filename
            var errMsgStr = String(state.excelSheet.Cells(r, 38).Value || "");
            var entry = {
                msgPath: msgPath,
                msgFile: msgFile,
                datum: String(state.excelSheet.Cells(r, 3).Value || ""),
                absName: String(state.excelSheet.Cells(r, 5).Value || ""),
                absMail: String(state.excelSheet.Cells(r, 6).Value || ""),
                empfaenger: String(state.excelSheet.Cells(r, 7).Value || ""),
                betreff: String(state.excelSheet.Cells(r, 8).Value || ""),
                anhangAlle: String(state.excelSheet.Cells(r, 9).Value || ""),
                ok: !errMsgStr,
                errMsg: errMsgStr,
                _excelRow: r,
                data: {
                    auftrag_datum: String(state.excelSheet.Cells(r, 4).Value || ""),
                    maklerpool: String(state.excelSheet.Cells(r, 10).Value || ""),
                    makler_nachname: String(state.excelSheet.Cells(r, 11).Value || ""),
                    makler_vorname: String(state.excelSheet.Cells(r, 12).Value || ""),
                    makler_nummer: String(state.excelSheet.Cells(r, 13).Value || ""),
                    kunde_nachname: String(state.excelSheet.Cells(r, 14).Value || ""),
                    kunde_vorname: String(state.excelSheet.Cells(r, 15).Value || ""),
                    kunde_nummer: String(state.excelSheet.Cells(r, 16).Value || ""),
                    versicherungsnummer: String(state.excelSheet.Cells(r, 17).Value || ""),
                    vorgangstyp: String(state.excelSheet.Cells(r, 18).Value || ""),
                    ist_reminder: String(state.excelSheet.Cells(r, 19).Value || ""),
                    klassifikation: String(state.excelSheet.Cells(r, 20).Value || ""),
                    klassifikation_grund: String(state.excelSheet.Cells(r, 21).Value || ""),
                    geschaefts_typ: String(state.excelSheet.Cells(r, 22).Value || ""),
                    unterlagen_angefragt: String(state.excelSheet.Cells(r, 23).Value || ""),
                    unterlagen_liste: String(state.excelSheet.Cells(r, 24).Value || ""),
                    sonderfall: String(state.excelSheet.Cells(r, 25).Value || ""),
                    sparte: String(state.excelSheet.Cells(r, 26).Value || ""),
                    anhang_typen: String(state.excelSheet.Cells(r, 27).Value || ""),
                    pdf_qualitaet: String(state.excelSheet.Cells(r, 28).Value || ""),
                    enthaelt_maklervollmacht: String(state.excelSheet.Cells(r, 29).Value || ""),
                    mv_vollumfaenglich: String(state.excelSheet.Cells(r, 30).Value || ""),
                    mv_einschraenkungen: String(state.excelSheet.Cells(r, 31).Value || ""),
                    unterschrift_kunde: String(state.excelSheet.Cells(r, 33).Value || ""),
                    unterschrift_makler: String(state.excelSheet.Cells(r, 34).Value || ""),
                    auf_vn_ausgestellt: String(state.excelSheet.Cells(r, 35).Value || ""),
                    makler_namentlich_genannt: String(state.excelSheet.Cells(r, 36).Value || ""),
                    hinweis: String(state.excelSheet.Cells(r, 37).Value || ""),
                    reminder_quelle: String(state.excelSheet.Cells(r, 39).Value || ""),
                    mail_zusammenfassung: String(state.excelSheet.Cells(r, 40).Value || ""),
                    nicht_neuer_vorgang_grund: String(state.excelSheet.Cells(r, 41).Value || "")
                }
            };
            state.results.push(entry);
            state.pendingMap[msgPath.toLowerCase()] = true;
        } catch(eR) {}
    }
    state.excelLiveRowCount = state.results.length;
    return state.results.length;
}

// FSO-first, ADODB.Stream-Fallback Pattern (von BGAV-HTA abgeleitet).
// Notwendig fuer UNC/Internet-Zone: ADODB.Stream blockiert mit
// "Datenquelle in anderer Domaene", FSO nicht.
function writeTextFile(path, content) {
    var fsoErr = "", adbErr = "";
    try {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        var f = fso.CreateTextFile(path, true, true); // overwrite=true, unicode=true (UTF-16 LE)
        f.Write(content);
        f.Close();
        return;
    } catch(e) { fsoErr = e.message; }
    try {
        var stm = new ActiveXObject("ADODB.Stream");
        stm.Type = 2; stm.Charset = "utf-8"; stm.Open();
        stm.WriteText(content);
        stm.SaveToFile(path, 2);
        stm.Close();
        return;
    } catch(e) { adbErr = e.message; }
    throw new Error("Schreiben fehlgeschlagen (FSO: " + fsoErr + " / ADODB: " + adbErr + ")");
}

function readTextFile(path) {
    var fso;
    try { fso = new ActiveXObject("Scripting.FileSystemObject"); }
    catch(e) { throw new Error("FSO nicht verfuegbar: " + e.message); }
    if (!fso.FileExists(path)) return "";

    // FSO mit Format-Fallback (Unicode -> SystemDefault -> ASCII).
    // Wir nehmen die laengste plausible Variante.
    var fmts = [-1, -2, 0];
    var best = "";
    for (var i = 0; i < fmts.length; i++) {
        try {
            var f = fso.OpenTextFile(path, 1, false, fmts[i]);
            var t = String(f.ReadAll());
            f.Close();
            if (t.length > best.length) best = t;
        } catch(e) {}
    }
    if (best.charCodeAt(0) === 0xFEFF) best = best.substr(1);
    if (best.length > 0) return best;

    // Letzter Versuch: ADODB.Stream UTF-8 (geht in lokaler Zone)
    try {
        var stm = new ActiveXObject("ADODB.Stream");
        stm.Type = 2; stm.Charset = "utf-8"; stm.Open();
        stm.LoadFromFile(path);
        var t2 = stm.ReadText();
        stm.Close();
        return String(t2 || "");
    } catch(e) {
        throw new Error("Lesen fehlgeschlagen: " + e.message);
    }
}

function clearCache() {
    if (!state.folderPath) { showError("Erst Ordner waehlen."); return; }
    if (!confirm("Cache fuer\n" + state.folderPath + "\nwirklich loeschen?\n(Die .msg-Dateien selbst bleiben unangetastet)")) return;
    try {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        var p = cachePath();
        if (fso.FileExists(p)) fso.DeleteFile(p, true);
        state.results = [];
        state.pendingMap = {};
        renderTable();
        scanFolder();
        showSuccess("Cache geloescht.");
    } catch(e) {
        showError("Cache konnte nicht geloescht werden: " + e.message);
    }
}

// ============================================================================
// ANALYSIS - MAIN
// ============================================================================
function refreshStartButton() {
    var canStart = !state.running &&
                   state.cookie.length > 50 &&
                   state.folderPath.length > 0 &&
                   state.msgFiles.length > 0 &&
                   outlookApp !== null;
    var canQuick = !state.running &&
                   state.folderPath.length > 0 &&
                   state.msgFiles.length > 0 &&
                   outlookApp !== null;
    // XXL braucht KEIN Outlook, nur Ordner + Mails
    var canXxl = !state.running &&
                 state.folderPath.length > 0 &&
                 state.msgFiles.length > 0;
    // Bulk-Triage: braucht Cookie + Folder + Mails (Outlook nicht zwingend)
    var canBulk = !state.running &&
                  state.cookie.length > 50 &&
                  state.folderPath.length > 0 &&
                  state.msgFiles.length > 0;
    document.getElementById("btnStart").disabled = !canStart;
    document.getElementById("btnQuickPool").disabled = !canQuick;
    document.getElementById("btnQuickPoolXxl").disabled = !canXxl;
    document.getElementById("btnBulkTriage").disabled = !canBulk;
    document.getElementById("btnCancel").disabled = !state.running;
    document.getElementById("btnExcel").disabled = state.results.length === 0;
    var btnRf = document.getElementById("btnRefreshLive");
    if (btnRf) btnRf.disabled = !state.excelSheet || state.results.length === 0;
    var btnRR = document.getElementById("btnReReminders");
    if (btnRR) btnRR.disabled = state.running || state.results.length === 0 || state.cookie.length < 50;
    document.getElementById("btnJson").disabled = state.results.length === 0;
    // Rename-Button: braucht nur Ordner + Mails
    var btnRn = document.getElementById("btnRenameWithDate");
    if (btnRn) btnRn.disabled = state.running || state.folderPath.length === 0 || state.msgFiles.length === 0;
    // Collect-Button: braucht Ordner + Mails + min. 1 Datum
    var btnCl = document.getElementById("btnCollectByDate");
    if (btnCl) btnCl.disabled = state.running || state.folderPath.length === 0 || state.msgFiles.length === 0 || (!state.dateFrom && !state.dateTo);
    // Random-Sample-Button: braucht nur Ordner + Mails (Datum optional)
    var btnRs = document.getElementById("btnRandomSample");
    if (btnRs) btnRs.disabled = state.running || state.folderPath.length === 0 || state.msgFiles.length === 0;
}

function startAnalysis() {
    if (state.running) return;
    if (!outlookApp) { showError("Outlook nicht verbunden."); return; }
    if (state.cookie.length < 50) { showError("Cookie fehlt oder ungueltig."); return; }

    saveSettings();
    hideStatus();

    state.parallelN = parseInt(document.getElementById("parallelInput").value) || 3;
    if (state.parallelN < 1) state.parallelN = 1;
    if (state.parallelN > 50) state.parallelN = 50;

    var reanalyze = document.getElementById("reanalyzeAll").checked;
    if (reanalyze) {
        state.results = [];
        state.pendingMap = {};
        // Excel-Cache neu beginnen
        state.excelApp = null; state.excelWb = null; state.excelSheet = null;
        state.excelLiveRowCount = 0;
    }

    // EXCEL-LIVE-CACHE initialisieren. Sichtbares Excel-Fenster, persistentes xlsx.
    if (!ensureExcelCache()) {
        showError("Excel-Live-Cache konnte nicht initialisiert werden. Analyse wird nicht gestartet.");
        return;
    }
    // Falls state.results bereits Daten aus cache.json hat, aber Excel noch leer ist,
    // alle bisherigen Eintraege ins Excel migrieren - VIA BULK-WRITE, NICHT zellweise!
    // Bei 1100+ Vorgaengen wuerde zellweise 41800 sync COM-Calls bedeuten -> Long-Running-
    // Script-Dialog + Excel-Hang. Bulk-Write via VBScript FillRangeFromTsv = 1 Call.
    if (state.results.length > 0 && state.excelLiveRowCount === 0) {
        appendAiLog("OK", "", "Excel-Migration (Bulk): " + state.results.length + " Vorgaenge aus cache.json -> xlsx");
        showInfo("Migriere " + state.results.length + " Vorgaenge in Excel (Bulk-Write)...");
        if (bulkWriteResultsToExcel(state.results)) {
            appendAiLog("OK", "", "Migration erfolgreich. xlsx hat jetzt " + state.excelLiveRowCount + " Zeilen.");
        } else {
            appendAiLog("FEHLER", "", "Bulk-Migration scheiterte - faelle auf zellweisen Write zurueck");
            // Fallback: zellweise (kann Dialog triggern bei vielen Eintraegen)
            for (var mi = 0; mi < state.results.length; mi++) {
                writeResultRowToExcel(state.results[mi]);
            }
        }
        saveExcelLiveCache();
        hideStatus();
    }

    // Determine work list: nur Mails im Zeitraum, minus already-cached
    var filtered = getFilteredMsgFiles();
    var work = [];
    for (var i = 0; i < filtered.length; i++) {
        var p = filtered[i];
        if (!state.pendingMap[p.toLowerCase()]) {
            work.push(p);
        }
    }

    if (work.length === 0) {
        showInfo("Alle " + filtered.length + " Vorgaenge im Zeitraum sind bereits im Cache. (Haken setzen bei 'Alle neu analysieren' um zu erzwingen.)");
        return;
    }

    state.running = true;
    state.cancelled = false;
    state.slots = {};
    state.slotCounter = 0;
    state.nextIdx = 0;
    state.workQueue = work;
    state.workTotal = work.length;
    state.processed = 0;
    state.errors = 0;
    state.abortReason = "";

    document.getElementById("progressContainer").style.display = "block";
    clearAiLog();
    appendAiLog("OK", "", "Start: " + work.length + " Mails, " + state.parallelN + " parallele Slots");
    refreshStartButton();
    renderTable();

    // Kick off main loop
    setTimeout(workerTick, 10);
}

function cancelAnalysis() {
    if (!state.running) return;
    state.cancelled = true;
    showInfo("Pause angefordert - laufende Calls werden zu Ende gefuehrt, dann Cache + Excel...");
    // Mark all slots cancelled; workerTick wird sie in Stage-abhaengig sauber entfernen.
    // RUNNING-Slots: http.Abort() ruft Send-WaitForResponse ab.
    // UPLOADING-Slots: VBS laeuft im OS weiter, wir ignorieren das Result.
    for (var k in state.slots) {
        if (!state.slots.hasOwnProperty(k)) continue;
        var sl = state.slots[k];
        sl.cancelled = true;
        if (sl.stage === "RUNNING" && sl.http) {
            try { sl.http.Abort(); } catch(e) {}
        }
    }
}

function workerTick() {
    if (!state.running) return;

    try {
        // A) Fill ONE free slot per tick (sequential prep). prepareSlot ist synchron
        // (Outlook-COM + sync-HTTP + PDF-Upload via VBS, ~1-3s pro Mail). Wuerde man
        // 10 Slots in EINEM Tick prepa-ren, blockiert man 20-30s und Windows zeigt
        // den Long-Running-Script-Dialog. Stattdessen: pro Tick ein Slot, naechster
        // Tick laeuft nach 30ms - Ramp-up auf 10 Slots dauert ~300ms, dann steady-state.
        if (countSlots() < state.parallelN && state.nextIdx < state.workQueue.length && !state.cancelled && !state.abortReason) {
            var msgPath = state.workQueue[state.nextIdx];
            state.nextIdx++;

            var slot = {
                id: ++state.slotCounter,
                msgPath: msgPath,
                cancelled: false,
                phase: "prep"
            };
            updateProgressText("Vorbereiten: " + getFileName(msgPath));

            // Synchronous prep: open MSG, props, PDFs upload, conv create, async start
            var prepOk = prepareSlot(slot);
            if (prepOk) {
                state.slots["s" + slot.id] = slot;
                appendAiLog("OK", slot.msgPath, "Slot " + slot.id + " gestartet (PDFs=" + (slot.pdfListe ? slot.pdfListe.split(";").length : 0) + ")");
            } else {
                // Prep error - write result, continue
                var r = makeResult(slot, false, slot.errMsg || "Vorbereitung fehlgeschlagen");
                addResult(r);
                state.errors++;
                appendAiLog("FEHLER", slot.msgPath, "Prep: " + (slot.errMsg || "Vorbereitung fehlgeschlagen").substr(0, 80));
                if (isAuthError(r.errMsg)) state.abortReason = "AUTH";
                if (isModelError(r.errMsg)) state.abortReason = "MODELL";
            }
        }

        // B) Poll all slots - State Machine: UPLOADING -> READY -> RUNNING -> DONE
        var toRemove = [];
        var UPLOAD_TIMEOUT_MS = 5 * 60 * 1000;  // 5 Min hartes Upload-Timeout
        for (var key in state.slots) {
            if (!state.slots.hasOwnProperty(key)) continue;
            var s = state.slots[key];

            // --- Cancelled: stille Entfernung (alle Stages) ---
            if (s.cancelled) {
                if (s.stage === "CREATING_CONV" && s.convHttp) { try { s.convHttp.Abort(); } catch(eA) {} }
                if (s.stage === "RUNNING" && s.http) { try { s.http.Abort(); } catch(eA) {} }
                if (s.stage === "UPLOADING" || s.stage === "CREATING_CONV") cleanupSlotTempFiles(s);
                if (s.convId) fireDelete(s.convId);
                toRemove.push(key);
                continue;
            }

            // --- CREATING_CONV: async conversation_id holen, dann uploads feuern ---
            if (s.stage === "CREATING_CONV") {
                var convElapsed = new Date().getTime() - (s.convStartedAt || 0);
                if (convElapsed > UPLOAD_TIMEOUT_MS) {
                    var rCT = makeResult(s, false, "[Conv-Timeout] >5min ohne conversation_id");
                    addResult(rCT);
                    state.errors++;
                    appendAiLog("FEHLER", s.msgPath, "Conv-Timeout >5min");
                    cleanupSlotTempFiles(s);
                    toRemove.push(key);
                    continue;
                }
                var convDone = false; var convWinErr = null;
                try { convDone = s.convHttp.WaitForResponse(0); } catch(e) { convWinErr = e; }
                if (convWinErr) {
                    var cMsg = (convWinErr.message || "").toString();
                    var cIsSendRace = cMsg.indexOf("Send") >= 0 || cMsg.indexOf("send") >= 0;
                    if (!s.convRetries) s.convRetries = 0;
                    if (cIsSendRace && s.convRetries < 8) {
                        s.convRetries++;
                        setSlotPhase(s, "Conv-Wait retry " + s.convRetries + "/8");
                    } else {
                        var rCE = makeResult(s, false, "[CONV-ASYNC] " + cMsg);
                        addResult(rCE);
                        state.errors++;
                        appendAiLog("FEHLER", s.msgPath, "[CONV-ASYNC] " + cMsg.substr(0, 80));
                        cleanupSlotTempFiles(s);
                        toRemove.push(key);
                    }
                    continue;
                }
                if (!convDone) {
                    setSlotPhase(s, "Conv-Wait (" + Math.round(convElapsed/1000) + "s)");
                    continue;
                }
                // convHttp ist fertig - convId extrahieren
                try {
                    var convStatus = 0;
                    try { convStatus = s.convHttp.Status; } catch(eS) {}
                    var convResp = "";
                    try { convResp = s.convHttp.ResponseText; } catch(eR) {}
                    if (convStatus !== 200) throw new Error("HTTP " + convStatus + " - " + convResp.substr(0, 200));
                    s.convId = parseJsonStr(convResp, "id");
                    if (!s.convId) throw new Error("Keine conversation_id in: " + convResp.substr(0, 200));
                } catch(eC) {
                    var rCE2 = makeResult(s, false, "[CONV] " + eC.message);
                    addResult(rCE2);
                    state.errors++;
                    appendAiLog("FEHLER", s.msgPath, "[CONV] " + eC.message.substr(0, 80));
                    cleanupSlotTempFiles(s);
                    toRemove.push(key);
                    continue;
                }
                // PDF-Uploads feuern oder direkt READY
                if (s.tempPdfPaths && s.tempPdfPaths.length > 0) {
                    s.uploadHandles = [];
                    try {
                        var fsoU = new ActiveXObject("Scripting.FileSystemObject");
                        for (var piX = 0; piX < s.tempPdfPaths.length; piX++) {
                            var pdfX = s.tempPdfPaths[piX];
                            var fnX = fsoU.GetFileName(pdfX);
                            s.uploadHandles.push(uploadPdfStartAsync(s.convId, pdfX, fnX));
                        }
                        s.uploadStartedAt = new Date().getTime();
                        s.stage = "UPLOADING";
                        setSlotPhase(s, "Upload 0/" + s.uploadHandles.length + " (async)");
                    } catch(eU) {
                        var rUEf = makeResult(s, false, "[Upload-Start] " + eU.message);
                        addResult(rUEf);
                        state.errors++;
                        appendAiLog("FEHLER", s.msgPath, "[Upload-Start] " + eU.message.substr(0, 80));
                        cleanupSlotTempFiles(s);
                        if (s.convId) fireDelete(s.convId);
                        toRemove.push(key);
                        continue;
                    }
                } else {
                    s.docIdsJson = "[]";
                    s.stage = "READY";
                    cleanupSlotTempFiles(s);
                }
                // Drop-through zu UPLOADING/READY in diesem Tick
            }

            // --- UPLOADING: Async PDF-Uploads warten, dann finalize -> READY ---
            if (s.stage === "UPLOADING") {
                var elapsed = new Date().getTime() - (s.uploadStartedAt || 0);
                if (elapsed > UPLOAD_TIMEOUT_MS) {
                    var rU = makeResult(s, false, "[Upload-Timeout] >5min ohne Result");
                    addResult(rU);
                    state.errors++;
                    appendAiLog("FEHLER", s.msgPath, "Upload-Timeout >5min");
                    cleanupSlotTempFiles(s);
                    if (s.convId) fireDelete(s.convId);
                    toRemove.push(key);
                    continue;
                }
                if (pollSlotUploads(s)) {
                    if (finalizeSlotUploads(s)) {
                        // Stage jetzt READY - in diesem Tick gleich startAnswer probieren (drop through)
                    } else {
                        var rUE = makeResult(s, false, s.errMsg || "Upload fehlgeschlagen");
                        addResult(rUE);
                        state.errors++;
                        appendAiLog("FEHLER", s.msgPath, s.errMsg || "Upload");
                        if (s.convId) fireDelete(s.convId);
                        toRemove.push(key);
                        continue;
                    }
                } else {
                    // Noch nicht alle Uploads fertig, naechster Tick erneut
                    continue;
                }
            }

            // --- READY: startAnswerAsync feuern -> RUNNING ---
            if (s.stage === "READY") {
                if (slotStartAnswer(s)) {
                    // Stage jetzt RUNNING, drop through zu Polling
                } else {
                    var rRE = makeResult(s, false, s.errMsg || "Start-Fehler");
                    addResult(rRE);
                    state.errors++;
                    appendAiLog("FEHLER", s.msgPath, s.errMsg || "Start");
                    if (s.convId) fireDelete(s.convId);
                    toRemove.push(key);
                    continue;
                }
            }

            // --- RUNNING: WaitForResponse(0) pollen ---
            if (s.stage === "RUNNING") {
                var done = false;
                var winErr = null;
                try {
                    done = s.http.WaitForResponse(0);
                } catch(e) {
                    winErr = e;
                }

                if (winErr) {
                    var msg = (winErr.message || "").toString();
                    var isSendRace = msg.indexOf("Send") >= 0 || msg.indexOf("send") >= 0;
                    if (!s.waitRetries) s.waitRetries = 0;
                    if (isSendRace && s.waitRetries < 8) {
                        s.waitRetries++;
                        setSlotPhase(s, "warte (retry " + s.waitRetries + "/8)");
                        // bleibt im Slot, naechster Tick erneut
                    } else {
                        var r2 = makeResult(s, false, "[ASYNC] " + msg);
                        addResult(r2);
                        state.errors++;
                        appendAiLog("FEHLER", s.msgPath, "[ASYNC] " + msg.substr(0, 80));
                        fireDelete(s.convId);
                        toRemove.push(key);
                    }
                } else if (done) {
                    var r3 = finalizeSlot(s);
                    addResult(r3);
                    if (r3.ok) state.processed++; else state.errors++;
                    if (isAuthError(r3.errMsg)) state.abortReason = "AUTH";
                    if (isModelError(r3.errMsg)) state.abortReason = "MODELL";
                    var d3 = r3.data || {};
                    appendAiLog(r3.ok ? "OK" : "FEHLER", s.msgPath,
                        r3.ok ? ((d3.klassifikation || "?") + " | " + (d3.maklerpool || "")) : (r3.errMsg || "")
                    );
                    fireDelete(s.convId);
                    toRemove.push(key);
                }
            }
        }
        for (var i = 0; i < toRemove.length; i++) {
            delete state.slots[toRemove[i]];
        }

        // C) Status update - Progressbar + Slot-Liste
        var inflight = countSlots();
        var done2 = state.processed + state.errors;
        updateProgress(done2, state.workTotal,
            inflight + " parallel | " +
            state.processed + " ok | " +
            state.errors + " fehler | " +
            (state.workTotal - state.nextIdx) + " warten");
        renderSlotStatus();

        // D) Save cache every batch finished. cache.json bleibt als Backup,
        // aber das xlsx ist die neue Wahrheitsquelle. wb.Save alle ~10 neue
        // Vorgaenge - sonst wird's bei 5000 Speicher-Aufrufen langsam.
        if (toRemove.length > 0) {
            saveCache();
            renderTable();
            if (!state._excelSaveCounter) state._excelSaveCounter = 0;
            state._excelSaveCounter += toRemove.length;
            if (state._excelSaveCounter >= 10) {
                saveExcelLiveCache();
                state._excelSaveCounter = 0;
            }
        }

        // E) Continue or finish?
        if (state.cancelled) {
            // Wait for inflight to abort (which should be quick), then finish
            if (countSlots() === 0) {
                finishAnalysis("Abgebrochen");
                return;
            }
        } else if (state.abortReason) {
            // Abort - cancel inflight
            for (var k2 in state.slots) {
                if (state.slots.hasOwnProperty(k2)) {
                    try { state.slots[k2].http.Abort(); } catch(e) {}
                }
            }
            if (countSlots() === 0) {
                finishAnalysis(state.abortReason);
                return;
            }
        } else if (state.nextIdx >= state.workQueue.length && countSlots() === 0) {
            finishAnalysis("OK");
            return;
        }
    } catch(e) {
        showError("Pipeline-Fehler: " + e.message);
        finishAnalysis("ERROR");
        return;
    }

    // Schedule next tick:
    // - 0ms wenn freie Slots da sind UND noch Mails zu prepa-ren - so fuellen wir
    //   sofort nach Completion einen neuen Slot nach (Rolling-Replacement).
    // - 200ms wenn alle Slots voll (nur polling, kein CPU-Burner).
    // - 200ms wenn keine Mails mehr - workerTick wartet auf die letzten Inflights.
    var hasFreeSlot = countSlots() < state.parallelN;
    var hasMoreWork = state.nextIdx < state.workQueue.length;
    var delay = (hasFreeSlot && hasMoreWork) ? 0 : 200;
    setTimeout(workerTick, delay);
}

function countSlots() {
    var n = 0;
    for (var k in state.slots) if (state.slots.hasOwnProperty(k)) n++;
    return n;
}

function finishAnalysis(reason) {
    state.running = false;
    saveCache();
    saveExcelLiveCache();   // finaler Save des xlsx
    // Auswertung-Sheet im Live-xlsx neu bauen (mit allen aktuellen Daten)
    try { rebuildLiveAuswertungSheet(); } catch(eA) {}
    try { saveExcelLiveCache(); } catch(eS) {}
    renderTable();
    document.getElementById("progressContainer").style.display = "none";
    document.getElementById("slotStatus").innerText = "";
    refreshStartButton();

    var msg = "";
    switch (reason) {
        case "OK":
            msg = "Analyse fertig: " + state.processed + " erfolgreich, " + state.errors + " Fehler.";
            showSuccess(msg);
            break;
        case "Abgebrochen":
            msg = "Pausiert. Bisher: " + state.processed + " ok, " + state.errors + " fehler. Cache geschrieben - klicke 'Start', um nahtlos weiterzumachen (analysierte Mails werden uebersprungen). Excel wird jetzt geoeffnet...";
            showInfo(msg);
            // Auto-Excel-Export mit aktuellen Ergebnissen (inkl. Stats)
            try {
                if (state.results && state.results.length > 0) {
                    exportToExcel();
                }
            } catch(eExp) {
                showError("Pause-Excel-Export fehlgeschlagen: " + eExp.message + " - Daten sind aber im Cache, manueller Excel-Export per Button moeglich.");
            }
            break;
        case "AUTH":
            showError("Cookie abgelaufen (HTTP 403). Bitte oben neuen Cookie einfuegen + speichern, dann erneut starten. Bisher: " + state.processed + " ok, " + state.errors + " fehler.");
            break;
        case "MODELL":
            showError("Modell wird nicht unterstuetzt. Anderen Modell-Namen in Einstellungen probieren (z.B. gpt-51-chat). Bisher: " + state.processed + " ok, " + state.errors + " fehler.");
            break;
        default:
            showError("Pipeline-Fehler. Bisher: " + state.processed + " ok, " + state.errors + " fehler.");
    }
}

// ============================================================================
// SLOT LIFECYCLE
// ============================================================================
function prepareSlot(slot) {
    var step = "init";
    try {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        step = "MSG oeffnen";
        setSlotPhase(slot, "MSG oeffnen");
        var it = outlookApp.Session.OpenSharedItem(slot.msgPath);

        step = "Properties lesen";
        setSlotPhase(slot, "Properties lesen");
        slot.datum = "";
        slot.absName = "";
        slot.absMail = "";
        slot.empfaenger = "";
        slot.betreff = "";
        slot.body = "";
        try {
            var d = new Date(it.ReceivedTime);
            slot.datum = pad(d.getDate()) + "." + pad(d.getMonth()+1) + "." + d.getFullYear() + " " + pad(d.getHours()) + ":" + pad(d.getMinutes());
            slot.dateIso = d.getFullYear() + "-" + pad(d.getMonth()+1) + "-" + pad(d.getDate()) + "T" + pad(d.getHours()) + ":" + pad(d.getMinutes()) + ":00";
        } catch(e) {}
        try { slot.absName = String(it.SenderName || ""); } catch(e) {}
        try { slot.absMail = getSenderEmail(it); } catch(e) {}
        try { slot.empfaenger = String(it.To || ""); } catch(e) {}
        try { slot.betreff = String(it.Subject || ""); } catch(e) {}
        try { slot.body = String(it.Body || ""); } catch(e) {}

        step = "Anhaenge extrahieren";
        setSlotPhase(slot, "Anhaenge extrahieren");
        slot.anhangAlle = "";
        slot.pdfListe = "";
        var pdfPaths = [];
        var tempDir = getEnv("TEMP") + "\\ergo_va_hta_" + slot.id;
        try { if (!fso.FolderExists(tempDir)) fso.CreateFolder(tempDir); } catch(e) {}

        var attCount = 0;
        try { attCount = it.Attachments.Count; } catch(e) {}
        for (var a = 1; a <= attCount; a++) {
            try {
                var att = it.Attachments.Item(a);
                var fname = String(att.FileName || "");
                if (fname.length > 0) {
                    if (slot.anhangAlle) slot.anhangAlle += "; ";
                    slot.anhangAlle += fname;
                    if (fname.toLowerCase().substr(-4) === ".pdf") {
                        if (pdfPaths.length >= MAX_PDFS) {
                            // Sehr selten - nur warnen
                            if (slot.pdfListe) slot.pdfListe += "; ";
                            slot.pdfListe += "[uebersprungen: " + fname + "]";
                        } else {
                            var safe = sanitizeFilename(fname);
                            var outPath = tempDir + "\\" + safe;
                            att.SaveAsFile(outPath);
                            if (fso.FileExists(outPath)) {
                                var sizeMb = fso.GetFile(outPath).Size / 1048576;
                                if (sizeMb <= MAX_PDF_MB) {
                                    pdfPaths.push(outPath);
                                    if (slot.pdfListe) slot.pdfListe += "; ";
                                    slot.pdfListe += fname;
                                } else {
                                    // Datei zu gross - vermerken aber nicht hochladen
                                    if (slot.pdfListe) slot.pdfListe += "; ";
                                    slot.pdfListe += "[zu-gross-" + Math.round(sizeMb) + "MB: " + fname + "]";
                                    try { fso.DeleteFile(outPath, true); } catch(e) {}
                                }
                            }
                        }
                    }
                }
            } catch(e) {}
        }

        step = "MSG schliessen";
        try { it.Close(1); } catch(e) {}

        step = "Prompt bauen";
        setSlotPhase(slot, "Prompt bauen");
        var bodyShort = slot.body;
        if (bodyShort.length > BODY_CAP) bodyShort = bodyShort.substr(0, BODY_CAP) + " [...gekuerzt]";
        slot.prompt = buildVorgangPrompt(slot.datum, slot.absName, slot.absMail, slot.betreff, bodyShort, slot.anhangAlle, slot.pdfListe);

        step = "Conversation anlegen (async)";
        setSlotPhase(slot, "Conversation anlegen (async)");
        slot.convHttp = createConversationAsyncFire(slot.prompt);
        slot.convStartedAt = new Date().getTime();
        slot.tempPdfPaths = pdfPaths;     // Cleanup nach Upload-Finalize
        slot.tempDir = tempDir;
        slot.stage = "CREATING_CONV";
        // Achtung: convId und uploadHandles werden im naechsten Tick gesetzt,
        // sobald die async PUT /conversation antwortet. Das macht 15-50 Slots
        // wirklich gleichzeitig startbar.
        return true;
    } catch(e) {
        slot.errMsg = "[" + step + "] " + e.message;
        return false;
    }
}

// Polling der async-Uploads. Setzt slot.phase fuer Live-Anzeige und liefert true,
// wenn ALLE Handles fertig sind (Result-Datei existiert).
function pollSlotUploads(slot) {
    if (!slot.uploadHandles || slot.uploadHandles.length === 0) return true;
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var doneCount = 0;
    for (var i = 0; i < slot.uploadHandles.length; i++) {
        var h = slot.uploadHandles[i];
        if (h.done) { doneCount++; continue; }
        if (fso.FileExists(h.resultPath)) {
            // Datei da, aber lesen tut finalize - hier nur "vorhanden" markieren.
            doneCount++;
        }
    }
    // Live-Anzeige
    setSlotPhase(slot, "Upload " + doneCount + "/" + slot.uploadHandles.length + " (async)");
    return doneCount === slot.uploadHandles.length;
}

// Liest alle Result-Dateien ein, baut docIdsJson, cleanup temp-PDFs. Setzt
// slot.stage="READY" oder bei Fehler slot.errMsg + return false.
function finalizeSlotUploads(slot) {
    var ids = [];
    for (var i = 0; i < slot.uploadHandles.length; i++) {
        var h = slot.uploadHandles[i];
        if (!h.done) uploadPdfReadResult(h);
        if (h.errMsg) {
            slot.errMsg = "[Upload " + h.fileName + "] " + h.errMsg;
            // Restliche Handles trotzdem cleanen
            for (var j = i; j < slot.uploadHandles.length; j++) {
                if (!slot.uploadHandles[j].done) uploadPdfReadResult(slot.uploadHandles[j]);
            }
            cleanupSlotTempFiles(slot);
            return false;
        }
        if (h.docId) ids.push(h.docId);
    }
    slot.docIdsJson = ids.length === 0 ? "[]" : ('["' + ids.join('","') + '"]');
    cleanupSlotTempFiles(slot);
    slot.stage = "READY";
    return true;
}

function cleanupSlotTempFiles(slot) {
    try {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        if (slot.tempPdfPaths) {
            for (var i = 0; i < slot.tempPdfPaths.length; i++) {
                try { fso.DeleteFile(slot.tempPdfPaths[i], true); } catch(e) {}
            }
        }
        if (slot.tempDir && fso.FolderExists(slot.tempDir)) {
            try { fso.DeleteFolder(slot.tempDir, true); } catch(e) {}
        }
    } catch(e) {}
}

// Feuert den Async-Antwort-Call. Setzt slot.http und stage="RUNNING".
function slotStartAnswer(slot) {
    setSlotPhase(slot, "warte auf GPT-Antwort...");
    try {
        slot.http = startAnswerAsync(slot.convId, slot.prompt, slot.docIdsJson);
        slot.stage = "RUNNING";
        return true;
    } catch(e) {
        slot.errMsg = "[Async Antwort-Call] " + e.message;
        return false;
    }
}

function finalizeSlot(slot) {
    try {
        var status = 0;
        try { status = slot.http.Status; } catch(e) {}
        var resp = "";
        try { resp = slot.http.ResponseText; } catch(e) {}

        if (slot.cancelled) {
            return makeResult(slot, false, "[ABGEBROCHEN]");
        }

        var answer = extractAssistantFromNdjson(resp);
        if (!answer || answer.length === 0) {
            var hint = extractServerHint(resp);
            var msg = (status !== 200) ? ("HTTP " + status + ". " + hint) : ("Keine Assistant-Nachricht. " + hint);
            return makeResult(slot, false, "[ANTWORT] " + msg);
        }

        var antwort = jsonUnescape(answer).replace(/\\n/g, "\n");
        var dict = parseGptJson(antwort);
        if (!dict) {
            return makeResult(slot, false, "[PARSE] JSON-Antwort nicht lesbar: " + antwort.substr(0, 200));
        }

        var r = makeResult(slot, true, "");
        r.data = dict;
        return r;
    } catch(e) {
        return makeResult(slot, false, "[FINAL] " + e.message);
    }
}

function makeResult(slot, ok, errMsg) {
    return {
        msgPath: slot.msgPath,
        msgFile: getFileName(slot.msgPath),
        datum: slot.datum || "",
        dateIso: slot.dateIso || "",
        absName: slot.absName || "",
        absMail: slot.absMail || "",
        empfaenger: slot.empfaenger || "",
        betreff: slot.betreff || "",
        anhangAlle: slot.anhangAlle || "",
        pdfListe: slot.pdfListe || "",
        ok: ok,
        errMsg: errMsg || "",
        data: null,
        analyzedAt: isoNow()
    };
}

function addResult(r) {
    // Replace existing entry for same path, or append
    var key = String(r.msgPath).toLowerCase();
    for (var i = 0; i < state.results.length; i++) {
        if (String(state.results[i].msgPath).toLowerCase() === key) {
            // Update: behalte existing _excelRow falls vorhanden
            if (state.results[i]._excelRow && !r._excelRow) r._excelRow = state.results[i]._excelRow;
            state.results[i] = r;
            state.pendingMap[key] = true;
            // Excel-Live-Write (Update vorhandener Zeile)
            writeResultRowToExcel(r);
            return;
        }
    }
    state.results.push(r);
    state.pendingMap[key] = true;
    // Excel-Live-Write (Append neue Zeile)
    writeResultRowToExcel(r);
}

// ============================================================================
// ERGO GPT API
// ============================================================================
function createConversationSync(prompt) {
    // WinHttp statt MSXML2 fuer konsistenteres UTF-8-Verhalten
    var http = new ActiveXObject("WinHttp.WinHttpRequest.5.1");
    http.Open("PUT", ERGO_BASE + "/conversation", false);
    try { http.SetProxy(0); } catch(e) {}
    setWinHttpHeaders(http);
    http.SetRequestHeader("Content-Type", "application/json;charset=UTF-8");
    var payload = buildPayload(cleanForJson(prompt), "[]");
    // Als UTF-8-Bytes senden -> Umlaute landen korrekt auf der Leitung
    var bodyBytes = stringToUtf8Bytes(payload);
    if (bodyBytes) http.Send(bodyBytes); else http.Send(payload);
    if (http.Status !== 200) {
        throw new Error("Create failed: " + http.Status + " - " + (http.ResponseText || "").substr(0, 200));
    }
    return parseJsonStr(http.ResponseText, "id");
}

// Async-Variante: feuert PUT /conversation mit async=true Open. Send kehrt
// sofort zurueck, der Server-Request laeuft im Hintergrund. workerTick
// polled spaeter via WaitForResponse(0) und liest die conversation_id ein.
// Das ist der entscheidende Trick um 15-50 Slots WIRKLICH gleichzeitig zu
// starten - createConversationSync hat vorher pro Slot 200-500ms blockiert.
function createConversationAsyncFire(prompt) {
    var http = new ActiveXObject("WinHttp.WinHttpRequest.5.1");
    try { http.SetTimeouts(30000, 30000, 60000, 180000); } catch(e) {}
    http.Open("PUT", ERGO_BASE + "/conversation", true);   // async = true
    try { http.SetProxy(0); } catch(e) {}
    setWinHttpHeaders(http);
    http.SetRequestHeader("Content-Type", "application/json;charset=UTF-8");
    var payload = buildPayload(cleanForJson(prompt), "[]");
    var bodyBytes = stringToUtf8Bytes(payload);
    if (bodyBytes) http.Send(bodyBytes); else http.Send(payload);
    return http;
}

function startAnswerAsync(convId, prompt, docIdsJson, recvMs) {
    var http = new ActiveXObject("WinHttp.WinHttpRequest.5.1");
    var payload = buildPayload(cleanForJson(prompt), docIdsJson);
    // recvMs: Receive-Timeout. Batch (5 Mails in 1 Prompt) braucht deutlich
    // laenger als ein Einzel-Call -> Default 180s, Batch uebergibt mehr.
    try { http.SetTimeouts(30000, 30000, 60000, recvMs || 180000); } catch(e) {}
    http.Open("PUT", ERGO_BASE + "/conversation/" + convId, true);
    try { http.SetProxy(0); } catch(e) {}
    setWinHttpHeaders(http);
    http.SetRequestHeader("Content-Type", "application/json;charset=UTF-8");
    http.SetRequestHeader("Accept", "*/*");
    // UTF-8-Bytes statt String -> Umlaute korrekt
    var bodyBytes = stringToUtf8Bytes(payload);
    if (bodyBytes) http.Send(bodyBytes); else http.Send(payload);
    return http;
}

function fireDelete(convId) {
    if (!convId) return;
    try {
        var http = new ActiveXObject("WinHttp.WinHttpRequest.5.1");
        http.Open("DELETE", ERGO_BASE + "/conversation", true);
        try { http.SetProxy(0); } catch(e) {}
        setWinHttpHeaders(http);
        http.SetRequestHeader("Content-Type", "application/json;charset=UTF-8");
        http.SetRequestHeader("Accept", "*/*");
        http.Send('{"conversation_ids":["' + convId + '"]}');
        // fire and forget
    } catch(e) {}
}

// Pure-JS Multipart-Builder (Ersatz fuer den ehemaligen VBScript-Helper,
// der in HTAs aus UNC/Internet-Zone fuer JS unzugaenglich war).
// Setzt voraus, dass ADODB.Stream Binary-I/O auf %TEMP%-Pfade darf -
// das geht auch in Internet-Zone, weil die Source-Datei lokal ist.
function buildMultipartBody(pre, filePath, post) {
    var stm = new ActiveXObject("ADODB.Stream");
    stm.Type = 1; // binary
    stm.Open();

    // Pre (UTF-8 ohne BOM)
    var preBytes = stringToUtf8Bytes(pre);
    if (preBytes) stm.Write(preBytes);

    // File
    var fileStm = new ActiveXObject("ADODB.Stream");
    fileStm.Type = 1;
    fileStm.Open();
    fileStm.LoadFromFile(filePath);
    stm.Write(fileStm.Read());
    fileStm.Close();

    // Post (UTF-8 ohne BOM)
    var postBytes = stringToUtf8Bytes(post);
    if (postBytes) stm.Write(postBytes);

    stm.Position = 0;
    var bytes = stm.Read();
    stm.Close();
    return bytes;
}

function stringToUtf8Bytes(s) {
    if (!s || s.length === 0) return null;
    var stm = new ActiveXObject("ADODB.Stream");
    stm.Type = 2; stm.Charset = "utf-8"; stm.Open();
    stm.WriteText(s);
    stm.Position = 0;
    stm.Type = 1;
    if (stm.Size >= 3) stm.Read(3); // skip BOM
    var b = stm.Read();
    stm.Close();
    return b;
}

// Feuert einen VBS-Upload-Subprozess fire-and-forget (Shell.Run mit
// bWaitOnReturn=false). Liefert sofort einen Handle zurueck. Der eigentliche
// Upload laeuft asynchron in einem separaten Prozess. Polling per FileExists
// auf handle.resultPath - sobald die Datei existiert, ist der Upload fertig.
// So koennen 15-50 Uploads PARALLEL laufen (jeder in eigenem OS-Prozess),
// statt nacheinander mit ~1-3s blocking pro PDF.
function uploadPdfStartAsync(convId, pdfPath, fileName) {
    var shell = new ActiveXObject("WScript.Shell");
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var tempDir = shell.ExpandEnvironmentStrings("%TEMP%");
    var stamp = String(new Date().getTime()) + "_" + Math.floor(Math.random() * 1000000) + "_" + Math.floor(Math.random() * 1000000);
    var vbsPath = tempDir + "\\ergo_upload_" + stamp + ".vbs";
    var resultPath = tempDir + "\\ergo_result_" + stamp + ".txt";
    var cookiePath = tempDir + "\\ergo_cookie_" + stamp + ".txt";

    // Falls stale Result-Datei existiert: weg, sonst koennten wir sie als "fertig" misinterpretieren
    try { fso.DeleteFile(resultPath, true); } catch(e) {}

    // Cookie + VBS schreiben
    var cookieFile = fso.CreateTextFile(cookiePath, true, false);
    cookieFile.Write(state.cookie);
    cookieFile.Close();
    var vbsFile = fso.CreateTextFile(vbsPath, true, false);
    vbsFile.Write(buildUploadVbs());
    vbsFile.Close();

    var fnArg = fileName.replace(/"/g, '""');
    var pdfArg = pdfPath.replace(/"/g, '""');

    var cmd = 'wscript.exe //NoLogo //B "' + vbsPath + '" ' +
              '"' + cookiePath + '" ' +
              '"' + convId + '" ' +
              '"' + pdfArg + '" ' +
              '"' + fnArg + '" ' +
              '"' + resultPath + '"';

    // FIRE-AND-FORGET: bWaitOnReturn=false. Run gibt sofort zurueck (oder wirft, falls Process nicht startbar).
    shell.Run(cmd, 0, false);

    return {
        vbsPath: vbsPath,
        resultPath: resultPath,
        cookiePath: cookiePath,
        fileName: fileName,
        pdfPath: pdfPath,
        startedAt: new Date().getTime(),
        done: false,
        docId: null,
        errMsg: null
    };
}

// Liest die Result-Datei eines fertigen Uploads, extrahiert document_id oder
// setzt errMsg. Cleanup der temp-Dateien danach. Setzt handle.done=true.
function uploadPdfReadResult(handle) {
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    try {
        if (!fso.FileExists(handle.resultPath)) {
            handle.errMsg = "Result-Datei fehlt (Timeout? VBS crashed?)";
            handle.done = true;
            return;
        }
        var rf = fso.OpenTextFile(handle.resultPath, 1, false, -2);
        var content = rf.ReadAll();
        rf.Close();
        var data = null;
        try { data = eval("(" + content + ")"); } catch(eP) {
            handle.errMsg = "Result nicht parsebar: " + content.substr(0, 200);
            handle.done = true;
            return;
        }
        if (!data || data.status === undefined) {
            handle.errMsg = "Result ohne status: " + content.substr(0, 200);
            handle.done = true;
            return;
        }
        if (data.status !== 200) {
            handle.errMsg = "HTTP " + data.status + ": " + (data.body || "").substr(0, 200);
            handle.done = true;
            return;
        }
        var did = parseJsonStr(data.body || "", "document_id");
        if (!did) {
            handle.errMsg = "Keine document_id in: " + (data.body || "").substr(0, 200);
            handle.done = true;
            return;
        }
        handle.docId = did;
        handle.done = true;
    } finally {
        try { fso.DeleteFile(handle.vbsPath, true); } catch(e) {}
        try { fso.DeleteFile(handle.resultPath, true); } catch(e) {}
        try { fso.DeleteFile(handle.cookiePath, true); } catch(e) {}
    }
}

// VBScript-Uploader: liest Cookie aus Datei, PDF als Binary via
// ADODB.Stream, baut Multipart-Body, sendet via WinHttp.WinHttpRequest,
// schreibt {status, body} als JSON in resultPath. Laeuft in wscript.exe
// ohne IE-Zone-Restriktionen.
function buildUploadVbs() {
    var v = [];
    v.push("Option Explicit");
    v.push("Dim cookieFile, convId, pdfPath, fileName, resultPath");
    v.push("cookieFile = WScript.Arguments(0)");
    v.push("convId = WScript.Arguments(1)");
    v.push("pdfPath = WScript.Arguments(2)");
    v.push("fileName = WScript.Arguments(3)");
    v.push("resultPath = WScript.Arguments(4)");
    v.push("");
    v.push("Sub WriteResult(status, body)");
    v.push("    Dim esc, json, fso, f");
    v.push("    esc = body");
    v.push("    esc = Replace(esc, \"\\\", \"\\\\\")");
    v.push("    esc = Replace(esc, \"\"\"\", \"\\\"\"\")");
    v.push("    esc = Replace(esc, vbCrLf, \"\\n\")");
    v.push("    esc = Replace(esc, vbCr, \"\\n\")");
    v.push("    esc = Replace(esc, vbLf, \"\\n\")");
    v.push("    esc = Replace(esc, vbTab, \" \")");
    v.push("    json = \"{\"\"status\"\":\" & status & \",\"\"body\"\":\"\"\" & esc & \"\"\"}\"");
    v.push("    Set fso = CreateObject(\"Scripting.FileSystemObject\")");
    v.push("    Set f = fso.CreateTextFile(resultPath, True, False)");
    v.push("    f.Write json");
    v.push("    f.Close");
    v.push("End Sub");
    v.push("");
    // KEIN "Started"-Placeholder mehr: das JS polled per FileExists auf resultPath.
    // Existiert die Datei, ist der Upload fertig (egal ob OK oder Error - in beiden
    // Faellen schreibt das VBS-Skript ein Result-Objekt). Errors im VBS schreiben
    // status=0 ueber WriteResult (siehe PDF-read- und HTTP-Error-Handler unten).
    v.push("On Error Resume Next");
    v.push("Err.Clear");
    v.push("");
    v.push("Dim fsoMain, ts, cookie");
    v.push("Set fsoMain = CreateObject(\"Scripting.FileSystemObject\")");
    v.push("Set ts = fsoMain.OpenTextFile(cookieFile, 1, False, 0)");
    v.push("cookie = ts.ReadAll");
    v.push("ts.Close");
    v.push("cookie = Trim(cookie)");
    v.push("");
    v.push("Dim re, xsrf");
    v.push("xsrf = \"\"");
    v.push("Set re = CreateObject(\"VBScript.RegExp\")");
    v.push("re.Pattern = \"(?:XSRF-TOKEN|CSRF-TOKEN|csrfToken|_csrf)=([^;]+)\"");
    v.push("re.IgnoreCase = True");
    v.push("If re.Test(cookie) Then xsrf = re.Execute(cookie)(0).SubMatches(0)");
    v.push("");
    v.push("Dim stmFile, fileBytes");
    v.push("Set stmFile = CreateObject(\"ADODB.Stream\")");
    v.push("stmFile.Type = 1");
    v.push("stmFile.Open");
    v.push("stmFile.LoadFromFile pdfPath");
    v.push("fileBytes = stmFile.Read");
    v.push("stmFile.Close");
    v.push("If Err.Number <> 0 Then");
    v.push("    WriteResult 0, \"PDF read error: \" & Err.Description");
    v.push("    WScript.Quit 0");
    v.push("End If");
    v.push("");
    v.push("Dim guid, boundary");
    v.push("guid = CreateObject(\"Scriptlet.TypeLib\").Guid");
    v.push("guid = Replace(Replace(Replace(guid, \"{\", \"\"), \"}\", \"\"), \"-\", \"\")");
    v.push("boundary = \"----WebKitFormBoundary\" & Left(guid, 16)");
    v.push("");
    v.push("Dim pre, post");
    v.push("pre = \"--\" & boundary & vbCrLf");
    v.push("pre = pre & \"Content-Disposition: form-data; name=\"\"file_content\"\"; filename=\"\"\" & fileName & \"\"\"\" & vbCrLf");
    v.push("pre = pre & \"Content-Type: application/pdf\" & vbCrLf & vbCrLf");
    v.push("post = vbCrLf & \"--\" & boundary & vbCrLf");
    v.push("post = post & \"Content-Disposition: form-data; name=\"\"filename\"\"\" & vbCrLf & vbCrLf");
    v.push("post = post & fileName & vbCrLf");
    v.push("post = post & \"--\" & boundary & vbCrLf");
    v.push("post = post & \"Content-Disposition: form-data; name=\"\"conversation_id\"\"\" & vbCrLf & vbCrLf");
    v.push("post = post & convId & vbCrLf");
    v.push("post = post & \"--\" & boundary & \"--\" & vbCrLf");
    v.push("");
    v.push("Function Utf8Bytes(s)");
    v.push("    Dim st");
    v.push("    Set st = CreateObject(\"ADODB.Stream\")");
    v.push("    st.Type = 2 : st.Charset = \"utf-8\" : st.Open");
    v.push("    st.WriteText s");
    v.push("    st.Position = 0");
    v.push("    st.Type = 1");
    v.push("    If st.Size >= 3 Then st.Read 3");
    v.push("    Utf8Bytes = st.Read");
    v.push("    st.Close");
    v.push("End Function");
    v.push("");
    v.push("Dim stmBody, body");
    v.push("Set stmBody = CreateObject(\"ADODB.Stream\")");
    v.push("stmBody.Type = 1");
    v.push("stmBody.Open");
    v.push("stmBody.Write Utf8Bytes(pre)");
    v.push("stmBody.Write fileBytes");
    v.push("stmBody.Write Utf8Bytes(post)");
    v.push("stmBody.Position = 0");
    v.push("body = stmBody.Read");
    v.push("stmBody.Close");
    v.push("");
    v.push("Dim http");
    v.push("Set http = CreateObject(\"WinHttp.WinHttpRequest.5.1\")");
    v.push("http.SetTimeouts 30000, 30000, 60000, 180000");
    v.push("http.Open \"POST\", \"https://gpt.ergo.com/api/document\", False");
    v.push("http.SetProxy 0");
    v.push("http.SetRequestHeader \"User-Agent\", \"Mozilla/5.0\"");
    v.push("http.SetRequestHeader \"Accept\", \"*/*\"");
    v.push("http.SetRequestHeader \"Cookie\", cookie");
    v.push("If Len(xsrf) > 0 Then");
    v.push("    http.SetRequestHeader \"X-XSRF-TOKEN\", xsrf");
    v.push("    http.SetRequestHeader \"X-CSRF-TOKEN\", xsrf");
    v.push("End If");
    v.push("http.SetRequestHeader \"Origin\", \"https://gpt.ergo.com\"");
    v.push("http.SetRequestHeader \"Referer\", \"https://gpt.ergo.com/\"");
    v.push("http.SetRequestHeader \"X-Requested-With\", \"XMLHttpRequest\"");
    v.push("http.SetRequestHeader \"Content-Type\", \"multipart/form-data; boundary=\" & boundary");
    v.push("http.Send body");
    v.push("");
    v.push("Dim status, respBody");
    v.push("status = http.Status");
    v.push("respBody = http.ResponseText");
    v.push("If Err.Number <> 0 Then");
    v.push("    WriteResult 0, \"HTTP error: \" & Err.Description");
    v.push("    WScript.Quit 0");
    v.push("End If");
    v.push("");
    v.push("WriteResult status, respBody");
    v.push("WScript.Quit 0");
    return v.join("\r\n");
}

// Alte PowerShell-Variante - bleibt im Code als historische Referenz,
// wird aber nicht mehr aufgerufen (in v1.10 durch buildUploadVbs ersetzt).
function buildUploadPs1() {
    var ps = [];
    ps.push("param(");
    ps.push("    [string]$CookieFile,");
    ps.push("    [string]$ConvId,");
    ps.push("    [string]$PdfPath,");
    ps.push("    [string]$FileName,");
    ps.push("    [string]$ResultPath");
    ps.push(")");
    ps.push("");
    ps.push("$ErrorActionPreference = 'Stop'");
    ps.push("");
    ps.push("function Write-Result($status, $body) {");
    ps.push("    $bodyEsc = ($body -replace '\\\\','\\\\\\\\' -replace '\"','\\\"' -replace \"`r\",'\\r' -replace \"`n\",'\\n' -replace \"`t\",'\\t')");
    ps.push("    $json = '{\"status\":' + $status + ',\"body\":\"' + $bodyEsc + '\"}'");
    ps.push("    [System.IO.File]::WriteAllText($ResultPath, $json, [System.Text.Encoding]::UTF8)");
    ps.push("}");
    ps.push("");
    ps.push("try {");
    ps.push("    $cookie = [System.IO.File]::ReadAllText($CookieFile)");
    ps.push("    $cookie = $cookie.Trim()");
    ps.push("    $xsrf = ''");
    ps.push("    if ($cookie -match '(?i)(?:XSRF-TOKEN|CSRF-TOKEN|csrfToken|_csrf)=([^;]+)') {");
    ps.push("        $xsrf = [System.Uri]::UnescapeDataString($matches[1])");
    ps.push("    }");
    ps.push("");
    ps.push("    $fileBytes = [System.IO.File]::ReadAllBytes($PdfPath)");
    ps.push("");
    ps.push("    $boundary = '----WebKitFormBoundary' + ([guid]::NewGuid().ToString('N').Substring(0,16))");
    ps.push("    $enc = [System.Text.Encoding]::UTF8");
    ps.push("");
    ps.push("    $pre = \"--$boundary`r`nContent-Disposition: form-data; name=`\"file_content`\"; filename=`\"$FileName`\"`r`nContent-Type: application/pdf`r`n`r`n\"");
    ps.push("    $post = \"`r`n--$boundary`r`nContent-Disposition: form-data; name=`\"filename`\"`r`n`r`n$FileName`r`n--$boundary`r`nContent-Disposition: form-data; name=`\"conversation_id`\"`r`n`r`n$ConvId`r`n--$boundary--`r`n\"");
    ps.push("");
    ps.push("    $preBytes = $enc.GetBytes($pre)");
    ps.push("    $postBytes = $enc.GetBytes($post)");
    ps.push("");
    ps.push("    $ms = New-Object System.IO.MemoryStream");
    ps.push("    $ms.Write($preBytes, 0, $preBytes.Length)");
    ps.push("    $ms.Write($fileBytes, 0, $fileBytes.Length)");
    ps.push("    $ms.Write($postBytes, 0, $postBytes.Length)");
    ps.push("    $body = $ms.ToArray()");
    ps.push("    $ms.Close()");
    ps.push("");
    ps.push("    $headers = @{");
    ps.push("        'Cookie' = $cookie");
    ps.push("        'User-Agent' = 'Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36'");
    ps.push("        'Accept' = '*/*'");
    ps.push("        'Accept-Language' = 'de-DE,de;q=0.9,en;q=0.8'");
    ps.push("        'Origin' = 'https://gpt.ergo.com'");
    ps.push("        'Referer' = 'https://gpt.ergo.com/'");
    ps.push("        'X-Requested-With' = 'XMLHttpRequest'");
    ps.push("    }");
    ps.push("    if ($xsrf) {");
    ps.push("        $headers['X-XSRF-TOKEN'] = $xsrf");
    ps.push("        $headers['X-CSRF-TOKEN'] = $xsrf");
    ps.push("    }");
    ps.push("");
    ps.push("    # TLS 1.2 + ignore proxy detection for speed");
    ps.push("    [System.Net.ServicePointManager]::SecurityProtocol = [System.Net.SecurityProtocolType]::Tls12");
    ps.push("");
    ps.push("    try {");
    ps.push("        $resp = Invoke-WebRequest -Uri 'https://gpt.ergo.com/api/document' -Method Post -Body $body -ContentType (\"multipart/form-data; boundary=$boundary\") -Headers $headers -UseBasicParsing -TimeoutSec 180");
    ps.push("        Write-Result $resp.StatusCode $resp.Content");
    ps.push("    } catch [System.Net.WebException] {");
    ps.push("        $status = 0; $body = $_.Exception.Message");
    ps.push("        if ($_.Exception.Response) {");
    ps.push("            $status = [int]$_.Exception.Response.StatusCode");
    ps.push("            try {");
    ps.push("                $sr = New-Object System.IO.StreamReader($_.Exception.Response.GetResponseStream())");
    ps.push("                $body = $sr.ReadToEnd(); $sr.Close()");
    ps.push("            } catch {}");
    ps.push("        }");
    ps.push("        Write-Result $status $body");
    ps.push("    } catch {");
    ps.push("        Write-Result 0 $_.Exception.Message");
    ps.push("    }");
    ps.push("} catch {");
    ps.push("    Write-Result 0 ('SCRIPT-ERROR: ' + $_.Exception.Message)");
    ps.push("}");
    return ps.join("\r\n");
}

function setCommonHeaders(http) {
    http.setRequestHeader("Cookie", state.cookie);
    var xsrf = extractCsrf(state.cookie);
    if (xsrf) {
        http.setRequestHeader("X-XSRF-TOKEN", xsrf);
        http.setRequestHeader("X-CSRF-TOKEN", xsrf);
    }
    http.setRequestHeader("User-Agent", "Mozilla/5.0");
    http.setRequestHeader("Accept-Language", "de-DE,de;q=0.9,en;q=0.8");
    http.setRequestHeader("Origin", "https://gpt.ergo.com");
    http.setRequestHeader("Referer", "https://gpt.ergo.com/");
    http.setRequestHeader("X-Requested-With", "XMLHttpRequest");
}

function setWinHttpHeaders(http) {
    http.SetRequestHeader("Cookie", state.cookie);
    var xsrf = extractCsrf(state.cookie);
    if (xsrf) {
        http.SetRequestHeader("X-XSRF-TOKEN", xsrf);
        http.SetRequestHeader("X-CSRF-TOKEN", xsrf);
    }
    http.SetRequestHeader("User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 Chrome/129 Safari/537.36");
    http.SetRequestHeader("Accept-Language", "de-DE,de;q=0.9,en;q=0.8");
    http.SetRequestHeader("Origin", "https://gpt.ergo.com");
    http.SetRequestHeader("Referer", "https://gpt.ergo.com/");
    http.SetRequestHeader("X-Requested-With", "XMLHttpRequest");
}

function buildPayload(promptEsc, docIdsJson) {
    var model = trim(document.getElementById("modelInput").value) || "gpt-51-chat";
    // Temperature und Tone hardgecodet (Default: deterministisch, sachlich) -
    // diese Felder gibt es in der UI nicht mehr.
    return '{"conversation_title":"New conversation","messages":[{' +
           '"id":"' + uuid4() + '","role":"user","content":"' + promptEsc +
           '","date":"' + isoNow() + '"}],' +
           '"model":"' + model + '","temperature":0' +
           ',"pinned":false,"tone":"Sachlich","document_ids":' + docIdsJson + '}';
}

// ============================================================================
// NDJSON / RESPONSE PARSING
// ============================================================================
function extractAssistantFromNdjson(raw) {
    if (!raw) return "";
    raw = raw.replace(/\r\n/g, "\n").replace(/\r/g, "\n");
    var lines = raw.split("\n");
    var last = "";
    for (var i = 0; i < lines.length; i++) {
        var ln = trim(lines[i]);
        if (!ln) continue;
        if (ln.toLowerCase().substr(0, 5) === "data:") ln = trim(ln.substr(5));
        if (ln.charAt(0) === "{" && ln.charAt(ln.length - 1) === "}") {
            var t = extractAssistantFromChunk(ln);
            if (t) last = t;
        }
    }
    return last;
}

function extractAssistantFromChunk(json) {
    var re = /"choices"\s*:\s*\[\s*\{[\s\S]*?"messages"\s*:\s*\[\s*\{[\s\S]*?"role"\s*:\s*"assistant"[\s\S]*?"content"\s*:\s*"((?:\\.|[^"])*)"/;
    var m = json.match(re);
    if (m) return m[1];
    var re2 = /"choices"\s*:\s*\[[\s\S]*?"delta"[\s\S]*?"content"\s*:\s*"((?:\\.|[^"])*)"/;
    var m2 = json.match(re2);
    if (m2) return m2[1];
    return "";
}

function extractServerHint(raw) {
    if (!raw) return "(leere Antwort)";
    var keys = ["message", "error", "detail", "error_description"];
    for (var i = 0; i < keys.length; i++) {
        var re = new RegExp('"' + keys[i] + '"\\s*:\\s*"((?:\\\\.|[^"]){0,500})"', "i");
        var m = raw.match(re);
        if (m && m[1]) return "Server: " + m[1].substr(0, 240);
    }
    var lc = raw.toLowerCase();
    if (lc.indexOf("nicht mehr unterst") >= 0 || lc.indexOf("not supported") >= 0 ||
        lc.indexOf("deprecated") >= 0 || lc.indexOf("unknown model") >= 0) {
        return "Modell nicht (mehr) unterstuetzt - Modell-Name in Einstellungen anpassen.";
    }
    var plain = raw.replace(/<[^>]+>/g, " ").replace(/\s+/g, " ");
    return "Antwort: " + plain.substr(0, 200);
}

function parseGptJson(answer) {
    var t = trim(answer);
    // Strip code fences
    if (t.substr(0, 7) === "```json") t = t.substr(7);
    if (t.substr(0, 3) === "```") t = t.substr(3);
    if (t.substr(t.length - 3) === "```") t = t.substr(0, t.length - 3);
    t = trim(t);
    // Find {...}
    var s = t.indexOf("{");
    var e = t.lastIndexOf("}");
    if (s < 0 || e <= s) return null;
    t = t.substr(s, e - s + 1);
    try {
        // IE11 has JSON.parse but be defensive
        if (typeof JSON !== "undefined" && JSON.parse) return JSON.parse(t);
        return eval("(" + t + ")");
    } catch(ex) {
        // Try line by line key extraction as fallback
        return extractKeysHeuristic(t);
    }
}

function extractKeysHeuristic(t) {
    var keys = ["vorgangstyp","auftrag_datum","maklerpool","makler_nachname","makler_vorname",
                "makler_nummer","kunde_nachname","kunde_vorname","kunde_nummer","versicherungsnummer",
                "klassifikation","klassifikation_grund","geschaefts_typ","unterlagen_angefragt",
                "unterlagen_liste","sonderfall","sparte","anhang_typen","pdf_qualitaet",
                "enthaelt_maklervollmacht","mv_vollumfaenglich","mv_einschraenkungen",
                "unterschrift_kunde","unterschrift_makler","auf_vn_ausgestellt",
                "makler_namentlich_genannt","ist_reminder","hinweis"];
    var d = {};
    var found = 0;
    for (var i = 0; i < keys.length; i++) {
        var re = new RegExp('"' + keys[i] + '"\\s*:\\s*"((?:\\\\.|[^"]){0,500})"');
        var m = t.match(re);
        if (m) { d[keys[i]] = m[1]; found++; }
    }
    return (found >= 3) ? d : null;
}

function parseJsonStr(json, key) {
    if (!json) return "";
    var re = new RegExp('"' + key + '"\\s*:\\s*"([^"]*)"', "i");
    var m = json.match(re);
    return m ? m[1] : "";
}

function isAuthError(desc) {
    if (!desc) return false;
    var s = desc.toLowerCase();
    return (s.indexOf("403") >= 0 && (s.indexOf("forbidden") >= 0 || s.indexOf("create failed") >= 0)) ||
           s.indexOf("azure-application-gateway") >= 0 ||
           (s.indexOf("401") >= 0 && s.indexOf("unauthor") >= 0);
}

function isModelError(desc) {
    if (!desc) return false;
    var s = desc.toLowerCase();
    return s.indexOf("nicht mehr unterst") >= 0 ||
           (s.indexOf("modell") >= 0 && s.indexOf("unterstuetzt") >= 0) ||
           s.indexOf("unknown model") >= 0 ||
           s.indexOf("not supported") >= 0;
}

// ============================================================================
// PROMPT BUILDER (ported from VBA BuildVorgangPrompt)
// ============================================================================
function buildVorgangPrompt(datum, absName, absMail, betreff, text, anhangAlle, anhangPdfsHochgeladen) {
    var p = "";
    p += "Du bist ein erfahrener Sachbearbeiter im Innendienst eines deutschen\n";
    p += "Komposit-Versicherers (SHUK: Sach/Haftpflicht/Unfall/Kfz).\n";
    p += "Du analysierst eingehende Makler-Emails inklusive Anhaengen.\n\n";
    p += "===== EMAIL =====\n";
    p += "Datum: " + datum + "\n";
    p += "Absender: " + absName + " <" + absMail + ">\n";
    p += "Betreff: " + betreff + "\n";
    p += "Anhaenge (alle): " + (anhangAlle ? anhangAlle : "(keine)") + "\n";
    p += "Anhaenge HOCHGELADEN als PDF: " + (anhangPdfsHochgeladen ? anhangPdfsHochgeladen : "(keine)") + "\n\n";
    p += "Body:\n<<<\n" + text + "\n>>>\n===== ENDE EMAIL =====\n\n";

    p += "AUFGABE: Klassifiziere die Mail strikt anhand der unten definierten Felder und Wertelisten.\n\n";
    p += "WICHTIG - SCHRITT 0 (Triage): Pruefe ZUERST das Feld 'vorgangstyp'. Wenn die Mail KEIN echter eingehender Makler-Vorgang ist (Zustellfehler, von ergo selbst rausgegangen, automatische System-Mail, Werbung), dann setze ALLE anderen Felder auf '' (leerer String) - nur 'vorgangstyp' und 'hinweis' werden befuellt. NICHT raten.\n\n";
    p += "Nur wenn vorgangstyp == 'Makler-Vorgang': die uebrigen Felder befuellen. Nutze die HOCHGELADENEN PDFs (falls vorhanden) als zusaetzliche Quelle - insbesondere fuer die Maklervollmacht-Pruefung.\n\n";

    p += "REGELN:\n";
    p += "- Nutze Email-Signatur, From-Domain, Body und PDF-Inhalte als Quellen.\n";
    p += "- Wenn Information nicht eindeutig: leerer String oder 'nicht_pruefbar'. Rate NIE.\n";
    p += "- Antworte AUSSCHLIESSLICH mit einem einzeiligen JSON-Objekt mit GENAU 28 Schluesseln (alle Werte als String). Kein Markdown, keine Code-Fences.\n\n";

    p += "FELDER:\n\n";
    p += "0) vorgangstyp (TRIAGE - immer ausfuellen)\n";
    p += "   'Makler-Vorgang' / 'Zustellfehler' / 'Ergo-Outbound' / 'System-Mail' / 'Werbung-Spam' / 'Unklar'\n";
    p += "   Zustellfehler-Indizien: Absender 'postmaster'/'mailer-daemon'/'noreply', Betreff 'Mail Delivery Failure'/'Nachricht nicht zustellbar', SMTP-Code '5.7.1'/'5.1.1', 'Relay access denied'.\n";
    p += "   Ergo-Outbound: Absender @ergo.de / @itergo.com / @ergo.com.\n\n";

    p += "1) maklerpool - extrahiert UND konsolidiert. Verwende die EINHEITLICHEN Schreibweisen aus der folgenden Liste, NICHT die Roh-Variante aus der Mail:\n";
    p += "    KONSOLIDIERUNGS-MAP (linke Seite: gefundene Variante -> rechts: einheitlicher Name)\n";
    p += "    - 'Jung, DMS', 'Jung DMS', 'JDC', 'Jung,DMS & Cie. Pool GmbH', 'jungdms', 'jdcgroup' -> 'JDC / Jung, DMS & Cie.'\n";
    p += "    - 'Fonds Finanz', 'fondsfinanz', 'ff-makler', 'Fonds-Finanz' -> 'Fonds Finanz Maklerservice GmbH'\n";
    p += "    - 'blau direkt', 'blau-direkt', 'blaudirekt' -> 'blau direkt GmbH'\n";
    p += "    - 'DEMA', 'DEMMAK', 'Deutsche Versicherungsmakler' -> 'DEMA Deutsche Versicherungsmakler AG'\n";
    p += "    - 'BCA AG', 'bca-ag' -> 'BCA AG'\n";
    p += "    - 'Apella' -> 'Apella AG'\n";
    p += "    - 'CHECK24', 'Check24' -> 'CHECK24 Vergleichsportal'\n";
    p += "    - 'Maxpool' -> 'Maxpool Maklerkooperation GmbH'\n";
    p += "    - 'Hypoport' -> 'Hypoport AG'\n";
    p += "    - 'Verifox' -> 'Verifox GmbH'\n";
    p += "    - 'Impuls Finanzmanagement', 'Impuls-FM' -> 'Impuls Finanzmanagement AG'\n";
    p += "    - 'Securess' -> 'Securess Versicherungsmakler GmbH'\n";
    p += "    - 'tecis' -> 'tecis Finanzdienstleistungen AG'\n";
    p += "    - 'Qualitypool' -> 'Qualitypool GmbH'\n";
    p += "    - 'Swiss Life Select', 'SwissLife' -> 'Swiss Life Select Deutschland GmbH'\n";
    p += "    - 'MLP' -> 'MLP Finanzberatung SE'\n";
    p += "    - 'FORMAXX' -> 'FORMAXX AG'\n";
    p += "    - 'tauRes', 'TauRes' -> 'TauRes Gesellschaft fuer Investmentberatung mbH'\n";
    p += "    - '[pma:]', 'pma:' -> '[pma:] Finanz- und Versicherungsmakler GmbH'\n";
    p += "    - 'FG FINANZ', 'FGFinanz' -> 'FG FINANZ-SERVICE Aktiengesellschaft'\n";
    p += "    - 'Fuhrmann' -> 'Fuhrmann Versicherungsmakler GmbH'\n";
    p += "    - 'Finanzguru' -> 'Finanzguru Versicherungsservice GmbH'\n";
    p += "    - '1:1 Assekuranz', '2:2 Assekuranz' -> exakt so beibehalten\n";
    p += "    - 'Concordia Service' -> 'Concordia Service GmbH'\n";
    p += "    - 'WIFO' -> 'WIFO Wirtschafts- und Finanzkontor'\n";
    p += "    - 'aruna' -> 'aruna GmbH'\n";
    p += "    - 'ROLAND' -> 'ROLAND Versicherungsmakler'\n";
    p += "    - 'Invers' -> 'Invers GmbH'\n";
    p += "    - 'BEST GRUPPE', 'BESTGRUPPE' -> 'BEST GRUPPE'\n";
    p += "    - 'LEIMEISTER' -> 'LEIMEISTER Versicherungsmakler GmbH'\n";
    p += "    - 'INCON' -> 'INCON GmbH & Co. Assekuranz KG'\n";
    p += "    - 'DEUTUNA' -> 'DEUTUNA Finanzplanung GmbH'\n";
    p += "    - 'DASG' -> 'DASG Deutsche Assekuranzservice GmbH'\n";
    p += "    - 'vfm Service' -> 'vfm Service GmbH'\n";
    p += "    - 'FondsKonzept' -> 'FondsKonzept Assekuranzmakler AG'\n";
    p += "    - 'CLARUS AG' -> 'CLARUS AG'\n";
    p += "    Wenn keine Konsolidierungs-Regel passt: Roh-Variante mit korrekter Rechtsform-Endung (GmbH/AG/etc).\n\n";
    p += "1z) auftrag_datum - Datum aus Maklerauftrag / Pool-Anschreiben (z.B. 'Grossaitingen, 28.11.2025'). NICHT das Mail-Eingangsdatum.\n\n";
    p += "2) makler_nachname / 3) makler_vorname - HANDELNDE Person beim Makler, NICHT der Kunde.\n";
    p += "   Wenn KEINE Einzelperson, sondern eine Makler-FIRMA handelt, gehoert der Firmenname in makler_nachname.\n";
    p += "   WICHTIG Pool vs. zugrundeliegender Makler: Wenn der Maklervertrag / die Maklervollmacht auf eine\n";
    p += "   Makler-Firma laeuft, die nur ueber einen Pool abwickelt (z.B. Finanzguru, abgewickelt ueber Jung DMS),\n";
    p += "   dann bleibt maklerpool = 'JDC / Jung, DMS & Cie.' ABER makler_nachname = der eigentliche Makler\n";
    p += "   (also z.B. 'Finanzguru'). Pool und tatsaechlicher Makler sind getrennt zu fuehren.\n\n";
    p += "3a) makler_nummer - Identifikator BEIM VERSICHERER. STRENGE Priorisierung:\n";
    p += "    1. 'Agentur-Nr.' / 'Vermittler-Nr.' im Briefkopf-Block (das ist die Wunsch-Nummer).\n";
    p += "    2. 'BD-Nummer' / 'Bestandsnummer' / 'Beraterzeichen'.\n";
    p += "    3. NUR Fallback: Pool-IDs wie 'MAKID','DEMMAK','BCA-ID' (sind pool-intern, NICHT beim Versicherer).\n\n";
    p += "3b) kunde_nachname / 3c) kunde_vorname - VN / Vollmachtgeber. Quellen: MV-PDF -> Body -> Betreff.\n\n";
    p += "3d) kunde_nummer - Person-Nr / Partnernummer (NICHT Versicherungs- oder Maklernummer).\n";
    p += "3e) versicherungsnummer - VNR / Vertragsnummer (z.B. 'LF060237653').\n\n";

    p += "4) klassifikation - GENAU EINER von:\n";
    p += "   - 'BUe-Vorgang' (Bestandsuebertragung)\n";
    p += "   - 'Schadenmeldung'\n";
    p += "   - 'Antrag-Aenderung' (Neuantrag, Tarifwechsel, Adresswechsel, Bankverbindung)\n";
    p += "   - 'Anfrage-Ruecksprache'\n";
    p += "   - 'Nicht-Standard' (echte Eskalation: Beschwerde, Klage, BaFin, Vorstand, Konsortium)\n";
    p += "   - 'Kein-Makler-Vorgang' (nur wenn vorgangstyp != 'Makler-Vorgang')\n";
    p += "   WICHTIG: Mahnungen / Reminder / Wiedervorlagen sind KEINE eigene Klassifikation. Wenn eine\n";
    p += "   Mail ein Reminder ist, klassifiziere sie nach dem zugrunde liegenden Vorgang (meist 'BUe-Vorgang',\n";
    p += "   selten 'Anfrage-Ruecksprache' oder 'Antrag-Aenderung') und setze ist_reminder = 'ja' (Feld 17).\n";
    p += "4a) klassifikation_grund - kurze Begruendung (max 200 Z.), konkrete Indizien nennen.\n\n";

    p += "5) geschaefts_typ - GENAU einer von 'BUe einfacher Vertrag' / 'BUe Kundenverbindung' / 'Keine BUe'\n";
    p += "   STRENGE Definition - Defaultwert 'BUe einfacher Vertrag' nur bei eindeutigem Einzelvertrags-Bezug:\n";
    p += "   - 'BUe einfacher Vertrag': Mail/MV/Anschreiben benennt GENAU EINE Versicherungsnummer\n";
    p += "     oder GENAU EINEN spezifischen Vertrag. KEINE Hinweise auf 'auch die anderen' / 'alle Vertraege'.\n";
    p += "   - 'BUe Kundenverbindung' (= ganze Verbindung): TRIGGER (irgendwann zutreffend):\n";
    p += "     (a) Im Anschreiben / MV-PDF werden MEHRERE konkrete Versicherungsnummern aufgefuehrt\n";
    p += "         (egal ob ERGO oder fremd) ODER\n";
    p += "     (b) Formulierungen wie 'gesamte Kundenverbindung','alle Vertraege','Kunde komplett',\n";
    p += "         'alle bei Ihnen bestehenden Vertraege','samtliche Vertraege des VN' ODER\n";
    p += "     (c) Anschreiben ist generisches Pool-Standardanschreiben ohne Vertragsnummer-Einschraenkung\n";
    p += "         + MV ist umfassend ('alle Vertraege' / 'jeweilige Vertraege').\n";
    p += "   - 'Keine BUe': nur wenn es technisch GAR KEINE Bestandsuebertragung ist (z.B. nur Anschriftsaenderung).\n";
    p += "   WICHTIG: PDF-Anhaenge auswerten! Wenn das Anschreiben mehrere Vertraege auflistet, ist es\n";
    p += "   Kundenverbindung, auch wenn die Mail-Subject nur EINE Nummer nennt.\n\n";
    p += "6) unterlagen_angefragt - 'ja' wenn Unterlagen fehlen / nachreichen / unvollstaendig. Sonst 'nein'.\n";
    p += "6a) unterlagen_liste - kommagetrennte Liste der fehlenden Unterlagen.\n\n";
    p += "7) sonderfall - 'Flottengeschaeft' / 'Sondertarif' / 'Kein Sonderfall'.\n";
    p += "8) sparte - 'Komposit' (SHUK) / 'Leben' / 'KV' / 'Mehrere' / 'Unbekannt'.\n\n";
    p += "9) anhang_typen - kommagetrennt: 'Maklervollmacht','Police','Antrag','Schadenmeldung','Beitragsrechnung','Anschreiben','Kuendigung','Datenblatt','Sonstiges'.\n";
    p += "9a) pdf_qualitaet - 'Text-PDF' / 'Scan' / 'Mixed' / 'Keine_PDFs' / 'nicht_pruefbar'.\n\n";

    p += "10) enthaelt_maklervollmacht - 'ja' / 'nein'.\n\n";
    p += "11) mv_vollumfaenglich - Schlagwort-basiert:\n";
    p += "    (a) 'abschliessen, aendern und kuendigen'\n";
    p += "    (b) 'Willenserklaerungen abgeben und entgegen[nehmen]' / 'aktiv und passiv vertreten'\n";
    p += "    (c) 'bevollmaechtigt zu vertreten' (uneingeschraenkt)\n";
    p += "    (d) 'Abgabe und Entgegennahme von Willenserklaerungen' + Aenderung/Kuendigung/Abschluss\n";
    p += "    (e) 'uneingeschraenkte aktive und passive Vertretung' (Minimalstandard PVC2D)\n";
    p += "    Werte: 'ja' (Schlagwort erkennbar) / 'teilweise' (Schlagwort ABER Einschraenkung) / 'nein' / 'nicht_pruefbar' (keine MV oder PDF nicht ausgewertet).\n";
    p += "    WICHTIG: 'vollumfaenglich' meint INHALT der Bevollmaechtigung, nicht Form.\n\n";
    p += "12) mv_einschraenkungen - Klartext: 'KV ausgeschlossen','schriftliche Zustimmung VN','kein Schlagwort gefunden' etc. Leer wenn 'ja' oder nicht pruefbar.\n\n";

    p += "13) unterschrift_kunde - 'ja' / 'nein' / 'nicht_pruefbar' (Unterschrift VN sichtbar?).\n";
    p += "14) unterschrift_makler - 'ja' / 'nein' / 'nicht_pruefbar' (Makler-Unterschrift, optional).\n";
    p += "15) auf_vn_ausgestellt - 'ja' / 'nein' / 'nicht_pruefbar'.\n";
    p += "16) makler_namentlich_genannt - 'ja' / 'nein' / 'nicht_pruefbar'.\n\n";

    p += "17) ist_reminder - 'ja' / 'nein' / 'nicht_pruefbar' (CROSS-CUTTING - orthogonal zur Klassifikation).\n";
    p += "    Indikatoren (case-insensitiv): Betreff 'Erinnerung','Reminder','WV','Mahnung','2. Mahnung','Sachstandsanfrage'; Body 'wir warten noch','haben wir noch nichts erhalten','bitten um Rueckmeldung'; Anhang-Dateinamen mit 'Mahnung','Reminder','Erinnerung'.\n";
    p += "    Ein Reminder bekommt die normale klassifikation (z.B. 'BUe-Vorgang'), nicht 'Mahnung-Reminder'.\n\n";

    p += "17a) reminder_quelle - WO ueberall hast du den Reminder-Hinweis erkannt?\n";
    p += "     Liste ALLER zutreffenden Quellen, komma-getrennt (Pipe nicht erlaubt). Atomare Werte:\n";
    p += "     - 'Anhang-PDF-Inhalt'  : Mahnungs-/Erinnerungs-Text steht IM PDF-Body\n";
    p += "     - 'Anhang-Dateiname'   : PDF heisst z.B. 'Mahnung_*.pdf' / 'Reminder_*.pdf'\n";
    p += "     - 'Mail-Betreff'       : Betreff enthaelt 'Erinnerung','Reminder','Mahnung','WV','2. Mahnung'\n";
    p += "     - 'Mail-Body'          : Mailtext enthaelt 'wir warten noch','noch nichts erhalten','bitten um Rueckmeldung'\n";
    p += "     Bei mehreren Quellen: komma-getrennt mit Leerzeichen, z.B. 'Mail-Betreff, Anhang-PDF-Inhalt'.\n";
    p += "     Leer wenn ist_reminder != 'ja'.\n";
    p += "     WICHTIG: Sei genau - das ist die Grundlage fuer die Reminder-Validierungs-Statistik im Excel.\n\n";

    p += "18a) mail_zusammenfassung - 1-2 Saetze NEUTRAL was die Mail inhaltlich macht.\n";
    p += "     Format: 'Makler X bittet um Bestandsuebertragung fuer Vertrag Y (Sparte Z). MV liegt bei.'\n";
    p += "     Max 250 Zeichen. NICHT mit Bewertung mischen - rein deskriptiv.\n\n";

    p += "18b) nicht_neuer_vorgang_grund - leer wenn es ein neuer Erstvorgang ist. SONST EXPLIZIT erklaeren\n";
    p += "     warum es KEIN neuer Erstvorgang ist (1 Satz, max 200 Z.). Beispiele:\n";
    p += "     - 'Reminder zu BUe-Anfrage vom <Datum>, ursprgl. Anschreiben vom Pool als Anhang.'\n";
    p += "     - '2. Mahnung zu noch offener BUe-Anfrage - Sachstandsanfrage.'\n";
    p += "     - 'Wiedervorlage - Pool wartet auf Antwort zur ersten Anfrage.'\n";
    p += "     - 'Nachreichung von Unterlagen zu bereits angefragter BUe.'\n";
    p += "     - 'Mail bezieht sich auf laufenden Vorgang von <Datum> - keine neue Anfrage.'\n";
    p += "     Bei ist_reminder=ja MUSS dieses Feld eine Begruendung enthalten. Quelle: Anhang-PDF-Inhalt,\n";
    p += "     Mail-Body ('Erinnerung an unsere Anfrage vom...'), Mail-Betreff ('2. Mahnung','Sachstand').\n\n";

    p += "19) hinweis - EIN kurzer Satz (max 200 Z.) was an dem Vorgang auffaellig ist.\n";
    p += "    BOILERPLATE NICHT erwaehnen: Folgende Formulierungen sind Standard-Textbausteine in Pool-BUe-Mails und gehoeren NICHT in den Hinweis:\n";
    p += "    - 'Sonderkonditionsvorbehalt' / 'Sonderkonditionen duerfen nicht verloren gehen' / 'falls Sonderkonditionen bestehen, bitten wir um Rueckmeldung'\n";
    p += "    - 'Wir bitten um Bestaetigung' / 'Vorlage der Maklervollmacht' (Standardtext)\n";
    p += "    - Kuendigung der bisherigen Betreuung (Standardklausel im Maklerwechsel)\n";
    p += "    Erwaehne den Hinweis nur, wenn der Vorgang AUSSERGEWOEHNLICH ist (z.B. echte Sondertarife im Vertrag genannt, ungewoehnliche Anhaenge, Eskalations-Indikatoren, unklare MV, mehrere Vertraege).\n";
    p += "    Wenn nichts auffaellig: leerer String ''.\n\n";

    p += "AUSGABE-FORMAT (eine Zeile, gueltiges JSON, alle 31 Schluessel):\n";
    p += '{"vorgangstyp":"...","auftrag_datum":"...",';
    p += '"maklerpool":"...","makler_nachname":"...","makler_vorname":"...","makler_nummer":"...",';
    p += '"kunde_nachname":"...","kunde_vorname":"...","kunde_nummer":"...","versicherungsnummer":"...",';
    p += '"klassifikation":"...","klassifikation_grund":"...","geschaefts_typ":"...","unterlagen_angefragt":"...",';
    p += '"unterlagen_liste":"...","sonderfall":"...","sparte":"...","anhang_typen":"...","pdf_qualitaet":"...",';
    p += '"enthaelt_maklervollmacht":"...","mv_vollumfaenglich":"...","mv_einschraenkungen":"...",';
    p += '"unterschrift_kunde":"...","unterschrift_makler":"...","auf_vn_ausgestellt":"...","makler_namentlich_genannt":"...",';
    p += '"ist_reminder":"...","reminder_quelle":"...","mail_zusammenfassung":"...","nicht_neuer_vorgang_grund":"...","hinweis":"..."}\n\n';
    p += "Antworte JETZT, nur das JSON-Objekt:\n";

    return p;
}

// ============================================================================
// EXPORT
// ============================================================================
// Excel.Interior.Color erwartet BGR-codierte Long. Wir bauen den Wert wie
// VBAs RGB(r,g,b) = r + g*256 + b*65536. So funktionieren die VBA-Farben.
function rgb(r, g, b) { return r + g * 256 + b * 65536; }

function exportToExcel() {
    if (state.results.length === 0) { showError("Keine Ergebnisse zum Exportieren."); return; }
    hideStatus();
    try {
        var excel = new ActiveXObject("Excel.Application");
        // WICHTIG: Excel VERSTECKT lassen waehrend Bulk-Write. Sichtbares Fenster
        // wird vom DWM/Window-Manager als "Not Responding" markiert wenn die
        // COM-Schleife laenger als ~5s blockiert (Recherche: hidden Window
        // unterliegt diesem Check nicht). Am Ende wieder einblenden.
        excel.Visible = false;
        excel.DisplayAlerts = false;
        try { excel.ScreenUpdating = false; } catch(eS) {}
        try { excel.Calculation = -4135; /* xlCalculationManual */ } catch(eS) {}
        try { excel.EnableEvents = false; } catch(eS) {}
        try { excel.DisplayStatusBar = false; } catch(eS) {}
        var wb = excel.Workbooks.Add();
        var sheet = wb.ActiveSheet;
        try { sheet.DisplayPageBreaks = false; } catch(eS) {}
        try { sheet.Name = "Analyse"; } catch(e) {}

        var headers = ["#","Datei","Datum","Auftrag_Datum","Absender Name","Absender Email","Empfaenger","Betreff","Anhaenge",
                       "Maklerpool","Makler_Nachname","Makler_Vorname","Maklernummer",
                       "Kunde_Nachname","Kunde_Vorname","Kundennummer","Versicherungsnummer",
                       "Vorgangstyp","Ist_Reminder","Klassifikation","Klassifikation_Grund",
                       "Geschaefts_Typ","Unterlagen_Angefragt","Unterlagen_Liste","Sonderfall","Sparte",
                       "Anhang_Typen","PDF_Qualitaet","MV_Enthalten","MV_Vollumfaenglich","MV_Einschraenkungen","MV_Status",
                       "Unterschrift_Kunde","Unterschrift_Makler","Auf_VN","Makler_Namentlich","Hinweis","Fehler","Reminder_Quelle",
                       "Mail_Zusammenfassung","Nicht_Neu_Grund"];
        // Spalten-Konstanten (1-basiert) - nach MV_Status alles ab Spalte 33 +1 verschoben
        var COL_DATEI = 2, COL_HINWEIS = 37, COL_FEHLER = 38;
        var COL_MAKLERPOOL = 10, COL_MAKLER_NR = 13;
        var COL_KUNDE_NACH = 14, COL_VERS_NR = 17;
        var COL_VORGANGSTYP = 18, COL_REMINDER = 19;
        var COL_KLASSIFIK = 20, COL_GESCHTYP = 22, COL_UNTERLAGEN = 23, COL_SONDERFALL = 25, COL_SPARTE = 26;
        var COL_ANH_TYPEN = 27, COL_PDF_QUAL = 28;
        var COL_VM_VORHAND = 29, COL_VM_VOLLST = 30, COL_VM_FEHLT = 31, COL_MV_STATUS = 32, COL_UNTERSCHR_K = 33, COL_UNTERSCHR_M = 34, COL_AUF_VN = 35, COL_MAKL_NAM = 36;

        for (var c = 0; c < headers.length; c++) {
            sheet.Cells(1, c+1).Value = headers[c];
        }

        // Farb-Schema fuer Header-Gruppen (VBA-Original)
        var F_STAMM  = rgb(30,  64, 175); // Indigo  - Mail-Stammdaten
        var F_MAKLER = rgb(22, 101,  52); // Gruen   - Makler
        var F_KUNDE  = rgb(14, 116, 144); // Petrol  - Kunde
        var F_TRIAGE = rgb(76,  29, 149); // Lila    - Triage / Reminder / Hinweis
        var F_KLASS  = rgb(15, 118, 110); // Teal    - Klassifikation
        var F_ANHANG = rgb(154, 52,  18); // Bronze  - Anhang
        var F_MV     = rgb(159, 18,  57); // Bordeaux- Maklervollmacht
        var WHITE    = rgb(255, 255, 255);

        try {
            var hr = sheet.Range(sheet.Cells(1,1), sheet.Cells(1, headers.length));
            hr.Font.Bold = true;
            hr.Font.Color = WHITE;
            hr.HorizontalAlignment = -4108; // xlCenter
            hr.WrapText = true;
            sheet.Rows(1).RowHeight = 30;
            // Pro Gruppe einfaerben
            sheet.Range(sheet.Cells(1,1), sheet.Cells(1, 9)).Interior.Color = F_STAMM;
            sheet.Range(sheet.Cells(1, COL_MAKLERPOOL), sheet.Cells(1, COL_MAKLER_NR)).Interior.Color = F_MAKLER;
            sheet.Range(sheet.Cells(1, COL_KUNDE_NACH), sheet.Cells(1, COL_VERS_NR)).Interior.Color = F_KUNDE;
            sheet.Range(sheet.Cells(1, COL_VORGANGSTYP), sheet.Cells(1, COL_REMINDER)).Interior.Color = F_TRIAGE;
            sheet.Range(sheet.Cells(1, COL_KLASSIFIK), sheet.Cells(1, COL_SPARTE)).Interior.Color = F_KLASS;
            sheet.Range(sheet.Cells(1, COL_ANH_TYPEN), sheet.Cells(1, COL_PDF_QUAL)).Interior.Color = F_ANHANG;
            sheet.Range(sheet.Cells(1, COL_VM_VORHAND), sheet.Cells(1, COL_MAKL_NAM)).Interior.Color = F_MV;
            sheet.Cells(1, COL_HINWEIS).Interior.Color = F_TRIAGE;
            sheet.Cells(1, COL_FEHLER).Interior.Color = rgb(127, 29, 29); // dunkles Rot
        } catch(e) {}

        // Highlight-Farben fuer Daten-Zeilen
        var H_ROT   = rgb(252, 165, 165); // Fehler/Achtung
        var H_GRUEN = rgb(187, 247, 208); // OK/positiv
        var H_GELB  = rgb(254, 240, 138); // Achtung
        var H_ORANGE= rgb(254, 215, 170); // Reminder/Warnung
        var H_BERN  = rgb(253, 230, 138); // Klassifikation auffaellig
        var H_GRAU  = rgb(229, 231, 235); // Kein-Makler-Vorgang

        // PHASE 1: BULK-WRITE via VBScript-Sub FillRangeFromTsv. Das Range-Assignment
        // passiert INNERHALB VBScript (siehe Eric-Lippert-Recherche) - so umgeht man
        // den JScript-SafeArray-Round-Trip-Bug, der bisher leere Zellen produzierte.
        // Per-Cell-Fallback falls FillRangeFromTsv die Sanity-Check nicht besteht.
        var bulkErrors = [];
        var exportTotal = state.results.length;
        var pgEl = document.getElementById("progressContainer");
        var statusEl = document.getElementById("slotStatus");
        if (pgEl) pgEl.style.display = "block";
        if (statusEl) statusEl.innerText = "Excel-Export: TSV bauen fuer " + exportTotal + " Zeilen...";
        forceRepaint();

        // TSV-Riesen-String bauen (cellSafeTsv strippt Tabs/Newlines - sonst kaputter Split)
        var rowsTsv = [];
        for (var i = 0; i < state.results.length; i++) {
            var r = state.results[i];
            var d = r.data || {};
            rowsTsv.push(
                String(i + 1) + "\t" +
                cellSafeTsv(r.msgFile) + "\t" +
                cellSafeTsv(r.datum) + "\t" +
                cellSafeTsv(sg(d, "auftrag_datum")) + "\t" +
                cellSafeTsv(r.absName) + "\t" +
                cellSafeTsv(r.absMail) + "\t" +
                cellSafeTsv(r.empfaenger) + "\t" +
                cellSafeTsv(r.betreff) + "\t" +
                cellSafeTsv(r.anhangAlle) + "\t" +
                cellSafeTsv(sg(d, "maklerpool")) + "\t" +
                cellSafeTsv(sg(d, "makler_nachname")) + "\t" +
                cellSafeTsv(sg(d, "makler_vorname")) + "\t" +
                cellSafeTsv(sg(d, "makler_nummer")) + "\t" +
                cellSafeTsv(sg(d, "kunde_nachname")) + "\t" +
                cellSafeTsv(sg(d, "kunde_vorname")) + "\t" +
                cellSafeTsv(sg(d, "kunde_nummer")) + "\t" +
                cellSafeTsv(sg(d, "versicherungsnummer")) + "\t" +
                cellSafeTsv(sg(d, "vorgangstyp")) + "\t" +
                cellSafeTsv(sg(d, "ist_reminder")) + "\t" +
                cellSafeTsv(sg(d, "klassifikation")) + "\t" +
                cellSafeTsv(sg(d, "klassifikation_grund")) + "\t" +
                cellSafeTsv(sg(d, "geschaefts_typ")) + "\t" +
                cellSafeTsv(sg(d, "unterlagen_angefragt")) + "\t" +
                cellSafeTsv(sg(d, "unterlagen_liste")) + "\t" +
                cellSafeTsv(sg(d, "sonderfall")) + "\t" +
                cellSafeTsv(sg(d, "sparte")) + "\t" +
                cellSafeTsv(sg(d, "anhang_typen")) + "\t" +
                cellSafeTsv(sg(d, "pdf_qualitaet")) + "\t" +
                cellSafeTsv(sg(d, "enthaelt_maklervollmacht")) + "\t" +
                cellSafeTsv(sg(d, "mv_vollumfaenglich")) + "\t" +
                cellSafeTsv(sg(d, "mv_einschraenkungen")) + "\t" +
                cellSafeTsv(computeMvStatus(r)) + "\t" +
                cellSafeTsv(sg(d, "unterschrift_kunde")) + "\t" +
                cellSafeTsv(sg(d, "unterschrift_makler")) + "\t" +
                cellSafeTsv(sg(d, "auf_vn_ausgestellt")) + "\t" +
                cellSafeTsv(sg(d, "makler_namentlich_genannt")) + "\t" +
                cellSafeTsv(sg(d, "hinweis")) + "\t" +
                (r.ok ? "" : cellSafeTsv(r.errMsg)) + "\t" +
                cellSafeTsv(detectReminderSource(r)) + "\t" +
                cellSafeTsv(sg(d, "mail_zusammenfassung")) + "\t" +
                cellSafeTsv(sg(d, "nicht_neuer_vorgang_grund"))
            );
        }
        var bigTsv = rowsTsv.join("\n");
        if (statusEl) statusEl.innerText = "Excel-Export: VBScript-Bulk-Write (" + Math.round(bigTsv.length / 1024) + " KB)...";
        forceRepaint();

        var bulkOk = false;
        try {
            var rng = sheet.Range(sheet.Cells(2, 1), sheet.Cells(state.results.length + 1, headers.length));
            FillRangeFromTsv(rng, bigTsv, "\n", "\t", state.results.length, headers.length);
            // Sanity-Check: DREI Stichproben (Anfang, Mitte, Ende). FillRangeFromTsv kann
            // bei grossen Arrays Memory-Probleme bekommen und partial schreiben.
            var midRow = Math.floor((state.results.length + 1) / 2) + 1;
            var s1 = String(sheet.Cells(2, 2).Value || "");
            var sM = String(sheet.Cells(midRow, 2).Value || "");
            var s2 = String(sheet.Cells(state.results.length + 1, 2).Value || "");
            if (s1.length > 0 && sM.length > 0 && s2.length > 0) {
                bulkOk = true;
            } else {
                throw new Error("FillRangeFromTsv: Stichproben leer (anfang='" + s1.substr(0,30) +
                                "', mitte='" + sM.substr(0,30) + "', ende='" + s2.substr(0,30) + "')");
            }
        } catch(eBulk) {
            bulkErrors.push("VBScript-Bulk fehlgeschlagen: " + (eBulk.message || "?") + " - Per-Cell-Fallback laeuft");
        }

        // -----------------------------------------------------------------------
        // ASYNC CHUNKED PIPELINE - zerlegt synchrone Loops in setTimeout-Chunks.
        // Jeder Chunk ist eine eigene JS-Task. Windows-Script-Statement-Counter
        // resettet sich zwischen Tasks - kein "Script-Ausfuehrung dauert lange"-
        // Dialog mehr. Ablauf:
        //   bulkOk=true  -> startColorsChunked -> finalizeExport
        //   bulkOk=false -> writePerCellChunk(0) -> startColorsChunked -> finalizeExport
        // -----------------------------------------------------------------------

        // Nested function: chunked per-cell-write (Fallback wenn FillRangeFromTsv versagt)
        function writePerCellChunk(startIdx) {
            try {
                var CHUNK_ROWS = 50;
                var endIdx = Math.min(startIdx + CHUNK_ROWS, state.results.length);
                for (var ii2 = startIdx; ii2 < endIdx; ii2++) {
                    var r2 = state.results[ii2];
                    var d2 = r2.data || {};
                    var row2 = ii2 + 2;
                    try {
                        sheet.Cells(row2, 1).Value = ii2 + 1;
                        sheet.Cells(row2, 2).Value = cellSafe(r2.msgFile);
                        sheet.Cells(row2, 3).Value = cellSafe(r2.datum);
                        sheet.Cells(row2, 4).Value = cellSafe(sg(d2, "auftrag_datum"));
                        sheet.Cells(row2, 5).Value = cellSafe(r2.absName);
                        sheet.Cells(row2, 6).Value = cellSafe(r2.absMail);
                        sheet.Cells(row2, 7).Value = cellSafe(r2.empfaenger);
                        sheet.Cells(row2, 8).Value = cellSafe(r2.betreff);
                        sheet.Cells(row2, 9).Value = cellSafe(r2.anhangAlle);
                        sheet.Cells(row2, 10).Value = cellSafe(sg(d2, "maklerpool"));
                        sheet.Cells(row2, 11).Value = cellSafe(sg(d2, "makler_nachname"));
                        sheet.Cells(row2, 12).Value = cellSafe(sg(d2, "makler_vorname"));
                        sheet.Cells(row2, 13).Value = cellSafe(sg(d2, "makler_nummer"));
                        sheet.Cells(row2, 14).Value = cellSafe(sg(d2, "kunde_nachname"));
                        sheet.Cells(row2, 15).Value = cellSafe(sg(d2, "kunde_vorname"));
                        sheet.Cells(row2, 16).Value = cellSafe(sg(d2, "kunde_nummer"));
                        sheet.Cells(row2, 17).Value = cellSafe(sg(d2, "versicherungsnummer"));
                        sheet.Cells(row2, 18).Value = cellSafe(sg(d2, "vorgangstyp"));
                        sheet.Cells(row2, 19).Value = cellSafe(sg(d2, "ist_reminder"));
                        sheet.Cells(row2, 20).Value = cellSafe(sg(d2, "klassifikation"));
                        sheet.Cells(row2, 21).Value = cellSafe(sg(d2, "klassifikation_grund"));
                        sheet.Cells(row2, 22).Value = cellSafe(sg(d2, "geschaefts_typ"));
                        sheet.Cells(row2, 23).Value = cellSafe(sg(d2, "unterlagen_angefragt"));
                        sheet.Cells(row2, 24).Value = cellSafe(sg(d2, "unterlagen_liste"));
                        sheet.Cells(row2, 25).Value = cellSafe(sg(d2, "sonderfall"));
                        sheet.Cells(row2, 26).Value = cellSafe(sg(d2, "sparte"));
                        sheet.Cells(row2, 27).Value = cellSafe(sg(d2, "anhang_typen"));
                        sheet.Cells(row2, 28).Value = cellSafe(sg(d2, "pdf_qualitaet"));
                        sheet.Cells(row2, 29).Value = cellSafe(sg(d2, "enthaelt_maklervollmacht"));
                        sheet.Cells(row2, 30).Value = cellSafe(sg(d2, "mv_vollumfaenglich"));
                        sheet.Cells(row2, 31).Value = cellSafe(sg(d2, "mv_einschraenkungen"));
                        sheet.Cells(row2, 32).Value = cellSafe(computeMvStatus(r2));
                        sheet.Cells(row2, 33).Value = cellSafe(sg(d2, "unterschrift_kunde"));
                        sheet.Cells(row2, 34).Value = cellSafe(sg(d2, "unterschrift_makler"));
                        sheet.Cells(row2, 35).Value = cellSafe(sg(d2, "auf_vn_ausgestellt"));
                        sheet.Cells(row2, 36).Value = cellSafe(sg(d2, "makler_namentlich_genannt"));
                        sheet.Cells(row2, 37).Value = cellSafe(sg(d2, "hinweis"));
                        sheet.Cells(row2, 38).Value = r2.ok ? "" : cellSafe(r2.errMsg);
                        sheet.Cells(row2, 39).Value = cellSafe(detectReminderSource(r2));
                        sheet.Cells(row2, 40).Value = cellSafe(sg(d2, "mail_zusammenfassung"));
                        sheet.Cells(row2, 41).Value = cellSafe(sg(d2, "nicht_neuer_vorgang_grund"));
                    } catch(eR2) {
                        bulkErrors.push("Zeile " + row2 + ": " + (eR2.message || "?"));
                    }
                }
                if (statusEl) statusEl.innerText = "Excel-Export: Per-Cell " + endIdx + " / " + exportTotal;
                forceRepaint();
                if (endIdx % 500 === 0) {
                    try { excel.ScreenUpdating = true; excel.ScreenUpdating = false; } catch(eFlush) {}
                }
                if (endIdx < state.results.length) {
                    setTimeout(function() { writePerCellChunk(endIdx); }, 0);
                } else {
                    startColorsChunked();
                }
            } catch(eChunk) {
                failExport("Per-Cell-Chunk-Fehler bei Zeile " + (startIdx + 1) + ": " + eChunk.message);
            }
        }

        function startColorsChunked() {
            if (statusEl) statusEl.innerText = "Excel-Export: " + exportTotal + " / " + exportTotal + " (Farben starten)";
            forceRepaint();
            colorsChunk(0);
        }

        function colorsChunk(startIdx) {
            try {
                var CHUNK_ROWS = 200;
                var endIdx = Math.min(startIdx + CHUNK_ROWS, state.results.length);
                for (var ii = startIdx; ii < endIdx; ii++) {
                    var rr = state.results[ii];
                    var dd = rr.data || {};
                    var row = ii + 2;
                    try {
                        if (!rr.ok || rr.errMsg) {
                            sheet.Cells(row, COL_FEHLER).Interior.Color = H_ROT;
                        }
                        var vt = sg(dd, "vorgangstyp");
                        if (vt && vt !== "Makler-Vorgang" && vt !== "") {
                            sheet.Range(sheet.Cells(row, COL_MAKLERPOOL), sheet.Cells(row, COL_HINWEIS)).Interior.Color = H_GRAU;
                            sheet.Cells(row, COL_VORGANGSTYP).Interior.Color = H_ORANGE;
                        }
                        if (sg(dd, "ist_reminder") === "ja") sheet.Cells(row, COL_REMINDER).Interior.Color = H_ORANGE;
                        var sond = sg(dd, "sonderfall");
                        if (sond === "Flottengeschaeft" || sond === "Sondertarif") sheet.Cells(row, COL_SONDERFALL).Interior.Color = H_ROT;
                        var kl = sg(dd, "klassifikation");
                        if (kl === "Nicht-Standard") sheet.Cells(row, COL_KLASSIFIK).Interior.Color = H_BERN;
                        var pq = sg(dd, "pdf_qualitaet");
                        if (pq === "Scan") sheet.Cells(row, COL_PDF_QUAL).Interior.Color = H_BERN;
                        else if (pq === "Mixed") sheet.Cells(row, COL_PDF_QUAL).Interior.Color = H_GELB;
                        var mvv = sg(dd, "mv_vollumfaenglich");
                        if (mvv === "teilweise" || mvv === "nein") sheet.Cells(row, COL_VM_VOLLST).Interior.Color = H_ROT;
                        else if (mvv === "ja") sheet.Cells(row, COL_VM_VOLLST).Interior.Color = H_GRUEN;
                        var mvSt = computeMvStatus(rr);
                        if (mvSt === "OK") sheet.Cells(row, COL_MV_STATUS).Interior.Color = H_GRUEN;
                        else if (mvSt === "MV unvollstaendig" || mvSt === "MV fehlt") sheet.Cells(row, COL_MV_STATUS).Interior.Color = H_ROT;
                        else if (mvSt === "kein Anhang") sheet.Cells(row, COL_MV_STATUS).Interior.Color = H_GRAU;
                        else if (mvSt === "nicht pruefbar") sheet.Cells(row, COL_MV_STATUS).Interior.Color = H_GELB;
                        var uk = sg(dd, "unterschrift_kunde");
                        if (uk === "nein") sheet.Cells(row, COL_UNTERSCHR_K).Interior.Color = H_ROT;
                        else if (uk === "ja") sheet.Cells(row, COL_UNTERSCHR_K).Interior.Color = H_GRUEN;
                        var um = sg(dd, "unterschrift_makler");
                        if (um === "nein") sheet.Cells(row, COL_UNTERSCHR_M).Interior.Color = H_ROT;
                        else if (um === "ja") sheet.Cells(row, COL_UNTERSCHR_M).Interior.Color = H_GRUEN;
                    } catch(eHL) {
                        bulkErrors.push("Highlight Zeile " + row + ": " + (eHL.message || "?"));
                    }
                }
                if (statusEl) statusEl.innerText = "Excel-Export: Farben " + endIdx + " / " + exportTotal;
                forceRepaint();
                if (endIdx % 1000 === 0) {
                    try { excel.ScreenUpdating = true; excel.ScreenUpdating = false; } catch(eFlush) {}
                }
                if (endIdx < state.results.length) {
                    setTimeout(function() { colorsChunk(endIdx); }, 0);
                } else {
                    finalizeExport();
                }
            } catch(eC) {
                failExport("Color-Chunk-Fehler bei Zeile " + (startIdx + 1) + ": " + eC.message);
            }
        }

        function finalizeExport() {
            try {
                if (statusEl) statusEl.innerText = "Excel-Export: Auswertung + Formatierung...";
                forceRepaint();

                try {
                    sheet.Columns("A:A").ColumnWidth = 5;
                    sheet.Columns("B:B").ColumnWidth = 40;
                    sheet.Columns("C:H").ColumnWidth = 18;
                    sheet.Cells.Font.Name = "Open Sans";
                    sheet.Cells.WrapText = false;
                    sheet.Range(sheet.Cells(1,1), sheet.Cells(state.results.length + 1, headers.length)).AutoFilter();
                    sheet.Range("A2").Select();
                    excel.ActiveWindow.FreezePanes = true;
                } catch(eFmt) {}

                var auswErr = "";
                try { buildAuswertungSheet(wb, excel); } catch(eAusw) {
                    auswErr = eAusw.message || "unbekannter Fehler";
                }

                try { excel.ScreenUpdating = true; } catch(eS) {}
                try { excel.Calculation = -4105; } catch(eS) {}
                try { excel.EnableEvents = true; } catch(eS) {}
                try { excel.DisplayStatusBar = true; } catch(eS) {}
                excel.DisplayAlerts = true;
                try { excel.Visible = true; } catch(eS) {}

                var okMsg = "Excel mit " + state.results.length + " Vorgaengen + Auswertung-Sheet geoeffnet.";
                if (bulkErrors.length > 0) {
                    okMsg += " <strong>" + bulkErrors.length + " Zeilen mit Schreibfehlern</strong>: " +
                             bulkErrors.slice(0, 3).join(" | ") + (bulkErrors.length > 3 ? " ..." : "");
                }
                if (auswErr) okMsg += " <strong>Auswertung-Sheet fehlgeschlagen:</strong> " + auswErr;
                okMsg += " Bitte manuell speichern.";
                if (statusEl) statusEl.innerText = "";
                if (pgEl && !state.running) pgEl.style.display = "none";
                showSuccess(okMsg);
            } catch(eF) {
                failExport("Finalize-Fehler: " + eF.message);
            }
        }

        function failExport(msg) {
            try { if (typeof excel !== "undefined") {
                excel.ScreenUpdating = true;
                excel.Calculation = -4105;
                excel.EnableEvents = true;
                excel.DisplayAlerts = true;
                excel.DisplayStatusBar = true;
                excel.Visible = true;
            }} catch(eR) {}
            if (statusEl) statusEl.innerText = "";
            if (pgEl && !state.running) pgEl.style.display = "none";
            showError("Excel-Export fehlgeschlagen: " + msg);
        }

        // KICKOFF: erster Chunk je nach bulkOk-Status
        if (!bulkOk) {
            try { sheet.Range(sheet.Cells(2, 1), sheet.Cells(state.results.length + 1, headers.length)).ClearContents(); } catch(eClr) {}
            setTimeout(function() { writePerCellChunk(0); }, 0);
        } else {
            setTimeout(startColorsChunked, 0);
        }
    } catch(e) {
        // Settings auch im Fehlerfall zuruecksetzen (sonst bleibt Excel ggf.
        // unsichtbar/frozen falls Crash zwischen Visible=false und Visible=true)
        try { if (typeof excel !== "undefined") {
            excel.ScreenUpdating = true;
            excel.Calculation = -4105;
            excel.EnableEvents = true;
            excel.DisplayAlerts = true;
            excel.DisplayStatusBar = true;
            excel.Visible = true;
        }} catch(eR) {}
        showError("Excel-Export fehlgeschlagen: " + (e.message || "unbekannter Laufzeitfehler") +
                  (e.number !== undefined ? " (Code " + e.number + ")" : "") +
                  (e.description ? " - " + e.description : ""));
    }
}

// Extrahiert die reine E-Mail-Adresse aus einem To-String wie
// "Bestandsuebertragungen <bestandsuebertragungen@ergo.de>" oder "foo@bar.de".
// Lowercased fuer konsistentes Gruppieren.
function extractRecipientEmail(s) {
    if (!s) return "";
    var str = String(s);
    // Erst: Inhalt zwischen < und >
    var m = str.match(/<([^>]+@[^>]+)>/);
    if (m) return m[1].toLowerCase();
    // Sonst: erste Email-Adresse im String
    var m2 = str.match(/([A-Za-z0-9._%+-]+@[A-Za-z0-9.-]+\.[A-Za-z]{2,})/);
    if (m2) return m2[1].toLowerCase();
    return str.toLowerCase();
}

// Berechnet Statistik fuer ein Subset von Ergebnissen. Liefert ein Objekt
// mit allen Zwischenwerten, die buildAuswertungSheet zum Rendern braucht.
function computeAuswertungStats(results) {
    var st = {
        totalMaklerVorgang: 0,
        classifCounts: {},
        bueResults: [],
        poolCountsBue: {},
        reminderInBue: 0,
        reminderSrcAnhang: 0,
        reminderSrcBetreff: 0,
        reminderSrcBodyKi: 0,
        // Atomare Quellen-Counts (jeder Reminder kann zu mehreren beitragen)
        rqAnhangPdf: 0,
        rqAnhangDateiname: 0,
        rqMailBetreff: 0,
        rqMailBody: 0,
        rqHeuristikBlind: 0,        // alt-Cache, keine Quelle erkennbar
        rqMultiple: 0,              // Anzahl Reminders mit >1 Quelle
        einfacherVertragBue: 0,
        kundenverbindungBue: 0,
        bueTypUnklar: 0,
        mvStatusBue: { "OK": 0, "MV unvollstaendig": 0, "MV fehlt": 0, "kein Anhang": 0, "nicht pruefbar": 0 },
        // PDF-Qualitaet in BU-Vorgaengen (Text-PDF = einfach, Scan = OCR noetig)
        pdfQualitaetBue: { "Text-PDF": 0, "Scan": 0, "Mixed": 0, "Keine_PDFs": 0, "nicht_pruefbar": 0, "(sonstige)": 0 }
    };
    for (var i = 0; i < results.length; i++) {
        var r = results[i];
        if (!r.ok || !r.data) continue;
        var vt = sg(r.data, "vorgangstyp");
        if (vt !== "Makler-Vorgang") continue;
        st.totalMaklerVorgang++;
        var klass = sg(r.data, "klassifikation") || "(leer)";
        st.classifCounts[klass] = (st.classifCounts[klass] || 0) + 1;
        if (klass === "BUe-Vorgang") {
            st.bueResults.push(r);
            var pool = sg(r.data, "maklerpool") || "(kein Pool angegeben)";
            st.poolCountsBue[pool] = (st.poolCountsBue[pool] || 0) + 1;
            if (sg(r.data, "ist_reminder") === "ja") {
                st.reminderInBue++;
                var rqSrc = detectReminderSource(r);
                // Drei-Bucket-Variante fuer Backward-Compat
                if (rqSrc.indexOf("Anhang") === 0) st.reminderSrcAnhang++;
                else if (rqSrc.indexOf("Mail-Betreff") === 0 || rqSrc.indexOf("Betreff") === 0) st.reminderSrcBetreff++;
                else st.reminderSrcBodyKi++;
                // Atomare Quellen-Counts (jede Quelle zaehlt einzeln)
                var atoms = splitReminderQuellen(rqSrc);
                var hasReal = false;
                for (var ai = 0; ai < atoms.length; ai++) {
                    var atom = atoms[ai];
                    if (atom === "Anhang-PDF-Inhalt") { st.rqAnhangPdf++; hasReal = true; }
                    else if (atom === "Anhang-Dateiname") { st.rqAnhangDateiname++; hasReal = true; }
                    else if (atom === "Mail-Betreff") { st.rqMailBetreff++; hasReal = true; }
                    else if (atom === "Mail-Body") { st.rqMailBody++; hasReal = true; }
                }
                if (atoms.length > 1) st.rqMultiple++;
                if (!hasReal) st.rqHeuristikBlind++;
            }
            var gt = sg(r.data, "geschaefts_typ") || "";
            if (gt.indexOf("einfacher") >= 0 || gt.indexOf("einzeln") >= 0) st.einfacherVertragBue++;
            else if (gt.indexOf("Kundenverbindung") >= 0 || gt.indexOf("kundenverbindung") >= 0) st.kundenverbindungBue++;
            else st.bueTypUnklar++;
            var mvs = computeMvStatus(r);
            if (mvs in st.mvStatusBue) st.mvStatusBue[mvs]++;
            else st.mvStatusBue[mvs] = (st.mvStatusBue[mvs] || 0) + 1;
            // PDF-Qualitaet
            var pq = sg(r.data, "pdf_qualitaet") || "(sonstige)";
            if (pq in st.pdfQualitaetBue) st.pdfQualitaetBue[pq]++;
            else st.pdfQualitaetBue["(sonstige)"]++;
        }
    }
    return st;
}

// Zweites Excel-Sheet "Auswertung": Maklerpool-Statistik + BU-Detail-Stats.
// Zaehlt nur echte Makler-Vorgaenge (vorgangstyp=Makler-Vorgang).
// Hat 3 Sektionen: GESAMT (alle Postfaecher), dann pro Postfach ein Drill-Down.
// Konsolidierte MV-Status-Spalte. Reduziert die drei MV-Felder + Anhang-Info
// auf einen Single-Glance-Wert. Reihenfolge zaehlt: zuerst "kein Anhang"
// pruefen, dann "MV fehlt" (Anhang da, aber MV-Flag nein), dann Vollumfang.
function computeMvStatus(r) {
    if (!r || !r.data) return "";
    var d = r.data;
    var anhang = String(r.anhangAlle || "").replace(/^\s+|\s+$/g, "");
    if (!anhang) return "kein Anhang";
    var enth = (sg(d, "enthaelt_maklervollmacht") || "").toLowerCase();
    var voll = (sg(d, "mv_vollumfaenglich") || "").toLowerCase();
    if (enth === "nein") return "MV fehlt";
    if (voll === "ja") return "OK";
    if (voll === "teilweise") return "MV unvollstaendig";
    if (voll === "nein") return "MV unvollstaendig";
    return "nicht pruefbar";
}

function buildAuswertungSheet(wb, excel) {
    // GESAMT-Stats
    var gesamt = computeAuswertungStats(state.results);

    // Per-Postfach gruppieren
    var byPostfach = {};
    for (var i0 = 0; i0 < state.results.length; i0++) {
        var r0 = state.results[i0];
        var pf = extractRecipientEmail(r0.empfaenger) || "(kein Empfaenger)";
        if (!byPostfach[pf]) byPostfach[pf] = [];
        byPostfach[pf].push(r0);
    }
    // Postfaecher sortiert nach Anzahl Mails (egal welcher Klassifikation), absteigend
    var postfaecher = [];
    for (var k0 in byPostfach) if (byPostfach.hasOwnProperty(k0)) postfaecher.push({ email: k0, count: byPostfach[k0].length });
    postfaecher.sort(function(a, b) { return b.count - a.count; });

    // Neues Sheet hinten anhaengen
    var aus = wb.Worksheets.Add();
    try {
        aus.Move(null, wb.Sheets(wb.Sheets.Count));
        aus.Name = "Auswertung";
    } catch(e) {}

    var row = 1;
    function pct(part, total) {
        if (!total || total === 0) return "-";
        return (Math.round((part / total) * 1000) / 10) + "%";
    }
    function header(text, bgColor) {
        aus.Cells(row, 1).Value = text;
        var rng = aus.Range(aus.Cells(row, 1), aus.Cells(row, 3));
        try { rng.Merge(); } catch(e) {}
        rng.Font.Bold = true;
        rng.Font.Size = 13;
        rng.Font.Color = rgb(255, 255, 255);
        rng.Interior.Color = bgColor || rgb(30, 64, 175);
        rng.HorizontalAlignment = -4131; // xlLeft
        aus.Rows(row).RowHeight = 22;
        row++;
    }
    function dataRow(label, value, share, indent, bold) {
        aus.Cells(row, 1).Value = (indent ? "    " : "") + label;
        aus.Cells(row, 2).Value = value;
        aus.Cells(row, 3).Value = share || "";
        if (bold) {
            aus.Range(aus.Cells(row,1), aus.Cells(row,3)).Font.Bold = true;
        }
        row++;
    }

    // Rendert einen Statistik-Block (Uebersicht + BU-Detail + Maklerpools) fuer
    // einen gegebenen Stats-Container. Verwendet die obigen Closures aus
    // buildAuswertungSheet (aus, row, header, dataRow, pct).
    function renderBlock(titlePrefix, st, baseColor) {
        // Uebersicht
        header(titlePrefix + " (echte Makler-Vorgaenge)", baseColor || rgb(30, 64, 175));
        dataRow("Vorgaenge gesamt", st.totalMaklerVorgang, "100%", false, true);
        row++;
        var classifOrder = ["BUe-Vorgang", "Schadenmeldung", "Antrag-Aenderung", "Anfrage-Ruecksprache", "Nicht-Standard"];
        for (var k = 0; k < classifOrder.length; k++) {
            var c = st.classifCounts[classifOrder[k]] || 0;
            dataRow(classifOrder[k], c, pct(c, st.totalMaklerVorgang), true);
        }
        for (var ck in st.classifCounts) {
            if (!st.classifCounts.hasOwnProperty(ck)) continue;
            var inList = false;
            for (var j = 0; j < classifOrder.length; j++) if (classifOrder[j] === ck) { inList = true; break; }
            if (inList) continue;
            // Mahnung-Reminder aus alten Cache-Eintraegen: einklappen unter Klassifikation, ignorieren - cross-cutting via ist_reminder
            if (ck === "Mahnung-Reminder") {
                dataRow(ck + " (alt-Cache, neu: BUe + Reminder)", st.classifCounts[ck], pct(st.classifCounts[ck], st.totalMaklerVorgang), true);
                continue;
            }
            dataRow(ck, st.classifCounts[ck], pct(st.classifCounts[ck], st.totalMaklerVorgang), true);
        }
        row++;

        // BU-Detail
        if (st.bueResults.length > 0) {
            header("BU-VORGAENGE im Detail (n=" + st.bueResults.length + ")", rgb(22, 101, 52));
            dataRow("BUs gesamt", st.bueResults.length, "100%", false, true);
            row++;
            var erst = st.bueResults.length - st.reminderInBue;
            dataRow("Erstvorgang", erst, pct(erst, st.bueResults.length), true);
            dataRow("Reminder / Wiedervorlage", st.reminderInBue, pct(st.reminderInBue, st.bueResults.length), true);
            row++;
            dataRow("einfacher Vertrag", st.einfacherVertragBue, pct(st.einfacherVertragBue, st.bueResults.length), true);
            dataRow("ganze Kundenverbindung", st.kundenverbindungBue, pct(st.kundenverbindungBue, st.bueResults.length), true);
            if (st.bueTypUnklar > 0) dataRow("BU-Typ unklar", st.bueTypUnklar, pct(st.bueTypUnklar, st.bueResults.length), true);
            row++;

            // REMINDER-QUELLEN-Block (eigene Statistik wo der Reminder erkannt wurde)
            if (st.reminderInBue > 0) {
                header("REMINDER-QUELLEN (n=" + st.reminderInBue + " Reminder-BUs)", rgb(180, 83, 9));
                dataRow("Anhang-PDF-Inhalt", st.rqAnhangPdf, pct(st.rqAnhangPdf, st.reminderInBue), true);
                dataRow("Anhang-Dateiname", st.rqAnhangDateiname, pct(st.rqAnhangDateiname, st.reminderInBue), true);
                dataRow("Mail-Betreff", st.rqMailBetreff, pct(st.rqMailBetreff, st.reminderInBue), true);
                dataRow("Mail-Body", st.rqMailBody, pct(st.rqMailBody, st.reminderInBue), true);
                if (st.rqMultiple > 0) dataRow("davon Mehrfach-Quelle (kombiniert)", st.rqMultiple, pct(st.rqMultiple, st.reminderInBue), true);
                if (st.rqHeuristikBlind > 0) dataRow("Quelle nicht erfasst (alt-Cache)", st.rqHeuristikBlind, pct(st.rqHeuristikBlind, st.reminderInBue), true);
                row++;
            }

            // MV-Status-Block (konsolidierter Blick)
            header("MV-STATUS (nur BU-Vorgaenge)", rgb(159, 18, 57));
            var mvOrder = ["OK", "MV unvollstaendig", "MV fehlt", "kein Anhang", "nicht pruefbar"];
            for (var mi = 0; mi < mvOrder.length; mi++) {
                var mk = mvOrder[mi];
                var mv = st.mvStatusBue[mk] || 0;
                dataRow(mk, mv, pct(mv, st.bueResults.length), true);
            }
            // Zusaetzliche unerwartete Werte (sollte nie passieren)
            for (var emk in st.mvStatusBue) {
                if (!st.mvStatusBue.hasOwnProperty(emk)) continue;
                var inOrder = false;
                for (var oi = 0; oi < mvOrder.length; oi++) if (mvOrder[oi] === emk) { inOrder = true; break; }
                if (!inOrder && st.mvStatusBue[emk] > 0) dataRow(emk, st.mvStatusBue[emk], pct(st.mvStatusBue[emk], st.bueResults.length), true);
            }
            row++;

            // PDF-Qualitaet-Block (Text-PDF = automatisierungstauglich, Scan = OCR-Pflichtfall)
            header("PDF-QUALITAET (nur BU-Vorgaenge)", rgb(180, 83, 9));
            var pqOrder = ["Text-PDF", "Mixed", "Scan", "Keine_PDFs", "nicht_pruefbar"];
            var pqLabels = {
                "Text-PDF":     "Text-PDF (auto-tauglich)",
                "Mixed":        "Mixed (teilweise OCR)",
                "Scan":         "Scan (OCR/manuell)",
                "Keine_PDFs":   "Keine PDFs vorhanden",
                "nicht_pruefbar":"nicht pruefbar"
            };
            for (var qi = 0; qi < pqOrder.length; qi++) {
                var qk = pqOrder[qi];
                var qv = st.pdfQualitaetBue[qk] || 0;
                dataRow(pqLabels[qk] || qk, qv, pct(qv, st.bueResults.length), true);
            }
            // Sonstige
            if (st.pdfQualitaetBue["(sonstige)"] > 0) {
                dataRow("(sonstige Werte)", st.pdfQualitaetBue["(sonstige)"], pct(st.pdfQualitaetBue["(sonstige)"], st.bueResults.length), true);
            }
            row++;

            // Maklerpool-Aufstellung
            header("MAKLERPOOLS (nur BU-Vorgaenge, sortiert nach Haeufigkeit)", rgb(14, 116, 144));
            var pools = [];
            for (var p in st.poolCountsBue) if (st.poolCountsBue.hasOwnProperty(p)) pools.push({ name: p, count: st.poolCountsBue[p] });
            pools.sort(function(a, b) { return b.count - a.count; });

            var grossThreshold = 5;
            var sigThreshold = 2;
            if (st.bueResults.length < 10) { grossThreshold = 2; sigThreshold = 2; }

            var einzelfallSum = 0;
            var einzelfallNames = [];
            for (var pi = 0; pi < pools.length; pi++) {
                var pp = pools[pi];
                if (pp.count >= grossThreshold) {
                    dataRow(pp.name, pp.count, pct(pp.count, st.bueResults.length));
                } else if (pp.count >= sigThreshold) {
                    dataRow(pp.name, pp.count, pct(pp.count, st.bueResults.length));
                } else {
                    einzelfallSum++;
                    einzelfallNames.push(pp.name);
                }
            }
            if (einzelfallSum > 0) {
                dataRow("Sonstige (je 1 Vorgang)", einzelfallSum, pct(einzelfallSum, st.bueResults.length), false, true);
                for (var ni = 0; ni < einzelfallNames.length; ni++) {
                    aus.Cells(row, 1).Value = "      - " + einzelfallNames[ni];
                    row++;
                }
            }
        } else if (st.totalMaklerVorgang > 0) {
            header("BU-VORGAENGE im Detail", rgb(22, 101, 52));
            dataRow("Keine BU-Vorgaenge gefunden", 0, "");
        }
        row += 2; // zwei Leerzeilen vor naechstem Block
    }

    // GESAMT-Block
    renderBlock("UEBERSICHT GESAMT (alle Postfaecher)", gesamt, rgb(30, 64, 175));

    // Per-Postfach Drilldown
    if (postfaecher.length > 1) {
        for (var pfi = 0; pfi < postfaecher.length; pfi++) {
            var pfEmail = postfaecher[pfi].email;
            var pfResults = byPostfach[pfEmail];
            var pfStats = computeAuswertungStats(pfResults);
            // Nur Postfaecher mit min. 1 echtem Makler-Vorgang anzeigen
            if (pfStats.totalMaklerVorgang === 0) continue;
            renderBlock("POSTFACH: " + pfEmail + " (n=" + pfResults.length + ")", pfStats, rgb(76, 29, 149));
        }
    }

    // Format
    try {
        aus.Columns("A:A").ColumnWidth = 42;
        aus.Columns("B:B").ColumnWidth = 12;
        aus.Columns("C:C").ColumnWidth = 12;
        aus.Cells.Font.Name = "Open Sans";
        aus.Range("B:B").HorizontalAlignment = -4108; // xlCenter
        aus.Range("C:C").HorizontalAlignment = -4108;
    } catch(e) {}

    // Analyse-Sheet als aktives Tab lassen
    try { wb.Sheets("Analyse").Activate(); } catch(e) {}
}

function exportToJson() {
    if (state.results.length === 0) { showError("Keine Ergebnisse zum Exportieren."); return; }
    hideStatus();
    try {
        var shell = new ActiveXObject("WScript.Shell");
        var shellApp = new ActiveXObject("Shell.Application");
        var dl;
        try { dl = shellApp.NameSpace("shell:Downloads").Self.Path; }
        catch(e) { dl = shell.ExpandEnvironmentStrings("%USERPROFILE%") + "\\Downloads"; }
        var now = new Date();
        var ts = now.getFullYear() + "-" + pad(now.getMonth()+1) + "-" + pad(now.getDate()) + "_" + pad(now.getHours()) + "-" + pad(now.getMinutes());
        var path = dl + "\\ergo_vorgang_analyse_" + ts + ".json";
        var json = jsonStringify({ folder: state.folderPath, exportedAt: isoNow(), results: state.results });
        writeTextFile(path, json);
        showSuccess("JSON gespeichert: " + path);
    } catch(e) {
        showError("JSON-Export fehlgeschlagen: " + e.message);
    }
}

function sg(d, k) {
    if (!d) return "";
    var v = d[k];
    if (v === undefined || v === null) return "";
    return String(v);
}

// Excel interpretiert Strings, die mit = + - @ anfangen, als Formel - und
// wirft "';' erwartet" wenn die Syntax kaputt ist (z.B. bei MIME-encoded
// Subjects wie =?utf-8?Q?...?=). Wir prefixen mit Apostroph -> Force-Text.
function cellSafe(v) {
    if (v == null) return "";
    var s = String(v);
    if (s.length === 0) return "";
    // LLM-Platzhalter wie "leer", "k.A.", "-" als wirklich leer behandeln (nichts
    // in die Zelle schreiben). "nicht_pruefbar" bleibt erhalten - das ist eine
    // bedeutungsvolle Antwort auf Pruef-Felder (Unterschriften etc.).
    var stripped = s.replace(/^\s+|\s+$/g, "");
    if (/^(leer|-|k\.?\s?a\.?|n\/a|na|none|null|undefined|keine?)$/i.test(stripped)) return "";
    var c0 = s.charAt(0);
    if (c0 === "=" || c0 === "+" || c0 === "-" || c0 === "@") {
        return "'" + s;
    }
    return s;
}

// Wie cellSafe, aber strippt zusaetzlich Tab/Newline/CR. Wird beim Bulk-Write
// per VBScript-TSV-Split gebraucht, damit der \t-Separator nicht in einem
// Zell-Wert versehentlich auftaucht.
function cellSafeTsv(v) {
    var s = cellSafe(v);
    if (!s) return "";
    return s.replace(/[\r\n\t]+/g, " ");
}

// ============================================================================
// RENDER TABLE
// ============================================================================
function renderTable() {
    var tbody = document.getElementById("resultsBody");
    var html = "";
    for (var i = 0; i < state.results.length; i++) {
        var r = state.results[i];
        var d = r.data || {};
        var vt = sg(d, "vorgangstyp");
        var vtCls = "col-vt-other";
        if (vt === "Makler-Vorgang") vtCls = "col-vt-makler";
        else if (vt === "Zustellfehler" || vt === "Ergo-Outbound" || vt === "System-Mail") vtCls = "col-vt-bounce";

        var sCls = "s-ok";
        var sTxt = "OK";
        if (!r.ok) {
            if (r.errMsg && r.errMsg.indexOf("ABGEBROCHEN") >= 0) { sCls = "s-cancel"; sTxt = "Abbruch"; }
            else { sCls = "s-err"; sTxt = "Fehler"; }
        }

        html += '<tr onclick="showDetail(' + i + ')">';
        html += '<td>' + (i+1) + '</td>';
        html += '<td class="col-status ' + sCls + '">' + sTxt + '</td>';
        html += '<td>' + esc(r.msgFile) + '</td>';
        html += '<td class="col-date">' + esc(r.datum) + '</td>';
        html += '<td>' + esc(r.absName || r.absMail) + '</td>';
        html += '<td class="col-betr">' + esc(r.betreff) + '</td>';
        html += '<td class="' + vtCls + '">' + esc(vt) + '</td>';
        html += '<td class="col-klass">' + esc(sg(d, "klassifikation")) + '</td>';
        html += '<td>' + esc(sg(d, "maklerpool")) + '</td>';
        html += '<td>' + esc(((sg(d,"kunde_nachname")||"") + " " + (sg(d,"kunde_vorname")||"")).replace(/^\s+|\s+$/g,"")) + '</td>';
        html += '<td>' + esc(sg(d, "mv_vollumfaenglich")) + '</td>';
        html += '<td>' + esc(r.ok ? sg(d, "hinweis") : r.errMsg) + '</td>';
        html += '</tr>';
    }

    // Plus inflight slots as "running" rows
    for (var k in state.slots) {
        if (!state.slots.hasOwnProperty(k)) continue;
        var s = state.slots[k];
        html += '<tr>';
        html += '<td>...</td>';
        html += '<td class="col-status s-running">laeuft</td>';
        html += '<td>' + esc(getFileName(s.msgPath)) + '</td>';
        html += '<td class="col-date">' + esc(s.datum || "") + '</td>';
        html += '<td>' + esc(s.absName || "") + '</td>';
        html += '<td class="col-betr">' + esc(s.betreff || "") + '</td>';
        html += '<td colspan="6"><em>warte auf ErgoGPT...</em></td>';
        html += '</tr>';
    }

    tbody.innerHTML = html;
    document.getElementById("resultsCount").innerText = state.results.length + " Vorgaenge" + (countSlots() > 0 ? " (+" + countSlots() + " laufen)" : "");
    document.getElementById("resultsTableWrap").style.display = (state.results.length + countSlots() > 0) ? "block" : "none";
    refreshStartButton();
}

function showDetail(idx) {
    var r = state.results[idx];
    if (!r) return;
    document.getElementById("detailTitle").innerText = (r.betreff || "(kein Betreff)");
    var kv = "";
    kv += '<div class="k">Datei</div><div class="v">' + esc(r.msgPath) + '</div>';
    kv += '<div class="k">Datum</div><div class="v">' + esc(r.datum) + '</div>';
    kv += '<div class="k">Absender</div><div class="v">' + esc(r.absName) + " &lt;" + esc(r.absMail) + "&gt;</div>";
    kv += '<div class="k">Anhaenge</div><div class="v">' + esc(r.anhangAlle || "(keine)") + '</div>';
    kv += '<div class="k">PDFs hochgeladen</div><div class="v">' + esc(r.pdfListe || "(keine)") + '</div>';
    kv += '<div class="k">Status</div><div class="v">' + (r.ok ? '<span style="color:#10b981">OK</span>' : '<span style="color:#ef4444">' + esc(r.errMsg) + '</span>') + '</div>';
    if (r.data) {
        var keys = ["vorgangstyp","ist_reminder","klassifikation","klassifikation_grund","maklerpool","makler_nachname","makler_vorname","makler_nummer","kunde_nachname","kunde_vorname","kunde_nummer","versicherungsnummer","geschaefts_typ","unterlagen_angefragt","unterlagen_liste","sonderfall","sparte","anhang_typen","pdf_qualitaet","enthaelt_maklervollmacht","mv_vollumfaenglich","mv_einschraenkungen","unterschrift_kunde","unterschrift_makler","auf_vn_ausgestellt","makler_namentlich_genannt","auftrag_datum","hinweis"];
        for (var i = 0; i < keys.length; i++) {
            var v = r.data[keys[i]];
            if (v) kv += '<div class="k">' + keys[i] + '</div><div class="v">' + esc(v) + '</div>';
        }
    }
    document.getElementById("detailKv").innerHTML = kv;
    document.getElementById("detailRaw").innerText = r.ok ? "" : (r.errMsg || "");
    document.getElementById("detailModal").className = "modal-backdrop active";
}

function closeDetail(ev) {
    if (ev && ev.target && String(ev.target.className).indexOf("modal-backdrop") === -1) return;
    document.getElementById("detailModal").className = "modal-backdrop";
}

// ============================================================================
// HELPERS
// ============================================================================
function saveSettings() {
    try {
        if (!window.localStorage) return;
        var s = {
            model: document.getElementById("modelInput").value,
            parallel: document.getElementById("parallelInput").value,
            lastFolder: state.folderPath
        };
        window.localStorage.setItem("ergo_va_settings", jsonStringify(s));
    } catch(e) {}
}

function getSenderEmail(mailItem) {
    try {
        var typ = mailItem.SenderEmailType;
        if (typ === "EX") {
            try {
                var s = mailItem.Sender;
                if (s) {
                    var eu = s.GetExchangeUser();
                    if (eu && eu.PrimarySmtpAddress) return eu.PrimarySmtpAddress;
                }
            } catch(e) {}
        }
        return mailItem.SenderEmailAddress || "";
    } catch(e) { return ""; }
}

// Sammelt alle To-Empfaenger (olTo=1). Bei Exchange-Empfaengern wird die
// Primary SMTP Address ueber AddressEntry.GetExchangeUser geholt, sonst
// fallback auf Display-Name. DN-Pfade (/o=...) werden weggefiltert.
function getRecipientsTo(mailItem) {
    var out = [];
    try {
        var rc = mailItem.Recipients.Count;
        for (var i = 1; i <= rc; i++) {
            try {
                var rcp = mailItem.Recipients.Item(i);
                if (rcp.Type !== 1) continue; // olTo only
                var name = "";
                var smtp = "";
                try { name = String(rcp.Name || ""); } catch(e) {}
                try {
                    var ae = rcp.AddressEntry;
                    if (ae) {
                        var eu = ae.GetExchangeUser();
                        if (eu && eu.PrimarySmtpAddress) smtp = eu.PrimarySmtpAddress;
                    }
                } catch(e) {}
                if (!smtp) {
                    try { smtp = String(rcp.Address || ""); } catch(e) {}
                    // DN-String unterdruecken
                    if (smtp.charAt(0) === "/") smtp = "";
                }
                var entry = name;
                if (smtp && smtp !== name && smtp.indexOf("@") > 0) {
                    entry = name ? (name + " <" + smtp + ">") : smtp;
                }
                if (entry) out.push(entry);
            } catch(e) {}
        }
    } catch(e) {}
    return out.join("; ");
}

function getEnv(name) {
    try {
        var shell = new ActiveXObject("WScript.Shell");
        return shell.ExpandEnvironmentStrings("%" + name + "%");
    } catch(e) { return ""; }
}

// Vollstaendiger Pfad zur HTA-Datei (inkl. Dateiname)
function getHtaPath() {
    var dir = getHtaDir();
    var name = getHtaFileName();
    if (!dir || !name) return "";
    return dir + "\\" + name;
}

function getHtaFileName() {
    try {
        var href = decodeURIComponent(String(location.href));
        if (href.toLowerCase().substr(0, 5) === "file:") href = href.substr(5);
        href = href.replace(/^\/+/, "").replace(/\//g, "\\");
        var qPos = href.indexOf("?"); if (qPos >= 0) href = href.substr(0, qPos);
        var slash = href.lastIndexOf("\\");
        return slash >= 0 ? href.substr(slash + 1) : href;
    } catch(e) { return ""; }
}

// True, wenn das HTA von einem UNC-Pfad (\\server\share\...) laeuft.
// IE klassifiziert das als Internet-Zone -> ADODB.Stream wird gesperrt.
function isRunningFromUnc() {
    var dir = getHtaDir();
    return dir && dir.substr(0, 2) === "\\\\";
}

// Kopiert HTA + Cookie.txt nach %LOCALAPPDATA%\ergo-vorgang-analyse\,
// ENTFERNT Mark-of-the-Web (sonst bleibt die Kopie weiter in Internet-
// Zone), startet die neue Instanz, schliesst die aktuelle.
function relocateToLocal() {
    var htaDir = getHtaDir();
    var htaPath = getHtaPath();
    if (!htaDir || !htaPath) {
        showError("HTA-Pfad konnte nicht ermittelt werden.");
        return;
    }
    try {
        var shell = new ActiveXObject("WScript.Shell");
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        var localBase = shell.ExpandEnvironmentStrings("%LOCALAPPDATA%") + "\\ergo-vorgang-analyse";
        if (!fso.FolderExists(localBase)) fso.CreateFolder(localBase);

        // Ziel-Dateinamen
        var htaName = getHtaFileName() || "ergo-vorgang-analyse.hta";
        var dstHta = localBase + "\\" + htaName;
        fso.CopyFile(htaPath, dstHta, true);
        unblockFile(dstHta);

        // Cookie.txt mitkopieren + entsperren falls vorhanden
        var srcCookie = htaDir + "\\Cookie.txt";
        var dstCookie = localBase + "\\Cookie.txt";
        if (fso.FileExists(srcCookie)) {
            try { fso.CopyFile(srcCookie, dstCookie, true); } catch(e) {}
            unblockFile(dstCookie);
        }

        // Neue Instanz starten + diese schliessen
        shell.Run('mshta "' + dstHta + '"', 1, false);
        window.setTimeout(function() {
            try { window.close(); } catch(e) {}
        }, 300);
    } catch(e) {
        showError("Verschieben fehlgeschlagen: " + e.message + "\n\nManueller Workaround:\n1. HTA + Cookie.txt nach C:\\ kopieren\n2. Rechtsklick auf die kopierte HTA -> Eigenschaften -> Zulassen-Haken setzen\n3. HTA doppelklicken");
    }
}

// Entfernt MOTW von der laufenden HTA + Cookie.txt + startet neu.
// Fuer den Fall, dass das HTA lokal liegt, aber den Mark-of-the-Web noch
// vom urspruenglichen Download mitschleppt.
function unblockSelfAndRestart() {
    var htaPath = getHtaPath();
    if (!htaPath) { showError("HTA-Pfad nicht ermittelbar."); return; }
    try {
        unblockFile(htaPath);
        if (COOKIE_PATH) unblockFile(COOKIE_PATH);
        var shell = new ActiveXObject("WScript.Shell");
        shell.Run('mshta "' + htaPath + '"', 1, false);
        window.setTimeout(function() { try { window.close(); } catch(e) {} }, 300);
    } catch(e) {
        showError("Entsperren fehlgeschlagen: " + e.message + "\n\nManueller Workaround:\nRechtsklick auf die HTA -> Eigenschaften -> ganz unten 'Zulassen' anklicken -> OK -> HTA neu starten.");
    }
}

// Entfernt das Mark-of-the-Web ('Zone.Identifier'-ADS) von einer Datei.
// Ohne diesen Schritt bleibt eine kopierte/heruntergeladene Datei in der
// Internet-Zone, auch wenn sie auf C:\ liegt - und ADODB.Stream wird
// weiter gesperrt.
function unblockFile(path) {
    if (!path) return;
    // Variante 1: ADS direkt loeschen via FSO (geht bei manchen Rechtekonfigs)
    try {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        fso.DeleteFile(path + ":Zone.Identifier", true);
        return;
    } catch(e1) {}
    // Variante 2: PowerShell Unblock-File (Standard-Weg)
    try {
        var shell = new ActiveXObject("WScript.Shell");
        var ps = 'powershell.exe -NoProfile -WindowStyle Hidden -ExecutionPolicy Bypass -Command "Unblock-File -LiteralPath \'' + path + '\'"';
        shell.Run(ps, 0, true); // hidden window, wait for exit
        return;
    } catch(e2) {}
    // Variante 3: cmd-DEL der ADS (legacy)
    try {
        var shell2 = new ActiveXObject("WScript.Shell");
        shell2.Run('cmd.exe /c del "' + path + ':Zone.Identifier" 2>nul', 0, true);
    } catch(e3) {}
}

// Verzeichnis, in dem die HTA-Datei liegt - via location.href parsen.
// Behandelt sowohl lokale Pfade (file:///C:/...) als auch UNC-Pfade
// (file:////server/share/... oder file://server/share/...).
function getHtaDir() {
    try {
        var href = decodeURIComponent(String(location.href));
        if (href.toLowerCase().substr(0, 5) === "file:") {
            href = href.substr(5);
        }
        // Anzahl fuehrender Slashes zaehlen
        var leadSlashes = 0;
        while (leadSlashes < href.length && href.charAt(leadSlashes) === "/") {
            leadSlashes++;
        }
        href = href.substr(leadSlashes);
        // Backslashes statt Slashes
        href = href.replace(/\//g, "\\");
        // Querystring/Hash abschneiden
        var qPos = href.indexOf("?"); if (qPos >= 0) href = href.substr(0, qPos);
        var hPos = href.indexOf("#"); if (hPos >= 0) href = href.substr(0, hPos);
        // UNC-Erkennung:
        //   - 4+ Slashes nach 'file:' (leeres authority, z.B. file:////server/share)
        //   - oder erstes Segment ist kein Laufwerksbuchstabe (X:)
        var firstSeg = href.split("\\")[0];
        var isDriveLetter = /^[a-zA-Z]:$/.test(firstSeg);
        if (leadSlashes >= 4 || !isDriveLetter) {
            href = "\\\\" + href;
        }
        var slash = href.lastIndexOf("\\");
        if (slash < 0) return "";
        return href.substr(0, slash);
    } catch(e) {
        return "";
    }
}

function getFileName(path) {
    if (!path) return "";
    var i = String(path).lastIndexOf("\\");
    return i >= 0 ? path.substr(i+1) : path;
}

// ============================================================================
// DATE RANGE FILTER (v1.21)
// ============================================================================
// Liest Datum aus Dateinamen-Praefix (Muster YYYY-MM-DD oder YYYY-MM-DD_HHMM).
// Wenn kein Datum im Namen erkennbar: Mail wird eingeschlossen (Default-Strict).
function isInDateRange(filePath) {
    if (!state.dateFrom && !state.dateTo) return true;
    var fname = getFileName(filePath);
    var m = fname.match(/^(\d{4})-(\d{2})-(\d{2})/);
    if (!m) return true; // kein Datum im Namen -> default einschliessen
    var y = parseInt(m[1], 10);
    var mo = parseInt(m[2], 10) - 1;
    var d = parseInt(m[3], 10);
    if (isNaN(y) || isNaN(mo) || isNaN(d)) return true;
    var fileDate = new Date(y, mo, d);
    if (state.dateFrom && fileDate < state.dateFrom) return false;
    if (state.dateTo) {
        // dateTo gilt als end-of-day
        var endOfDay = new Date(state.dateTo.getFullYear(), state.dateTo.getMonth(), state.dateTo.getDate(), 23, 59, 59);
        if (fileDate > endOfDay) return false;
    }
    return true;
}

// Liefert die durch Datum gefilterten msgFiles. Default: state.msgFiles
// (unfiltriert), wenn beide Datum-Felder leer.
function getFilteredMsgFiles() {
    if (!state.dateFrom && !state.dateTo) return state.msgFiles;
    var out = [];
    for (var i = 0; i < state.msgFiles.length; i++) {
        if (isInDateRange(state.msgFiles[i])) out.push(state.msgFiles[i]);
    }
    return out;
}

function setDateRangeQuick(days) {
    var now = new Date();
    var to = new Date(now.getFullYear(), now.getMonth(), now.getDate());
    var from = new Date(to.getFullYear(), to.getMonth(), to.getDate() - days + 1);
    document.getElementById("dateFrom").value = isoDateInput(from);
    document.getElementById("dateTo").value = isoDateInput(to);
    onDateChange();
}

function resetDateRange() {
    document.getElementById("dateFrom").value = "";
    document.getElementById("dateTo").value = "";
    onDateChange();
}

function isoDateInput(d) {
    var pad2 = function(n) { return n < 10 ? "0" + n : "" + n; };
    return d.getFullYear() + "-" + pad2(d.getMonth() + 1) + "-" + pad2(d.getDate());
}

// Kurzformat YYMMDD fuer Ordnernamen (spart 4 Zeichen vs ISO YYYY-MM-DD).
// Bei langen UNC-Pfaden + Windows-260-Limit zaehlt jedes Zeichen.
function shortDateForFolder(d) {
    var pad2 = function(n) { return n < 10 ? "0" + n : "" + n; };
    return String(d.getFullYear()).substr(2) + pad2(d.getMonth() + 1) + pad2(d.getDate());
}

// Akzeptiert TT.MM.JJJJ (Deutsch), TT/MM/JJJJ und JJJJ-MM-TT (ISO).
// IE11/HTA-Mode rendert <input type="date"> als normales Textfeld -> User
// kann jedes Format tippen.
function parseDateInput(s) {
    if (!s) return null;
    s = String(s).replace(/^\s+|\s+$/g, "");
    if (!s) return null;
    var m;
    // ISO: 2026-05-15
    m = s.match(/^(\d{4})-(\d{1,2})-(\d{1,2})$/);
    if (m) {
        var d1 = new Date(parseInt(m[1], 10), parseInt(m[2], 10) - 1, parseInt(m[3], 10));
        if (!isNaN(d1.getTime())) return d1;
    }
    // Deutsch: 15.05.2026 oder 1.5.26
    m = s.match(/^(\d{1,2})\.(\d{1,2})\.(\d{2,4})$/);
    if (m) {
        var y = parseInt(m[3], 10);
        if (y < 100) y += 2000;
        var d2 = new Date(y, parseInt(m[2], 10) - 1, parseInt(m[1], 10));
        if (!isNaN(d2.getTime())) return d2;
    }
    // Slash: 15/05/2026
    m = s.match(/^(\d{1,2})\/(\d{1,2})\/(\d{2,4})$/);
    if (m) {
        var y2 = parseInt(m[3], 10);
        if (y2 < 100) y2 += 2000;
        var d3 = new Date(y2, parseInt(m[2], 10) - 1, parseInt(m[1], 10));
        if (!isNaN(d3.getTime())) return d3;
    }
    return null;
}

function onDateChange() {
    var fromStr = document.getElementById("dateFrom").value;
    var toStr = document.getElementById("dateTo").value;
    state.dateFrom = parseDateInput(fromStr);
    state.dateTo = parseDateInput(toStr);
    refreshFolderStats();
    refreshDateRangeStatus();
    refreshStartButton();
    saveSettings();
}

function refreshDateRangeStatus() {
    var el = document.getElementById("dateRangeStatus");
    if (!el) return;
    if (!state.dateFrom && !state.dateTo) {
        el.innerText = "Filtert nach Datum im Dateinamen (Muster YYYY-MM-DD_HHMM_...). Aktuell: kein Filter aktiv - alle Mails werden analysiert.";
        return;
    }
    var fStr = state.dateFrom ? isoDateInput(state.dateFrom) : "(offen)";
    var tStr = state.dateTo ? isoDateInput(state.dateTo) : "(offen)";
    var inRange = 0, noDate = 0;
    for (var i = 0; i < state.msgFiles.length; i++) {
        if (isInDateRange(state.msgFiles[i])) inRange++;
        var fn = getFileName(state.msgFiles[i]);
        if (!fn.match(/^(\d{4})-(\d{2})-(\d{2})/)) noDate++;
    }
    var msg = "Zeitraum: " + fStr + " bis " + tStr + " - " + inRange + " von " + state.msgFiles.length + " Mails im Filter.";
    if (noDate > 0) {
        msg += " (" + noDate + " ohne Datum im Dateinamen werden eingeschlossen.)";
    }
    el.innerText = msg;
}

function refreshFolderStats() {
    var el = document.getElementById("folderStats");
    if (!el) return;
    var total = state.msgFiles.length;
    if (total === 0) { el.innerHTML = ""; return; }
    var inRange = (state.dateFrom || state.dateTo) ? getFilteredMsgFiles().length : total;
    var cached = state.results.length;
    var html = '<div class="stat">.msg-Dateien gefunden: <strong>' + total + '</strong></div>';
    if (state.dateFrom || state.dateTo) {
        html += '<div class="stat">Im Zeitraum: <strong>' + inRange + '</strong></div>';
    }
    if (cached > 0) {
        html += '<div class="stat ok">Aus Cache geladen: <strong>' + cached + '</strong></div>';
        var todo = Math.max(0, inRange - cached);
        html += '<div class="stat">Noch zu analysieren: <strong>' + todo + '</strong></div>';
    }
    el.innerHTML = html;
}

function sanitizeFilename(s) {
    if (!s) return "anhang";
    return String(s).replace(/[\\\/:*?"<>|\r\n\t]/g, "_").replace(/\s+/g, " ").replace(/^\s+|\s+$/g, "");
}

function pad(n) { return n < 10 ? "0" + n : "" + n; }
function trim(s) { return s == null ? "" : String(s).replace(/^\s+|\s+$/g, ""); }
function esc(s) {
    if (s == null) return "";
    return String(s).replace(/&/g, "&amp;").replace(/</g, "&lt;").replace(/>/g, "&gt;").replace(/"/g, "&quot;");
}

function jsonEscape(s) {
    return String(s == null ? "" : s)
        .replace(/\\/g, "\\\\")
        .replace(/"/g, '\\"')
        .replace(/\r\n/g, "\\n").replace(/\r/g, "\\n").replace(/\n/g, "\\n")
        .replace(/\t/g, " ");
}

function cleanForJson(s) {
    return jsonEscape(String(s == null ? "" : s));
}

function jsonUnescape(s) {
    // Reverse what extractAssistantFromChunk regex left in - it's still JSON-encoded
    if (!s) return "";
    var r = s;
    r = r.replace(/\\u([0-9a-fA-F]{4})/g, function(_, h) { return String.fromCharCode(parseInt(h, 16)); });
    r = r.replace(/\\"/g, '"');
    r = r.replace(/\\\//g, "/");
    r = r.replace(/\\\\/g, "\\");
    r = r.replace(/\\r/g, "");
    r = r.replace(/\\t/g, "\t");
    return r;
}

function jsonStringify(obj) {
    if (typeof JSON !== "undefined" && JSON.stringify) {
        try { return JSON.stringify(obj, null, 2); } catch(e) {}
    }
    return jsonStringifyFallback(obj);
}

function jsonStringifyFallback(obj) {
    var t = typeof obj;
    if (obj === null) return "null";
    if (t === "string") return '"' + obj.replace(/\\/g, "\\\\").replace(/"/g, '\\"').replace(/\n/g, "\\n").replace(/\r/g, "\\r").replace(/\t/g, "\\t") + '"';
    if (t === "number" || t === "boolean") return String(obj);
    if (t === "undefined") return "null";
    if (Object.prototype.toString.call(obj) === "[object Array]") {
        var parts = [];
        for (var i = 0; i < obj.length; i++) parts.push(jsonStringifyFallback(obj[i]));
        return "[" + parts.join(",") + "]";
    }
    if (t === "object") {
        var parts2 = [];
        for (var k in obj) {
            if (obj.hasOwnProperty(k)) parts2.push('"' + k + '":' + jsonStringifyFallback(obj[k]));
        }
        return "{" + parts2.join(",") + "}";
    }
    return "null";
}

function isoNow() {
    var n = new Date();
    return n.getFullYear() + "-" + pad(n.getMonth()+1) + "-" + pad(n.getDate()) +
           "T" + pad(n.getHours()) + ":" + pad(n.getMinutes()) + ":" + pad(n.getSeconds());
}

function uuid4() {
    var s = "";
    var parts = [8, 4, 4, 4, 12];
    for (var i = 0; i < parts.length; i++) {
        for (var j = 0; j < parts[i]; j++) {
            s += Math.floor(Math.random() * 16).toString(16);
        }
        if (i < parts.length - 1) s += "-";
    }
    return s;
}

// ============================================================================
// STATUS
// ============================================================================
function updateProgress(cur, total, label) {
    var pct = total > 0 ? Math.round((cur / total) * 100) : 0;
    document.getElementById("progressFill").style.width = pct + "%";
    document.getElementById("progressText").innerText =
        pct + "%  -  " + cur + "/" + total + " erledigt" + (label ? "  -  " + label : "");
    forceRepaint();
}

function updateProgressText(t) {
    document.getElementById("progressText").innerText = t;
    forceRepaint();
}

// In HTAs blockiert ein synchroner Aufruf (z.B. WScript.Shell.Run mit
// wait=true fuer PowerShell-Upload) den UI-Thread. Diese Funktion erzwingt
// einen Layout+Paint-Tick, damit zwischendurch der aktuelle Status sichtbar
// wird, bevor der naechste Sync-Call die UI wieder einfriert.
function forceRepaint() {
    try {
        // Layout-Reflow erzwingen
        var dummy = document.body.offsetHeight;
        // window.refresh ist IE-spezifisch, ignorieren wenn nicht da
        if (window.refresh) window.refresh();
    } catch(e) {}
}

// Setzt die aktuelle Phase fuer einen Slot und aktualisiert die Live-Anzeige.
function setSlotPhase(slot, phase) {
    if (!slot) return;
    slot.phase = phase;
    slot.phaseAt = new Date().getTime();
    renderSlotStatus();
}

// Live-Log: Eine Zeile pro abgeschlossener Mail. Haelt nur die letzten 50.
var _aiLogLines = [];
function appendAiLog(kind, msgPath, detail) {
    var name = msgPath ? msgPath.substr(msgPath.lastIndexOf("\\")+1) : "?";
    if (name.length > 70) name = name.substr(0, 67) + "...";
    var now = new Date();
    var hh = pad(now.getHours()), mm = pad(now.getMinutes()), ss = pad(now.getSeconds());
    var marker = (kind === "OK") ? "[OK]   " : "[FEHLER]";
    var line = hh + ":" + mm + ":" + ss + " " + marker + " " + name + (detail ? " - " + detail : "");
    _aiLogLines.push(line);
    if (_aiLogLines.length > 50) _aiLogLines.splice(0, _aiLogLines.length - 50);
    var el = document.getElementById("aiLog");
    if (el) {
        el.innerText = _aiLogLines.join("\n");
        try { el.scrollTop = el.scrollHeight; } catch(eS) {}
    }
}

function clearAiLog() {
    _aiLogLines = [];
    var el = document.getElementById("aiLog");
    if (el) el.innerText = "";
}

function renderSlotStatus() {
    var lines = [];
    var slotIds = [];
    for (var k in state.slots) if (state.slots.hasOwnProperty(k)) slotIds.push(k);
    // Numerisch sortieren (s1, s2, ..., s9, s10 statt lexikal s1, s10, s11, s2)
    slotIds.sort(function(a, b) {
        var na = parseInt(String(a).replace(/^s/, ""), 10) || 0;
        var nb = parseInt(String(b).replace(/^s/, ""), 10) || 0;
        return na - nb;
    });
    for (var i = 0; i < slotIds.length; i++) {
        var s = state.slots[slotIds[i]];
        var age = "";
        if (s.phaseAt) {
            var secs = Math.max(0, Math.round((new Date().getTime() - s.phaseAt) / 1000));
            age = " (" + secs + "s)";
        }
        var fileName = s.msgPath ? s.msgPath.substr(s.msgPath.lastIndexOf("\\")+1) : "";
        // Kappung lange Dateinamen
        if (fileName.length > 60) fileName = fileName.substr(0, 57) + "...";
        lines.push("[" + s.id + "] " + (s.phase || "init") + age + " - " + fileName);
    }
    var el = document.getElementById("slotStatus");
    if (el) el.innerText = lines.join("\n");
    forceRepaint();
}

function showSuccess(m) {
    var e = document.getElementById("successStatus");
    e.style.display = "block";
    document.getElementById("successMsg").innerHTML = m;
    document.getElementById("errorStatus").style.display = "none";
    document.getElementById("infoStatus").style.display = "none";
}
function showError(m) {
    document.getElementById("errorStatus").style.display = "block";
    document.getElementById("errorMsg").innerHTML = m;
    document.getElementById("successStatus").style.display = "none";
    document.getElementById("infoStatus").style.display = "none";
}
function showInfo(m) {
    document.getElementById("infoStatus").style.display = "block";
    document.getElementById("infoMsg").innerHTML = m;
    document.getElementById("successStatus").style.display = "none";
    document.getElementById("errorStatus").style.display = "none";
}
function hideStatus() {
    document.getElementById("successStatus").style.display = "none";
    document.getElementById("errorStatus").style.display = "none";
    document.getElementById("infoStatus").style.display = "none";
}

// ============================================================================
// POOL-SCHNELLUEBERSICHT (ohne KI)
// ============================================================================
// Reine Heuristik-basierte Pool-Identifikation aus Absender-Domain, Subject,
// Signatur-Block. Kein Cookie, kein GPT, kein PDF-Upload - laeuft komplett
// lokal in ~1 Sekunde pro Mail.

var POOL_RULES = [
    {
        name: "Fonds Finanz Maklerservice GmbH",
        domains: ["fondsfinanz.de", "ff-maklerservice.de", "fonds-finanz.de", "fondsfinanz.com"],
        sigPatterns: [/Fonds[\s-]*Finanz/i],
        subjectPatterns: []
    },
    {
        name: "BCA AG",
        domains: ["bca.de", "bca-ag.de"],
        sigPatterns: [/\bBCA\s*AG\b/, /\bBCA\b.{0,40}\bMaklerservice/i],
        subjectPatterns: [/\bBCA[\s-]*ID\b/i]
    },
    {
        name: "DEMA Deutsche Versicherungsmakler AG",
        domains: ["dema-ag.de", "dema.de"],
        sigPatterns: [/DEMA[\s-]*Deutsche[\s-]*Versicherungsmakler/i, /DEMA\s*AG/i, /DEMA\s*Maklerabteilung/i],
        subjectPatterns: [/Dokumente\s+von\s+der\s+DEMA/i, /DEMA[\s-]*Maklerabteilung/i, /DEMMAK/i]
    },
    {
        name: "JDC Group AG / Jung DMS",
        domains: ["jdc.de", "jungdms.de", "jung-dms.de", "jdcgroup.de"],
        sigPatterns: [/JDC[\s-]*Group/i, /Jung[\s-]*DMS/i, /Jung,\s*DMS\s*&\s*Cie/i],
        subjectPatterns: []
    },
    {
        name: "Maxpool Maklerkooperation GmbH",
        domains: ["maxpool.de"],
        sigPatterns: [/Maxpool[\s-]*Maklerkooperation/i, /\bMaxpool\b.{0,40}GmbH/i],
        subjectPatterns: []
    },
    {
        name: "blau direkt GmbH & Co. KG",
        domains: ["blau-direkt.de", "blaudirekt.de"],
        sigPatterns: [/blau[\s-]*direkt/i],
        subjectPatterns: []
    },
    {
        name: "CHECK24 Vergleichsportal Versicherungen",
        domains: ["check24.de", "check24-versicherungen.de"],
        sigPatterns: [/CHECK24/, /Check24/],
        subjectPatterns: []
    },
    {
        name: "Apella AG",
        domains: ["apella.de", "apella-ag.de"],
        sigPatterns: [/Apella[\s-]*AG/i],
        subjectPatterns: []
    },
    {
        name: "Hypoport AG",
        domains: ["hypoport.de", "hypoport-systeme.de"],
        sigPatterns: [/Hypoport[\s-]*AG/i],
        subjectPatterns: []
    },
    {
        name: "Verifox GmbH",
        domains: ["verifox.de", "verifox.com"],
        sigPatterns: [/Verifox/i],
        subjectPatterns: []
    },
    {
        name: "Impuls Finanzmanagement AG",
        domains: ["impuls-finanzmanagement.de", "impuls-fm.de"],
        sigPatterns: [/Impuls[\s-]*Finanzmanagement/i],
        subjectPatterns: []
    },
    {
        name: "ROLAND Versicherungsmakler",
        domains: ["roland-versicherungsmakler.de"],
        sigPatterns: [/ROLAND[\s-]*Versicherungsmakler/i],
        subjectPatterns: []
    },
    {
        name: "WIFO Wirtschafts- und Finanzkontor",
        domains: ["wifo.de", "wifo-makler.de"],
        sigPatterns: [/WIFO[\s-]*Wirtschafts/i, /\bWIFO\b.{0,40}Finanzkontor/i],
        subjectPatterns: []
    },
    {
        name: "Aruna GmbH",
        domains: ["aruna.de"],
        sigPatterns: [/\bAruna\s*GmbH\b/i],
        subjectPatterns: []
    },
    {
        name: "Phoenix Maklergesellschaft",
        domains: ["phoenix-mg.de", "phoenix-maklergesellschaft.de"],
        sigPatterns: [/Ph(o|oe|ö)nix[\s-]*Maklergesellschaft/i],
        subjectPatterns: []
    },
    {
        name: "24-Vorsorge GmbH",
        domains: ["24-vorsorge.de"],
        sigPatterns: [/24[\s-]*Vorsorge/i],
        subjectPatterns: []
    },
    {
        name: "ERGO (intern, kein Maklerpool)",
        domains: ["ergo.de", "itergo.com", "ergo.com", "ergo-direkt.de"],
        sigPatterns: [],
        subjectPatterns: []
    }
];

// Extrahiert den Signatur-Block: die letzten 15 nicht-leeren Zeilen des Body,
// gefiltert auf typische Signatur-Marker (Tel/Fax/USt/Sitz/E-Mail/Web).
function extractSignature(body) {
    if (!body) return "";
    var lines = String(body).split(/\r?\n/);
    // Entferne leere Zeilen am Anfang/Ende
    while (lines.length > 0 && trim(lines[lines.length-1]) === "") lines.pop();
    // Nimm letzte 20 Zeilen (signatur + footer)
    var sig = lines.slice(Math.max(0, lines.length - 20)).join("\n");
    return sig;
}

// Identifiziert den Maklerpool. Reihenfolge: Domain > Subject > Signatur.
// Returns { name, source, detail } oder null.
function detectPool(senderEmail, senderName, subject, body) {
    var email = (senderEmail || "").toLowerCase();
    var atPos = email.indexOf("@");
    var emailDomain = atPos >= 0 ? email.substr(atPos + 1) : "";

    // 1. Domain-Match
    for (var i = 0; i < POOL_RULES.length; i++) {
        var rule = POOL_RULES[i];
        for (var d = 0; d < rule.domains.length; d++) {
            var dom = rule.domains[d];
            if (emailDomain === dom || emailDomain.length > dom.length + 1 &&
                emailDomain.substr(emailDomain.length - dom.length - 1) === "." + dom) {
                return { name: rule.name, source: "Domain", detail: emailDomain };
            }
        }
    }

    // 2. Subject-Match
    var subj = String(subject || "");
    for (var i2 = 0; i2 < POOL_RULES.length; i2++) {
        var r2 = POOL_RULES[i2];
        for (var s = 0; s < r2.subjectPatterns.length; s++) {
            if (r2.subjectPatterns[s].test(subj)) {
                return { name: r2.name, source: "Subject", detail: r2.subjectPatterns[s].source };
            }
        }
    }

    // 3. Signatur-Match
    var sig = extractSignature(body);
    for (var i3 = 0; i3 < POOL_RULES.length; i3++) {
        var r3 = POOL_RULES[i3];
        for (var p = 0; p < r3.sigPatterns.length; p++) {
            if (r3.sigPatterns[p].test(sig)) {
                return { name: r3.name, source: "Signatur", detail: r3.sigPatterns[p].source };
            }
        }
    }

    return null;
}

// Hauptfunktion: scannt alle MSG-Dateien im aktuellen Ordner, identifiziert
// den Pool pro Mail, schreibt Excel mit Detail + Aggregation.
function runQuickPoolOverview() {
    if (state.running) return;
    if (!outlookApp) { showError("Outlook nicht verbunden."); return; }
    var filtered = getFilteredMsgFiles();
    if (filtered.length === 0) {
        showError("Keine .msg-Dateien im Ordner oder Zeitraum.");
        return;
    }

    state.running = true;
    document.getElementById("progressContainer").style.display = "block";
    document.getElementById("slotStatus").innerText = "";
    refreshStartButton();
    hideStatus();

    var rows = [];
    var poolCounts = {};
    var sourceCounts = {};
    var fso = new ActiveXObject("Scripting.FileSystemObject");

    setTimeout(function() { doPoolScan(rows, poolCounts, sourceCounts, fso, filtered, filtered.length, 0); }, 50);
}

function doPoolScan(rows, poolCounts, sourceCounts, fso, files, total, idx) {
    if (idx >= total) {
        // Fertig - Daten fuer Bulk-Triage merken + Excel exportieren
        document.getElementById("progressContainer").style.display = "none";
        state.running = false;
        // Daten in state.xxlResults speichern, damit Bulk-Triage / weitere
        // Stufen ohne separaten Pool-XXL-Lauf weitermachen koennen.
        state.xxlResults = rows;
        refreshStartButton();
        try {
            exportPoolOverviewToExcel(rows, poolCounts, sourceCounts);
            showSuccess(total + " Mails ausgewertet, " + Object.keysCount(poolCounts) + " unterschiedliche Pools erkannt. Bulk-Triage ist jetzt freigeschaltet.");
        } catch(e) {
            showError("Excel-Export fehlgeschlagen: " + e.message);
        }
        return;
    }

    var msgPath = files[idx];
    updateProgress(idx, total, "Pool-Erkennung: " + getFileName(msgPath));

    var row = {
        idx: idx + 1,
        msgFile: getFileName(msgPath),
        path: msgPath,           // fuer downstream Stufe-2 (PDF-Upload)
        datum: "",
        absName: "",
        absMail: "",
        absDomain: "",
        empfaenger: "",
        betreff: "",
        body: "",                // fuer Bulk-Triage-Prompt
        pool: "",
        source: "",
        sourceDetail: "",
        attCount: 0,
        attNames: ""
    };

    try {
        var it = outlookApp.Session.OpenSharedItem(msgPath);
        try {
            var d = new Date(it.ReceivedTime);
            row.datum = pad(d.getDate()) + "." + pad(d.getMonth()+1) + "." + d.getFullYear() + " " + pad(d.getHours()) + ":" + pad(d.getMinutes());
        } catch(e) {}
        try { row.absName = String(it.SenderName || ""); } catch(e) {}
        try { row.absMail = getSenderEmail(it); } catch(e) {}
        try { row.empfaenger = getRecipientsTo(it); } catch(e) {}
        try { row.betreff = String(it.Subject || ""); } catch(e) {}
        try { row.body = String(it.Body || ""); } catch(e) {}

        var atPos = row.absMail.indexOf("@");
        if (atPos >= 0) row.absDomain = row.absMail.substr(atPos + 1).toLowerCase();

        try {
            var ac = it.Attachments.Count;
            row.attCount = ac;
            var names = [];
            for (var a = 1; a <= Math.min(ac, 5); a++) {
                try { names.push(String(it.Attachments.Item(a).FileName)); } catch(e) {}
            }
            row.attNames = names.join("; ");
        } catch(e) {}

        try { it.Close(1); } catch(e) {}

        var detection = detectPool(row.absMail, row.absName, row.betreff, row.body);
        if (detection) {
            row.pool = detection.name;
            row.source = detection.source;
            row.sourceDetail = detection.detail || "";
        } else {
            row.pool = "(unbekannt)";
            row.source = "-";
        }

        poolCounts[row.pool] = (poolCounts[row.pool] || 0) + 1;
        var srcKey = row.pool + "||" + row.source;
        sourceCounts[srcKey] = (sourceCounts[srcKey] || 0) + 1;

    } catch(e) {
        row.pool = "(Fehler)";
        row.source = e.message;
    }

    rows.push(row);

    // Nicht-blockierend weiter - setTimeout(0) gibt UI Luft
    setTimeout(function() { doPoolScan(rows, poolCounts, sourceCounts, fso, files, total, idx + 1); }, 5);
}

// Helper: Anzahl Keys in einem Plain-Object
Object.keysCount = function(obj) {
    var n = 0;
    for (var k in obj) if (obj.hasOwnProperty(k)) n++;
    return n;
};

function exportPoolOverviewToExcel(rows, poolCounts, sourceCounts) {
    var excel = new ActiveXObject("Excel.Application");
    excel.Visible = true;
    excel.DisplayAlerts = false;
    var wb = excel.Workbooks.Add();

    // ========== SHEET 1: Alle Mails ==========
    var sheet1 = wb.ActiveSheet;
    try { sheet1.Name = "Alle Mails"; } catch(e) {}
    var headers1 = ["#", "Datei", "Datum", "Absender Name", "Absender Email", "Domain", "Empfaenger (bei uns)", "Betreff", "Erkannter Pool", "Quelle", "Quelle-Detail", "Anhang-Anzahl", "Anhang-Namen"];
    for (var c = 0; c < headers1.length; c++) {
        sheet1.Cells(1, c + 1).Value = headers1[c];
    }
    try {
        var h1 = sheet1.Range(sheet1.Cells(1,1), sheet1.Cells(1, headers1.length));
        h1.Font.Bold = true;
        h1.Font.Color = rgb(255, 255, 255);
        h1.Interior.Color = rgb(124, 58, 237); // lila wie der Button
        h1.HorizontalAlignment = -4108;
        sheet1.Rows(1).RowHeight = 22;
    } catch(e) {}

    for (var i = 0; i < rows.length; i++) {
        var r = rows[i];
        var row = i + 2;
        sheet1.Cells(row, 1).Value = r.idx;
        sheet1.Cells(row, 2).Value = cellSafe(r.msgFile);
        sheet1.Cells(row, 3).Value = cellSafe(r.datum);
        sheet1.Cells(row, 4).Value = cellSafe(r.absName);
        sheet1.Cells(row, 5).Value = cellSafe(r.absMail);
        sheet1.Cells(row, 6).Value = cellSafe(r.absDomain);
        sheet1.Cells(row, 7).Value = cellSafe(r.empfaenger);
        sheet1.Cells(row, 8).Value = cellSafe(r.betreff);
        sheet1.Cells(row, 9).Value = cellSafe(r.pool);
        sheet1.Cells(row, 10).Value = cellSafe(r.source);
        sheet1.Cells(row, 11).Value = cellSafe(r.sourceDetail);
        sheet1.Cells(row, 12).Value = r.attCount;
        sheet1.Cells(row, 13).Value = cellSafe(r.attNames);
        // Highlight unbekannte / Fehler in Pool-Spalte (jetzt Spalte 9)
        if (r.pool === "(unbekannt)") {
            try { sheet1.Cells(row, 9).Interior.Color = rgb(254, 240, 138); } catch(e) {}
        } else if (r.pool === "(Fehler)") {
            try { sheet1.Cells(row, 9).Interior.Color = rgb(252, 165, 165); } catch(e) {}
        }
    }
    try {
        sheet1.Columns("A:A").ColumnWidth = 5;
        sheet1.Columns("B:B").ColumnWidth = 35;
        sheet1.Columns("C:C").ColumnWidth = 16;
        sheet1.Columns("D:E").ColumnWidth = 28;
        sheet1.Columns("F:F").ColumnWidth = 22;
        sheet1.Columns("G:G").ColumnWidth = 30;
        sheet1.Columns("H:H").ColumnWidth = 50;
        sheet1.Columns("I:I").ColumnWidth = 35;
        sheet1.Columns("J:K").ColumnWidth = 14;
        sheet1.Columns("L:L").ColumnWidth = 8;
        sheet1.Columns("M:M").ColumnWidth = 40;
        sheet1.Cells.Font.Name = "Open Sans";
        sheet1.Range(sheet1.Cells(1,1), sheet1.Cells(rows.length + 1, headers1.length)).AutoFilter();
        sheet1.Range("A2").Select();
        excel.ActiveWindow.FreezePanes = true;
    } catch(e) {}

    // ========== SHEET 2: Pool-Übersicht ==========
    var sheet2 = wb.Worksheets.Add();
    try {
        sheet2.Move(null, wb.Sheets(wb.Sheets.Count));
        sheet2.Name = "Pool-Uebersicht";
    } catch(e) {}
    var headers2 = ["Pool", "Anzahl", "Anteil", "Erkennungs-Methoden"];
    for (var c2 = 0; c2 < headers2.length; c2++) {
        sheet2.Cells(1, c2 + 1).Value = headers2[c2];
    }
    try {
        var h2 = sheet2.Range(sheet2.Cells(1,1), sheet2.Cells(1, headers2.length));
        h2.Font.Bold = true;
        h2.Font.Color = rgb(255, 255, 255);
        h2.Interior.Color = rgb(14, 116, 144); // petrol
        h2.HorizontalAlignment = -4108;
        sheet2.Rows(1).RowHeight = 22;
    } catch(e) {}

    // Pools nach Anzahl sortieren
    var poolArr = [];
    for (var p in poolCounts) if (poolCounts.hasOwnProperty(p)) {
        poolArr.push({ name: p, count: poolCounts[p] });
    }
    poolArr.sort(function(a, b) { return b.count - a.count; });

    var totalMails = rows.length;
    for (var pi = 0; pi < poolArr.length; pi++) {
        var pp = poolArr[pi];
        var row2 = pi + 2;
        sheet2.Cells(row2, 1).Value = cellSafe(pp.name);
        sheet2.Cells(row2, 2).Value = pp.count;
        sheet2.Cells(row2, 3).Value = totalMails > 0 ? (Math.round((pp.count / totalMails) * 1000) / 10) + "%" : "-";
        // Erkennungs-Methoden zusammenstellen
        var methods = [];
        for (var sk in sourceCounts) {
            if (!sourceCounts.hasOwnProperty(sk)) continue;
            var sp = sk.split("||");
            if (sp[0] === pp.name) methods.push(sp[1] + " (" + sourceCounts[sk] + ")");
        }
        sheet2.Cells(row2, 4).Value = methods.join(", ");
        // Highlight: unbekannt = gelb, Fehler = rot, Top-Pool = grün
        if (pp.name === "(unbekannt)") {
            try { sheet2.Range(sheet2.Cells(row2,1), sheet2.Cells(row2, headers2.length)).Interior.Color = rgb(254, 240, 138); } catch(e) {}
        } else if (pp.name === "(Fehler)") {
            try { sheet2.Range(sheet2.Cells(row2,1), sheet2.Cells(row2, headers2.length)).Interior.Color = rgb(252, 165, 165); } catch(e) {}
        } else if (pi === 0 && pp.count >= 2) {
            try { sheet2.Cells(row2, 2).Interior.Color = rgb(187, 247, 208); } catch(e) {}
        }
    }
    try {
        sheet2.Columns("A:A").ColumnWidth = 45;
        sheet2.Columns("B:B").ColumnWidth = 10;
        sheet2.Columns("C:C").ColumnWidth = 10;
        sheet2.Columns("D:D").ColumnWidth = 50;
        sheet2.Cells.Font.Name = "Open Sans";
        sheet2.Range("B:C").HorizontalAlignment = -4108;
    } catch(e) {}

    // ========== SHEET 3: Unbekannte Pools (nur wenn vorhanden) ==========
    var unknownRows = [];
    for (var ui = 0; ui < rows.length; ui++) {
        if (rows[ui].pool === "(unbekannt)") unknownRows.push(rows[ui]);
    }
    if (unknownRows.length > 0) {
        var sheet3 = wb.Worksheets.Add();
        try {
            sheet3.Move(null, wb.Sheets(wb.Sheets.Count));
            sheet3.Name = "Unbekannte Pools";
        } catch(e) {}
        var headers3 = ["#", "Datei", "Absender Name", "Absender Email", "Domain", "Empfaenger (bei uns)", "Betreff", "Anhang-Namen"];
        for (var c3 = 0; c3 < headers3.length; c3++) {
            sheet3.Cells(1, c3 + 1).Value = headers3[c3];
        }
        try {
            var h3 = sheet3.Range(sheet3.Cells(1,1), sheet3.Cells(1, headers3.length));
            h3.Font.Bold = true;
            h3.Font.Color = rgb(255, 255, 255);
            h3.Interior.Color = rgb(180, 83, 9); // amber
            h3.HorizontalAlignment = -4108;
            sheet3.Rows(1).RowHeight = 22;
        } catch(e) {}
        for (var ui2 = 0; ui2 < unknownRows.length; ui2++) {
            var ur = unknownRows[ui2];
            sheet3.Cells(ui2 + 2, 1).Value = ur.idx;
            sheet3.Cells(ui2 + 2, 2).Value = cellSafe(ur.msgFile);
            sheet3.Cells(ui2 + 2, 3).Value = cellSafe(ur.absName);
            sheet3.Cells(ui2 + 2, 4).Value = cellSafe(ur.absMail);
            sheet3.Cells(ui2 + 2, 5).Value = cellSafe(ur.absDomain);
            sheet3.Cells(ui2 + 2, 6).Value = cellSafe(ur.empfaenger);
            sheet3.Cells(ui2 + 2, 7).Value = cellSafe(ur.betreff);
            sheet3.Cells(ui2 + 2, 8).Value = cellSafe(ur.attNames);
        }
        try {
            sheet3.Columns("A:A").ColumnWidth = 5;
            sheet3.Columns("B:B").ColumnWidth = 35;
            sheet3.Columns("C:D").ColumnWidth = 28;
            sheet3.Columns("E:E").ColumnWidth = 22;
            sheet3.Columns("F:F").ColumnWidth = 30;
            sheet3.Columns("G:G").ColumnWidth = 50;
            sheet3.Columns("H:H").ColumnWidth = 40;
            sheet3.Cells.Font.Name = "Open Sans";
            sheet3.Range(sheet3.Cells(1,1), sheet3.Cells(unknownRows.length + 1, headers3.length)).AutoFilter();
            sheet3.Range("A2").Select();
            excel.ActiveWindow.FreezePanes = true;
        } catch(e) {}
    }

    // Pool-Uebersicht aktivieren (wichtigster Tab)
    try { wb.Sheets("Pool-Uebersicht").Activate(); } catch(e) {}
    excel.DisplayAlerts = true;
}

// ============================================================================
// POOL-XXL: .msg-Parser ohne Outlook (VBScript-Subprozess, Chunks von 500)
// ============================================================================
// Liest .msg-Dateien direkt als Binaer, re-interpretiert als UTF-16 LE,
// extrahiert Headers/Body/Attachments per Regex. Kein Outlook noetig.
// ~10-30 ms pro Mail -> 6000 Mails in 2-5 Minuten.

function runQuickPoolOverviewXxl() {
    if (state.running) return;
    var filtered = getFilteredMsgFiles();
    if (filtered.length === 0) { showError("Keine .msg-Dateien im Ordner oder Zeitraum."); return; }

    state.running = true;
    document.getElementById("progressContainer").style.display = "block";
    document.getElementById("slotStatus").innerText = "";
    refreshStartButton();
    hideStatus();

    var shell = new ActiveXObject("WScript.Shell");
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var tempDir = shell.ExpandEnvironmentStrings("%TEMP%");
    var stamp = String(new Date().getTime()) + "_" + Math.floor(Math.random() * 1000000);

    // VBS-Parser einmalig nach TEMP schreiben
    var vbsPath = tempDir + "\\ergo_msgparse_" + stamp + ".vbs";
    try {
        var vbsFile = fso.CreateTextFile(vbsPath, true, false);
        vbsFile.Write(buildParseMsgVbs());
        vbsFile.Close();
    } catch(e) {
        state.running = false;
        refreshStartButton();
        document.getElementById("progressContainer").style.display = "none";
        showError("VBS-Skript konnte nicht erstellt werden: " + e.message);
        return;
    }

    // Chunking - nur Mails im Zeitraum
    var chunks = [];
    var chunkSize = 500;
    for (var i = 0; i < filtered.length; i += chunkSize) {
        chunks.push(filtered.slice(i, i + chunkSize));
    }

    state.xxlState = {
        chunks: chunks,
        chunkIdx: 0,
        results: [],
        startTime: new Date().getTime(),
        vbsPath: vbsPath,
        tempDir: tempDir,
        totalMails: filtered.length
    };

    updateProgress(0, filtered.length, "XXL-Parser startet, " + chunks.length + " Chunks a " + chunkSize + " Mails...");
    setTimeout(processNextXxlChunk, 50);
}

function processNextXxlChunk() {
    if (!state.running) return;
    var xs = state.xxlState;
    if (xs.chunkIdx >= xs.chunks.length) {
        finishXxl();
        return;
    }

    var chunk = xs.chunks[xs.chunkIdx];
    var processedBefore = 0;
    for (var i = 0; i < xs.chunkIdx; i++) processedBefore += xs.chunks[i].length;

    var elapsed = Math.round((new Date().getTime() - xs.startTime) / 1000);
    var rate = elapsed > 0 ? Math.round(processedBefore / elapsed) : 0;
    var rateStr = rate > 0 ? (rate + " Mails/s, ETA ~" + Math.max(1, Math.round((xs.totalMails - processedBefore) / rate)) + "s") : "";

    updateProgress(processedBefore, xs.totalMails,
        "Chunk " + (xs.chunkIdx + 1) + "/" + xs.chunks.length +
        " (" + chunk.length + " Mails) - " + rateStr);
    forceRepaint();

    var shell = new ActiveXObject("WScript.Shell");
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var subStamp = String(new Date().getTime()) + "_" + xs.chunkIdx;
    var listPath = xs.tempDir + "\\ergo_msglist_" + subStamp + ".txt";
    var outPath = xs.tempDir + "\\ergo_msgout_" + subStamp + ".json";
    var canaryPath = xs.tempDir + "\\ergo_canary_" + subStamp + ".log";
    var rc = -999;
    var resultsBeforeChunk = xs.results.length;

    try {
        // Path-Liste als Unicode schreiben (Umlaute in Pfaden!)
        var listFile = fso.CreateTextFile(listPath, true, true);
        for (var p = 0; p < chunk.length; p++) {
            listFile.WriteLine(chunk[p]);
        }
        listFile.Close();

        var cmd = 'wscript.exe //NoLogo //B "' + xs.vbsPath + '" "' + listPath + '" "' + outPath + '" "' + canaryPath + '"';
        rc = shell.Run(cmd, 0, true);

        if (fso.FileExists(outPath)) {
            // VBS schreibt als UTF-16 LE + BOM via FSO.CreateTextFile -> wir lesen
            // direkt mit Format -1 (Unicode). KEIN Laengen-Vergleich mit anderen
            // Varianten - der lieferte faelschlich ASCII-Read (2x Bytes durch
            // Null-Byte-Interleaving) und brach den JSON-Parse.
            var fileSize = 0;
            try { fileSize = fso.GetFile(outPath).Size; } catch(eS) {}
            var readDiag = { fileSize: fileSize, attempts: [] };

            var content = "";
            try {
                var fU = fso.OpenTextFile(outPath, 1, false, -1);
                content = String(fU.ReadAll());
                fU.Close();
                readDiag.attempts.push({ name: "FSO Unicode (-1)", length: content.length, preview: content.substr(0, 150) });
            } catch(eR) {
                readDiag.attempts.push({ name: "FSO Unicode (-1)", error: eR.message });
                // Fallback: probier SystemDefault
                try {
                    var fD = fso.OpenTextFile(outPath, 1, false, -2);
                    content = String(fD.ReadAll());
                    fD.Close();
                    readDiag.attempts.push({ name: "FSO SystemDefault (-2)", length: content.length, preview: content.substr(0, 150) });
                } catch(eR2) {
                    readDiag.attempts.push({ name: "FSO SystemDefault (-2)", error: eR2.message });
                }
            }

            // BOM + Whitespace strippen
            if (content.charCodeAt(0) === 0xFEFF) content = content.substr(1);
            content = content.replace(/^\s+|\s+$/g, "");
            readDiag.bestVariant = "FSO Unicode (-1)";
            readDiag.contentLength = content.length;
            readDiag.contentPreview = content.substr(0, 200);

            if (content && content.length > 2) {
                try {
                    var parsed;
                    if (typeof JSON !== "undefined" && JSON.parse) {
                        parsed = JSON.parse(content);
                    } else {
                        parsed = eval("(" + content + ")");
                    }
                    if (parsed && parsed.length) {
                        for (var k = 0; k < parsed.length; k++) xs.results.push(parsed[k]);
                        readDiag.parseOk = true;
                        readDiag.parsedCount = parsed.length;
                    } else {
                        readDiag.parseOk = true;
                        readDiag.parsedCount = 0;
                        readDiag.note = "parsed but empty";
                    }
                } catch(eP) {
                    readDiag.parseError = eP.message || String(eP);
                }
            } else {
                readDiag.note = "content zu kurz oder leer";
            }
            xs._lastReadDiag = readDiag;
        }
    } catch(e) {
        for (var fi = 0; fi < chunk.length; fi++) {
            xs.results.push({ file: chunk[fi].substr(chunk[fi].lastIndexOf("\\") + 1), path: chunk[fi], err: "Chunk-Fehler: " + e.message });
        }
    }

    var chunkProducedResults = xs.results.length > resultsBeforeChunk;

    // Wenn erster Chunk nichts liefert: Canary lesen, Diagnose merken, abbrechen
    if (!chunkProducedResults && !xs.firstFailureDiag) {
        var canaryContent = "(Canary-Log konnte nicht gelesen werden)";
        try {
            if (fso.FileExists(canaryPath)) {
                canaryContent = readTextFile(canaryPath) || "(leer)";
            } else {
                canaryContent = "(Canary-Log wurde gar nicht geschrieben - VBS wurde wahrscheinlich nicht ausgefuehrt)";
            }
        } catch(e) { canaryContent = "Canary read error: " + e.message; }

        xs.firstFailureDiag = {
            chunkIdx: xs.chunkIdx,
            rc: rc,
            outputExists: fso.FileExists(outPath),
            canaryExists: fso.FileExists(canaryPath),
            canary: canaryContent,
            cmd: cmd,
            listPath: listPath,
            outPath: outPath,
            canaryPath: canaryPath,
            chunkSize: chunk.length
        };
        // Temp-Dateien dieses Chunks NICHT loeschen - zur Inspektion behalten
        xs.chunkIdx++;
        // Abbrechen statt weiter zu versuchen
        finishXxl();
        return;
    }

    // Normaler Cleanup
    try { fso.DeleteFile(listPath, true); } catch(e) {}
    try { fso.DeleteFile(outPath, true); } catch(e) {}
    try { fso.DeleteFile(canaryPath, true); } catch(e) {}

    xs.chunkIdx++;
    setTimeout(processNextXxlChunk, 10);
}

function finishXxl() {
    var xs = state.xxlState;
    var elapsedSec = Math.round((new Date().getTime() - xs.startTime) / 1000);

    document.getElementById("progressContainer").style.display = "none";
    state.running = false;
    refreshStartButton();

    // 0-Result-Diagnose-Pfad
    if (xs.results.length === 0 && xs.firstFailureDiag) {
        var d = xs.firstFailureDiag;
        var readDiag = xs._lastReadDiag || {};
        var attemptsHtml = "";
        if (readDiag.attempts) {
            for (var ai = 0; ai < readDiag.attempts.length; ai++) {
                var at = readDiag.attempts[ai];
                attemptsHtml += "<b>" + esc(at.name) + ":</b> ";
                if (at.error) {
                    attemptsHtml += "<span style='color:#fca5a5'>ERROR " + esc(at.error) + "</span>";
                } else {
                    attemptsHtml += "len=" + at.length + " preview=<code style='font-size:10px'>" + esc((at.preview || "").substr(0, 100)) + "</code>";
                }
                attemptsHtml += "<br>";
            }
        }
        var parseInfo = "";
        if (readDiag.parseError) {
            parseInfo = "<span style='color:#fca5a5'>JSON-Parse-Error: " + esc(readDiag.parseError) + "</span>";
        } else if (readDiag.parseOk) {
            parseInfo = "Parsed OK, count=" + readDiag.parsedCount + " (" + (readDiag.note || "") + ")";
        } else {
            parseInfo = readDiag.note || "(kein Parse-Versuch)";
        }

        var msg = "<strong>XXL-Modus hat 0 Mails verarbeitet.</strong><br><br>" +
                  "<strong>Diagnose:</strong><br>" +
                  "wscript.exe Exit-Code: " + d.rc + "<br>" +
                  "Output-Datei existiert: " + (d.outputExists ? "ja (" + (readDiag.fileSize || 0) + " bytes)" : "<strong>NEIN</strong>") + "<br>" +
                  "Canary-Log existiert: " + (d.canaryExists ? "ja" : "<strong>NEIN</strong>") + "<br>" +
                  "Chunk-Groesse war: " + d.chunkSize + " Mails<br><br>" +

                  "<strong>Lese-Versuche (FSO):</strong><br>" +
                  "<div style=\"font-size:11px;background:#0f172a;padding:6px;border-radius:4px;\">" + attemptsHtml + "</div>" +

                  "<br><strong>Best variant:</strong> " + esc(readDiag.bestVariant || "(keine)") +
                  " &mdash; Content-Length nach BOM-Strip: " + (readDiag.contentLength || 0) + "<br>" +
                  "<strong>Content Preview:</strong><br>" +
                  "<pre style=\"background:#0f172a;padding:6px;border-radius:4px;font-size:11px;max-height:120px;overflow:auto;white-space:pre-wrap;\">" +
                  esc(readDiag.contentPreview || "(leer)") + "</pre>" +
                  "<strong>Parse-Result:</strong> " + parseInfo + "<br><br>" +

                  "<strong>Canary-Log (VBS-Seite):</strong><br>" +
                  "<pre style=\"background:#0f172a;padding:8px;border-radius:4px;font-size:11px;max-height:200px;overflow:auto;white-space:pre-wrap;\">" +
                  esc(d.canary).substr(0, 4000) + "</pre>" +

                  "<strong>Debug-Dateien (NICHT geloescht):</strong><br>" +
                  "<code style=\"font-size:10px;\">" +
                  "Output:&nbsp;" + esc(d.outPath) + "</code>";
        showError(msg);
        return;
    }

    // POOL_RULES-Detection lokal anwenden (JS, das geht ohne weiteres)
    var rows = [];
    var poolCounts = {};
    var sourceCounts = {};
    for (var i = 0; i < xs.results.length; i++) {
        var r = xs.results[i];
        var row = {
            idx: i + 1,
            msgFile: r.file || "",
            datum: r.datum || "",
            absName: r.fromName || "",
            absMail: r.fromEmail || "",
            absDomain: "",
            empfaenger: r.to || "",
            betreff: r.subject || "",
            pool: "",
            source: "",
            sourceDetail: "",
            attCount: 0,
            attNames: r.attNames || "",
            body: r.body || "",        // fuer Bulk-Triage (Stufe 1)
            path: r.path || ""          // fuer ggf. Stufe 2 (PDF-Upload aus Pfad)
        };
        var atPos = row.absMail.indexOf("@");
        if (atPos >= 0) row.absDomain = row.absMail.substr(atPos + 1).toLowerCase();
        if (row.attNames && row.attNames.length > 0) {
            row.attCount = row.attNames.split(";").length;
        }

        if (r.err) {
            row.pool = "(Fehler)";
            row.source = r.err.substr(0, 100);
        } else {
            var det = detectPool(row.absMail, row.absName, row.betreff, r.body || "");
            if (det) {
                row.pool = det.name;
                row.source = det.source;
                row.sourceDetail = det.detail || "";
            } else {
                row.pool = "(unbekannt)";
                row.source = "-";
            }
        }

        poolCounts[row.pool] = (poolCounts[row.pool] || 0) + 1;
        var sk = row.pool + "||" + row.source;
        sourceCounts[sk] = (sourceCounts[sk] || 0) + 1;
        rows.push(row);
    }

    // In-memory cache fuer Stufe 1 (Bulk-Triage) - selbe Session
    state.xxlResults = rows;

    // VBS-Skript aufraeumen (nur wenn kein Debug-Modus)
    if (!xs.firstFailureDiag) {
        try {
            var fso = new ActiveXObject("Scripting.FileSystemObject");
            fso.DeleteFile(xs.vbsPath, true);
        } catch(e) {}
    }

    try {
        exportPoolOverviewToExcel(rows, poolCounts, sourceCounts);
        var rate = elapsedSec > 0 ? Math.round(rows.length / elapsedSec) : 0;
        showSuccess(rows.length + " Mails in " + elapsedSec + "s ausgewertet (" + rate + " Mails/s), " +
                    Object.keysCount(poolCounts) + " unterschiedliche Pools.");
    } catch(e) {
        showError("Excel-Export fehlgeschlagen: " + e.message);
    }

    // Wenn User vorher Bulk-Triage gewaehlt hat, automatisch weiter
    maybeAutoStartBulkAfterXxl();
}

// VBS-Skript fuer den .msg-Direkt-Parser.
// Args: <input-list-utf16.txt> <output-result.json>
function buildParseMsgVbs() {
    var v = [];
    v.push("Option Explicit");
    v.push("Dim fso, inputPath, outputPath, canaryPath, raw, paths, i, path");
    v.push("Set fso = CreateObject(\"Scripting.FileSystemObject\")");
    v.push("inputPath = WScript.Arguments(0)");
    v.push("outputPath = WScript.Arguments(1)");
    v.push("If WScript.Arguments.Count >= 3 Then canaryPath = WScript.Arguments(2) Else canaryPath = \"\"");
    v.push("");
    // Canary-Log - schreibt Step-by-step Status, damit JS bei Fehler sieht wo's gehakt hat
    v.push("Dim canaryStm");
    v.push("On Error Resume Next");
    v.push("If Len(canaryPath) > 0 Then");
    v.push("    Set canaryStm = fso.CreateTextFile(canaryPath, True, False)");
    v.push("End If");
    v.push("Err.Clear");
    v.push("On Error GoTo 0");
    v.push("");
    v.push("Sub Log(msg)");
    v.push("    On Error Resume Next");
    v.push("    If Not canaryStm Is Nothing Then canaryStm.WriteLine msg");
    v.push("    On Error GoTo 0");
    v.push("End Sub");
    v.push("");
    v.push("Log \"VBS started at \" & Now");
    v.push("Log \"Args: input=\" & inputPath & \" output=\" & outputPath");
    v.push("");
    v.push("On Error Resume Next");
    v.push("Dim tsIn");
    v.push("Set tsIn = fso.OpenTextFile(inputPath, 1, False, -1)");
    v.push("If Err.Number <> 0 Then");
    v.push("    Log \"FATAL OpenTextFile(input) Error: \" & Err.Description");
    v.push("    Err.Clear");
    v.push("    On Error GoTo 0");
    v.push("    If Not canaryStm Is Nothing Then canaryStm.Close");
    v.push("    WScript.Quit 1");
    v.push("End If");
    v.push("On Error GoTo 0");
    v.push("");
    v.push("raw = tsIn.ReadAll");
    v.push("tsIn.Close");
    v.push("paths = Split(raw, vbCrLf)");
    v.push("Log \"Path list loaded, \" & (UBound(paths) + 1) & \" entries\"");
    v.push("");
    // Output via FSO Unicode (UTF-16 LE + BOM) - das kann FSO auf JS-Seite
    // sauber wieder lesen. ADODB.Stream-UTF-8 hingegen kann FSO nicht parsen.
    v.push("Dim outFile");
    v.push("On Error Resume Next");
    v.push("Set outFile = fso.CreateTextFile(outputPath, True, True)");
    v.push("If Err.Number <> 0 Then");
    v.push("    Log \"FATAL CreateTextFile Error: \" & Err.Description");
    v.push("    Err.Clear");
    v.push("    On Error GoTo 0");
    v.push("    If Not canaryStm Is Nothing Then canaryStm.Close");
    v.push("    WScript.Quit 2");
    v.push("End If");
    v.push("On Error GoTo 0");
    v.push("");
    v.push("outFile.Write \"[\"");
    v.push("Dim isFirst, processed, errored");
    v.push("isFirst = True : processed = 0 : errored = 0");
    v.push("");
    v.push("For i = 0 To UBound(paths)");
    v.push("    path = Trim(paths(i))");
    v.push("    If Len(path) > 0 Then");
    v.push("        If fso.FileExists(path) Then");
    v.push("            Dim j");
    v.push("            On Error Resume Next");
    v.push("            j = ParseMsg(path)");
    v.push("            If Err.Number <> 0 Then");
    v.push("                Log \"ParseMsg error for \" & path & \": \" & Err.Description");
    v.push("                j = \"{\"\"file\"\":\"\"\" & JsonEsc(fso.GetFileName(path)) & \"\"\",\"\"err\"\":\"\"\" & JsonEsc(Err.Description) & \"\"\"}\"");
    v.push("                Err.Clear");
    v.push("                errored = errored + 1");
    v.push("            End If");
    v.push("            On Error GoTo 0");
    v.push("            If Not isFirst Then outFile.Write \",\"");
    v.push("            outFile.Write j");
    v.push("            isFirst = False");
    v.push("            processed = processed + 1");
    v.push("            If processed Mod 50 = 0 Then Log \"Progress: \" & processed & \"/\" & (UBound(paths)+1)");
    v.push("        Else");
    v.push("            Log \"File not found (skipped): \" & path");
    v.push("        End If");
    v.push("    End If");
    v.push("Next");
    v.push("");
    v.push("outFile.Write \"]\"");
    v.push("outFile.Close");
    v.push("Log \"Loop done. processed=\" & processed & \" errored=\" & errored");
    v.push("Log \"Output saved to \" & outputPath");
    v.push("");
    v.push("Log \"VBS finished at \" & Now");
    v.push("If Not canaryStm Is Nothing Then canaryStm.Close");
    v.push("WScript.Quit 0");
    v.push("");

    // ParseMsg
    v.push("Function ParseMsg(path)");
    v.push("    Dim raw16, fname, subject, fromName, fromEmail, toAll, datum, body, attNames, errMsg");
    v.push("    fname = fso.GetFileName(path)");
    v.push("    subject = \"\" : fromName = \"\" : fromEmail = \"\" : toAll = \"\"");
    v.push("    datum = \"\" : body = \"\" : attNames = \"\" : errMsg = \"\"");
    v.push("    On Error Resume Next");
    v.push("    raw16 = ReadAsUtf16(path)");
    v.push("    If Err.Number <> 0 Then");
    v.push("        errMsg = \"read-error: \" & Err.Description");
    v.push("        Err.Clear");
    v.push("    End If");
    v.push("    On Error GoTo 0");
    v.push("    If Len(raw16) > 0 And errMsg = \"\" Then");
    v.push("        Dim hStart");
    v.push("        hStart = FindHeaderStart(raw16)");
    v.push("        If hStart > 0 Then");
    v.push("            Dim hEnd, hdrs, blank");
    v.push("            hEnd = hStart + 16000");
    v.push("            If hEnd > Len(raw16) Then hEnd = Len(raw16)");
    v.push("            blank = InStr(hStart, raw16, vbCrLf & vbCrLf)");
    v.push("            If blank > 0 And blank < hEnd Then hEnd = blank");
    v.push("            hdrs = Mid(raw16, hStart, hEnd - hStart)");
    v.push("            subject = ExtractMimeField(hdrs, \"Subject\")");
    v.push("            Dim fromFld");
    v.push("            fromFld = ExtractField(hdrs, \"From\")");
    v.push("            ParseEmailField fromFld, fromName, fromEmail");
    v.push("            toAll = ExtractField(hdrs, \"To\")");
    v.push("            datum = ExtractField(hdrs, \"Date\")");
    v.push("        End If");
    v.push("        attNames = ExtractAttachmentNames(raw16)");
    v.push("        body = ExtractBodySignature(raw16)");
    v.push("    End If");
    v.push("    ParseMsg = MakeJson(fname, path, datum, fromName, fromEmail, toAll, subject, body, attNames, errMsg)");
    v.push("End Function");
    v.push("");

    // MakeJson
    v.push("Function MakeJson(fname, path, datum, fromName, fromEmail, toAll, subject, body, attNames, errMsg)");
    v.push("    MakeJson = \"{\"\"file\"\":\"\"\" & JsonEsc(fname) & _");
    v.push("               \"\"\",\"\"path\"\":\"\"\" & JsonEsc(path) & _");
    v.push("               \"\"\",\"\"datum\"\":\"\"\" & JsonEsc(datum) & _");
    v.push("               \"\"\",\"\"fromName\"\":\"\"\" & JsonEsc(fromName) & _");
    v.push("               \"\"\",\"\"fromEmail\"\":\"\"\" & JsonEsc(fromEmail) & _");
    v.push("               \"\"\",\"\"to\"\":\"\"\" & JsonEsc(Left(toAll, 500)) & _");
    v.push("               \"\"\",\"\"subject\"\":\"\"\" & JsonEsc(Left(subject, 500)) & _");
    v.push("               \"\"\",\"\"body\"\":\"\"\" & JsonEsc(Left(body, 1500)) & _");
    v.push("               \"\"\",\"\"attNames\"\":\"\"\" & JsonEsc(attNames) & _");
    v.push("               \"\"\",\"\"err\"\":\"\"\" & JsonEsc(errMsg) & \"\"\"}\"");
    v.push("End Function");
    v.push("");

    // ReadAsUtf16 - FIXED: Type + Charset MUST be set before Open, sonst silent fail
    v.push("Function ReadAsUtf16(path)");
    v.push("    Dim s, stm");
    v.push("    Set stm = CreateObject(\"ADODB.Stream\")");
    v.push("    stm.Type = 2");
    v.push("    stm.Charset = \"utf-16le\"");
    v.push("    stm.Open");
    v.push("    stm.LoadFromFile path");
    v.push("    stm.Position = 0");
    v.push("    s = stm.ReadText");
    v.push("    stm.Close");
    v.push("    ReadAsUtf16 = s");
    v.push("End Function");
    v.push("");

    // FindHeaderStart
    v.push("Function FindHeaderStart(r)");
    v.push("    Dim a, anchors, p, best");
    v.push("    anchors = Array(\"Received: \", vbLf & \"From: \", vbCrLf & \"From: \", \"Return-Path: \", \"Authentication-Results: \", \"Delivered-To: \")");
    v.push("    best = -1");
    v.push("    For Each a In anchors");
    v.push("        p = InStr(r, a)");
    v.push("        If p > 0 Then");
    v.push("            If best < 0 Or p < best Then best = p");
    v.push("        End If");
    v.push("    Next");
    v.push("    If best < 0 Then best = 0");
    v.push("    FindHeaderStart = best");
    v.push("End Function");
    v.push("");

    // ExtractField
    v.push("Function ExtractField(hdrs, fieldName)");
    v.push("    Dim re, m");
    v.push("    Set re = CreateObject(\"VBScript.RegExp\")");
    v.push("    re.Pattern = \"(^|[\\r\\n])\" & fieldName & \":\\s*((?:[^\\r\\n]|[\\r\\n]+[ \\t])+)\"");
    v.push("    re.IgnoreCase = True");
    v.push("    re.Multiline = True");
    v.push("    If re.Test(hdrs) Then");
    v.push("        Set m = re.Execute(hdrs)(0)");
    v.push("        Dim val");
    v.push("        val = m.SubMatches(1)");
    v.push("        val = Replace(val, vbCr, \" \")");
    v.push("        val = Replace(val, vbLf, \" \")");
    v.push("        Do While InStr(val, \"  \") > 0");
    v.push("            val = Replace(val, \"  \", \" \")");
    v.push("        Loop");
    v.push("        ExtractField = Trim(val)");
    v.push("    Else");
    v.push("        ExtractField = \"\"");
    v.push("    End If");
    v.push("End Function");
    v.push("");

    // ExtractMimeField + QPDecode
    v.push("Function ExtractMimeField(hdrs, fieldName)");
    v.push("    Dim val, re, m, full, enc, payload, decoded");
    v.push("    val = ExtractField(hdrs, fieldName)");
    v.push("    Set re = CreateObject(\"VBScript.RegExp\")");
    v.push("    re.Pattern = \"=\\?([^?]+)\\?([QqBb])\\?([^?]+)\\?=\"");
    v.push("    re.Global = True");
    v.push("    For Each m In re.Execute(val)");
    v.push("        full = m.Value");
    v.push("        enc = LCase(m.SubMatches(1))");
    v.push("        payload = m.SubMatches(2)");
    v.push("        decoded = \"\"");
    v.push("        If enc = \"q\" Then");
    v.push("            decoded = QPDecode(payload)");
    v.push("            decoded = Replace(decoded, \"_\", \" \")");
    v.push("        ElseIf enc = \"b\" Then");
    v.push("            decoded = payload"); // leave base64 as-is (rare in subject)
    v.push("        Else");
    v.push("            decoded = payload");
    v.push("        End If");
    v.push("        val = Replace(val, full, decoded)");
    v.push("    Next");
    v.push("    ExtractMimeField = val");
    v.push("End Function");
    v.push("");
    v.push("Function QPDecode(s)");
    v.push("    Dim out, i, ch, h");
    v.push("    out = \"\" : i = 1");
    v.push("    Do While i <= Len(s)");
    v.push("        ch = Mid(s, i, 1)");
    v.push("        If ch = \"=\" And i + 2 <= Len(s) Then");
    v.push("            On Error Resume Next");
    v.push("            h = CInt(\"&H\" & Mid(s, i + 1, 2))");
    v.push("            If Err.Number = 0 Then");
    v.push("                out = out & Chr(h)");
    v.push("                i = i + 3");
    v.push("            Else");
    v.push("                out = out & ch");
    v.push("                i = i + 1");
    v.push("                Err.Clear");
    v.push("            End If");
    v.push("            On Error GoTo 0");
    v.push("        Else");
    v.push("            out = out & ch");
    v.push("            i = i + 1");
    v.push("        End If");
    v.push("    Loop");
    v.push("    QPDecode = out");
    v.push("End Function");
    v.push("");

    // ParseEmailField
    v.push("Sub ParseEmailField(field, ByRef nm, ByRef em)");
    v.push("    nm = \"\" : em = \"\"");
    v.push("    Dim s : s = Trim(field)");
    v.push("    If s = \"\" Then Exit Sub");
    v.push("    Dim lt, gt");
    v.push("    lt = InStr(s, \"<\")");
    v.push("    gt = InStr(s, \">\")");
    v.push("    If lt > 0 And gt > lt Then");
    v.push("        em = Trim(Mid(s, lt + 1, gt - lt - 1))");
    v.push("        nm = Trim(Left(s, lt - 1))");
    v.push("        If Len(nm) >= 2 Then");
    v.push("            If Left(nm, 1) = \"\"\"\" And Right(nm, 1) = \"\"\"\" Then");
    v.push("                nm = Mid(nm, 2, Len(nm) - 2)");
    v.push("            End If");
    v.push("        End If");
    v.push("    Else");
    v.push("        If InStr(s, \"@\") > 0 Then em = s Else nm = s");
    v.push("    End If");
    v.push("End Sub");
    v.push("");

    // ExtractAttachmentNames
    v.push("Function ExtractAttachmentNames(raw)");
    v.push("    Dim re, m, seen, names, fn, k");
    v.push("    Set re = CreateObject(\"VBScript.RegExp\")");
    v.push("    re.Pattern = \"([A-Za-z0-9_\\-\\(\\)\\.\\,\\s\\[\\]" + "\\xC4\\xD6\\xDC\\xDF\\xE4\\xF6\\xFC" + "&!]{3,150}\\.(pdf|docx|doc|xlsx|xls|jpg|jpeg|png|msg|eml|zip|rtf|txt|csv|tif|tiff|gif|bmp))\"");
    v.push("    re.IgnoreCase = True");
    v.push("    re.Global = True");
    v.push("    Set seen = CreateObject(\"Scripting.Dictionary\")");
    v.push("    names = \"\"");
    v.push("    For Each m In re.Execute(raw)");
    v.push("        fn = Trim(m.SubMatches(0))");
    v.push("        k = LCase(fn)");
    v.push("        If Not seen.Exists(k) And Len(fn) >= 4 Then");
    v.push("            seen.Add k, 1");
    v.push("            If names <> \"\" Then names = names & \"; \"");
    v.push("            names = names & fn");
    v.push("            If Len(names) > 800 Then Exit For");
    v.push("        End If");
    v.push("    Next");
    v.push("    ExtractAttachmentNames = Left(names, 800)");
    v.push("End Function");
    v.push("");

    // ExtractBodySignature - find common signature markers
    v.push("Function ExtractBodySignature(raw)");
    v.push("    Dim markers, mi, p, best");
    v.push("    markers = Array(\"Mit freundlichen Gr\", \"Mit besten Gr\", \"Tel.:\", \"Fon:\", \"E-Mail:\", \"USt-IdNr\", \"Sitz:\", \"Amtsgericht\", \"freundlichen Gr\", \"Telefax:\", \"Fax:\")");
    v.push("    best = -1");
    v.push("    For mi = 0 To UBound(markers)");
    v.push("        p = InStr(raw, markers(mi))");
    v.push("        If p > 0 Then");
    v.push("            If best < 0 Or p < best Then best = p");
    v.push("        End If");
    v.push("    Next");
    v.push("    If best > 0 Then");
    v.push("        Dim startPos");
    v.push("        startPos = best - 100");
    v.push("        If startPos < 1 Then startPos = 1");
    v.push("        ExtractBodySignature = Mid(raw, startPos, 1500)");
    v.push("    Else");
    v.push("        ExtractBodySignature = \"\"");
    v.push("    End If");
    v.push("End Function");
    v.push("");

    // JsonEsc - schluck Non-Printable + Standard-Escape (v1.16 strict)
    v.push("Function JsonEsc(s)");
    v.push("    Dim r, re");
    v.push("    r = CStr(s)");
    v.push("    r = Replace(r, \"\\\", \"\\\\\")");
    v.push("    r = Replace(r, \"\"\"\", \"\\\"\"\")");
    v.push("    r = Replace(r, vbCr, \"\\n\")");
    v.push("    r = Replace(r, vbLf, \"\\n\")");
    v.push("    r = Replace(r, vbTab, \" \")");
    v.push("    Set re = CreateObject(\"VBScript.RegExp\")");
    v.push("    re.Global = True");
    // Strip ALL control chars (C0 + DEL + C1 + surrogates) - JSON.parse haukt sonst
    v.push("    re.Pattern = \"[\\x00-\\x1F\\x7F-\\x9F\\uD800-\\uDFFF]\"");
    v.push("    r = re.Replace(r, \"\")");
    v.push("    JsonEsc = r");
    v.push("End Function");

    return v.join("\r\n");
}

// ============================================================================
// STUFE 1: BULK-KI-TRIAGE (Stufe 0 / Pool-XXL nutzend)
// ============================================================================
// Schickt N (Default 30) Mails als batched-Prompt an ErgoGPT in EINEM Call.
// Kein PDF-Upload. Antwort: JSON-Array mit pro-Mail-Klassifikation. Mehrere
// Batches parallel via Slot-Pipeline (3 Slots). Pool-Vorerkennung aus Stufe 0
// wird als Kontext mitgegeben, damit GPT die Pool-ID nicht selbst raten muss.

function runBulkTriage() {
    if (state.running) return;
    if (state.cookie.length < 50) { showError("Cookie fehlt - oben einfuegen + speichern."); return; }

    // Daten-Quelle: state.xxlResults (aus letztem Pool-XXL-Lauf in dieser Session)
    var src = state.xxlResults || [];
    if (src.length === 0) {
        // Keine XXL-Daten - bietet sofortigen XXL-Run an
        var doIt = confirm(
            "Bulk-Triage braucht Mail-Inhalte (Subject + Body), die Pool-XXL " +
            "vorab eingesammelt hat.\n\n" +
            "Aktuell sind keine XXL-Daten im Speicher.\n\n" +
            "Soll ich Pool-XXL jetzt schnell ausfuehren (~3 min fuer " + getFilteredMsgFiles().length + " Mails im Zeitraum) " +
            "und danach automatisch Bulk-Triage starten?\n\n" +
            "OK = ja, beides nacheinander.\n" +
            "Abbrechen = nichts tun (du kannst Pool-XXL separat klicken)."
        );
        if (!doIt) return;
        state.bulkAutoChain = true;
        runQuickPoolOverviewXxl();
        return;
    }

    // Filter: nur potentielle Makler-Vorgaenge (ergo-intern raus, unbekannt drin)
    var workable = [];
    for (var i = 0; i < src.length; i++) {
        var r = src[i];
        // Ergo-intern: das sind OUTBOUND-Mails von uns - skip
        if (r.pool === "ERGO (intern, kein Maklerpool)") continue;
        workable.push(r);
    }

    if (workable.length === 0) {
        showError("Keine analysefaehigen Mails - alle wurden in Stufe 0 als Ergo-intern markiert.");
        return;
    }

    var skipped = src.length - workable.length;
    var limitStr = window.prompt(
        "Wieviele Mails durchziehen?\n\n" +
        "Verfuegbar (nach Pre-Filter): " + workable.length + "\n" +
        "(Pre-Filter hat " + skipped + " Ergo-interne Outbounds rausgenommen)\n\n" +
        "leer / 0 = alle, oder Zahl (z.B. 50 zum Testen)",
        workable.length
    );
    if (limitStr === null) return;
    var limit = parseInt(limitStr) || workable.length;
    if (limit <= 0 || limit > workable.length) limit = workable.length;

    var batchStr = window.prompt(
        "Batch-Groesse (Mails pro KI-Call)?\n\n" +
        "Empfehlung: 30 (gute Balance Geschwindigkeit/Qualitaet)\n" +
        "Werte: 5-50.\n\n" +
        "Bei zu hohem Wert: GPT halluziniert mehr / kuerzt Output.",
        30
    );
    if (batchStr === null) return;
    var batchSize = parseInt(batchStr) || 30;
    if (batchSize < 5) batchSize = 5;
    if (batchSize > 50) batchSize = 50;

    var parallel = parseInt(document.getElementById("parallelInput").value) || 3;
    if (parallel < 1) parallel = 1;
    if (parallel > 6) parallel = 6;

    var batchCount = Math.ceil(limit / batchSize);
    var estMin = Math.max(1, Math.round((batchCount / parallel) * 25 / 60));
    var ok = confirm(
        "Bulk-Triage starten?\n\n" +
        "Mails: " + limit + "\n" +
        "Batch-Groesse: " + batchSize + " Mails/Call\n" +
        "Batches: " + batchCount + "\n" +
        "Parallel-Slots: " + parallel + "\n" +
        "Geschaetzte Laufzeit: ~" + estMin + " Minuten\n\n" +
        "OK = starten, Abbrechen = nicht."
    );
    if (!ok) return;

    state.running = true;
    state.cancelled = false;
    state.bulkState = {
        workable: workable.slice(0, limit),
        batchSize: batchSize,
        parallelN: parallel,
        slots: {},
        slotCounter: 0,
        nextBatchIdx: 0,
        batches: [],
        startTime: new Date().getTime(),
        processed: 0,
        errors: 0,
        cookie: state.cookie
    };
    for (var bb = 0; bb < state.bulkState.workable.length; bb += batchSize) {
        state.bulkState.batches.push(state.bulkState.workable.slice(bb, bb + batchSize));
    }

    document.getElementById("progressContainer").style.display = "block";
    document.getElementById("slotStatus").innerText = "";
    refreshStartButton();
    hideStatus();
    updateProgress(0, state.bulkState.workable.length,
        "Bulk-Triage startet (" + state.bulkState.batches.length + " Batches, " + parallel + " parallel)...");

    setTimeout(bulkTriageTick, 50);
}

function bulkTriageTick() {
    if (!state.running) return;
    var bs = state.bulkState;

    // A) freie Slots fuellen
    while (Object.keysCount(bs.slots) < bs.parallelN && bs.nextBatchIdx < bs.batches.length && !state.cancelled) {
        var bIdx = bs.nextBatchIdx;
        var batch = bs.batches[bIdx];
        bs.slotCounter++;
        var slot = {
            id: bs.slotCounter,
            batchIdx: bIdx,
            batch: batch,
            phase: "prep",
            phaseAt: new Date().getTime()
        };
        try {
            setSlotPhase(slot, "Prompt bauen (B" + (bIdx + 1) + ", " + batch.length + " Mails)");
            var prompt = buildBulkTriagePrompt(batch);
            setSlotPhase(slot, "Conversation anlegen (B" + (bIdx + 1) + ")");
            slot.convId = createConversationSync(prompt);
            setSlotPhase(slot, "warte auf GPT (B" + (bIdx + 1) + ")");
            slot.http = startAnswerAsync(slot.convId, prompt, "[]");
            bs.slots["b" + slot.id] = slot;
        } catch(e) {
            // Slot-Erzeugung gescheitert - Batch als Fehler markieren
            for (var fi = 0; fi < batch.length; fi++) {
                batch[fi].triage = { error: "Slot-Init: " + e.message, konfidenz: "niedrig" };
            }
            bs.errors += batch.length;
            if (isAuthError(e.message)) state.cancelled = true;
        }
        bs.nextBatchIdx++;
    }

    // B) Slots pollen
    var toRemove = [];
    for (var k in bs.slots) {
        if (!bs.slots.hasOwnProperty(k)) continue;
        var s = bs.slots[k];
        var done = false;
        var winErr = null;
        try { done = s.http.WaitForResponse(0); } catch(e) { winErr = e; }

        if (winErr) {
            for (var ei = 0; ei < s.batch.length; ei++) {
                s.batch[ei].triage = { error: "[ASYNC] " + winErr.message, konfidenz: "niedrig" };
            }
            bs.errors += s.batch.length;
            fireDelete(s.convId);
            toRemove.push(k);
        } else if (done) {
            processBulkTriageResponse(s);
            fireDelete(s.convId);
            toRemove.push(k);
        }
    }
    for (var t = 0; t < toRemove.length; t++) delete bs.slots[toRemove[t]];

    // Status
    var inflight = Object.keysCount(bs.slots);
    var elapsed = Math.round((new Date().getTime() - bs.startTime) / 1000);
    var totalDone = bs.processed + bs.errors;
    updateProgress(totalDone, bs.workable.length,
        elapsed + "s | " + inflight + " parallel | " +
        bs.processed + " ok | " + bs.errors + " fehler | " +
        (bs.workable.length - totalDone) + " offen");
    renderSlotStatus();

    // Done?
    if (state.cancelled || (bs.nextBatchIdx >= bs.batches.length && Object.keysCount(bs.slots) === 0)) {
        if (state.cancelled && Object.keysCount(bs.slots) > 0) {
            // wait for inflight to abort
            for (var ck in bs.slots) {
                if (!bs.slots.hasOwnProperty(ck)) continue;
                try { bs.slots[ck].http.Abort(); } catch(e) {}
            }
            bs.slots = {};
        }
        finishBulkTriage();
        return;
    }

    var delay = (inflight >= bs.parallelN || bs.nextBatchIdx >= bs.batches.length) ? 250 : 50;
    setTimeout(bulkTriageTick, delay);
}

function processBulkTriageResponse(slot) {
    var bs = state.bulkState;
    try {
        var resp = "";
        try { resp = slot.http.ResponseText; } catch(e) {}
        var answer = extractAssistantFromNdjson(resp);
        if (!answer || answer.length === 0) {
            for (var i = 0; i < slot.batch.length; i++) {
                slot.batch[i].triage = { error: "KI: leere Antwort", konfidenz: "niedrig" };
            }
            bs.errors += slot.batch.length;
            return;
        }
        var antwort = jsonUnescape(answer).replace(/\\n/g, "\n");
        var arr = parseGptJsonArray(antwort);
        if (!arr || arr.length === 0) {
            for (var i2 = 0; i2 < slot.batch.length; i2++) {
                slot.batch[i2].triage = { error: "KI: kein Array geparst - " + antwort.substr(0, 100), konfidenz: "niedrig" };
            }
            bs.errors += slot.batch.length;
            return;
        }
        // Map results back via 'nr' field oder Reihenfolge
        for (var m = 0; m < slot.batch.length; m++) {
            var mail = slot.batch[m];
            var ki = null;
            // Try by nr
            for (var ai = 0; ai < arr.length; ai++) {
                if (arr[ai] && (parseInt(arr[ai].nr) === (m + 1) || arr[ai].nr === String(m + 1))) {
                    ki = arr[ai];
                    break;
                }
            }
            // Fallback: positional
            if (!ki && arr[m]) ki = arr[m];

            if (ki) {
                mail.triage = ki;
                bs.processed++;
            } else {
                mail.triage = { error: "Keine Antwort im Array fuer Mail " + (m + 1), konfidenz: "niedrig" };
                bs.errors++;
            }
        }
    } catch(e) {
        for (var fi = 0; fi < slot.batch.length; fi++) {
            slot.batch[fi].triage = { error: "Parse-Exception: " + e.message, konfidenz: "niedrig" };
        }
        bs.errors += slot.batch.length;
    }
}

// Parser fuer JSON-Array-Antwort, robust gegen Markdown-Fences + Vorwort.
function parseGptJsonArray(text) {
    var t = trim(text);
    if (t.substr(0, 7) === "```json") t = t.substr(7);
    if (t.substr(0, 3) === "```") t = t.substr(3);
    if (t.substr(t.length - 3) === "```") t = t.substr(0, t.length - 3);
    t = trim(t);
    var s = t.indexOf("[");
    var e = t.lastIndexOf("]");
    if (s < 0 || e <= s) return null;
    t = t.substr(s, e - s + 1);
    try {
        if (typeof JSON !== "undefined" && JSON.parse) return JSON.parse(t);
        return eval("(" + t + ")");
    } catch(ex) {
        // Letzter Versuch: einzelne Objects parsen
        var out = [];
        var depth = 0, start = -1;
        for (var i = 0; i < t.length; i++) {
            var c = t.charAt(i);
            if (c === "{") { if (depth === 0) start = i; depth++; }
            else if (c === "}") {
                depth--;
                if (depth === 0 && start >= 0) {
                    try {
                        out.push(JSON.parse(t.substr(start, i - start + 1)));
                    } catch(eO) {}
                    start = -1;
                }
            }
        }
        return out.length > 0 ? out : null;
    }
}

function buildBulkTriagePrompt(batch) {
    var p = "";
    p += "Du bist ein erfahrener Sachbearbeiter im Innendienst eines deutschen Komposit-Versicherers (SHUK).\n";
    p += "Du analysierst eine Liste eingehender Makler-Emails - ohne PDF-Inhalt, nur Header + Body + Pool-Kontext.\n\n";
    p += "Es folgen " + batch.length + " Mails, nummeriert 1 bis " + batch.length + ".\n";
    p += "Antworte mit GENAU einem JSON-Array, das fuer JEDE Mail genau ein Objekt enthaelt - in gleicher Reihenfolge, mit 'nr' = Mail-Nummer.\n\n";
    p += "FELDER PRO MAIL-OBJEKT (alle als String):\n";
    p += "- nr (Mail-Nummer 1-" + batch.length + ")\n";
    p += "- vorgangstyp: 'Makler-Vorgang' / 'Zustellfehler' / 'Ergo-Outbound' / 'System-Mail' / 'Werbung-Spam' / 'Unklar'\n";
    p += "- klassifikation: 'BUe-Vorgang' / 'Mahnung-Reminder' / 'Schadenmeldung' / 'Antrag-Aenderung' / 'Anfrage-Ruecksprache' / 'Nicht-Standard' / 'Kein-Makler-Vorgang'\n";
    p += "- klassifikation_grund: kurz, max 150 Zeichen, konkretes Indiz\n";
    p += "- geschaefts_typ: 'BUe einfacher Vertrag' / 'BUe Kundenverbindung' / 'Keine BUe'\n";
    p += "- ist_reminder: 'ja' / 'nein' / 'nicht_pruefbar'\n";
    p += "- sonderfall: 'Flottengeschaeft' / 'Sondertarif' / 'Kein Sonderfall'\n";
    p += "- sparte: 'Komposit' / 'Leben' / 'KV' / 'Mehrere' / 'Unbekannt'\n";
    p += "- kunde_nachname (wenn im Body genannt, sonst '')\n";
    p += "- kunde_vorname (wenn im Body genannt, sonst '')\n";
    p += "- versicherungsnummer (VNR aus Body, sonst '')\n";
    p += "- unterlagen_angefragt: 'ja' / 'nein'\n";
    p += "- unterlagen_liste: kommagetrennt, sonst ''\n";
    p += "- enthaelt_maklervollmacht: 'ja' / 'nein' / 'nicht_pruefbar' (aus Anhang-Namen, MV im Body erwaehnt etc.)\n";
    p += "- mv_pruefung_noetig: 'ja' wenn BUe-Vorgang mit MV-Anhang -> Stufe-2 (PDF-Pruefung) noetig; sonst 'nein'\n";
    p += "- konfidenz: 'hoch' / 'mittel' / 'niedrig' - wie sicher bist du bei dieser Mail?\n";
    p += "- hinweis: 1 Satz, max 150 Zeichen, was auffaellt\n\n";
    p += "REGELN:\n";
    p += "- Pool-Kontext steht pro Mail dabei - nutze ihn (Pool-Erkennung wurde bereits vorab gemacht).\n";
    p += "- Wenn vorgangstyp != 'Makler-Vorgang': klassifikation = 'Kein-Makler-Vorgang', restliche Felder ''.\n";
    p += "- Bei niedriger Konfidenz: hinweis erklaert was unklar ist.\n";
    p += "- Anhang-Namen sind Hinweis: 'Maklerauftrag*.pdf' -> meist BUe-Vorgang, 'Mahnung*.pdf' -> Reminder.\n";
    p += "- Antworte AUSSCHLIESSLICH mit dem JSON-Array. Kein Markdown, keine Erklaerung, keine Code-Fences.\n\n";
    p += "===== MAILS =====\n";
    for (var i = 0; i < batch.length; i++) {
        var m = batch[i];
        p += "\n--- MAIL " + (i + 1) + " ---\n";
        p += "Pool (vorerkannt): " + (m.pool || "(unbekannt)") + "\n";
        p += "Absender: " + (m.absName || "") + " <" + (m.absMail || "") + ">\n";
        p += "Empfaenger: " + (m.empfaenger || "(intern)") + "\n";
        p += "Datum: " + (m.datum || "") + "\n";
        p += "Betreff: " + (m.betreff || "") + "\n";
        p += "Anhaenge: " + (m.attNames || "(keine)") + "\n";
        var body = (m.body || "").substr(0, 1200);
        // Kein triple-quote Risiko - Body in Single-Block
        p += "Body:\n<<<\n" + body + "\n>>>\n";
    }
    p += "\n===== ENDE MAILS =====\n\n";
    p += "Antworte JETZT mit dem JSON-Array fuer alle " + batch.length + " Mails:\n";
    return p;
}

function finishBulkTriage() {
    var bs = state.bulkState;
    var elapsedSec = Math.round((new Date().getTime() - bs.startTime) / 1000);

    document.getElementById("progressContainer").style.display = "none";
    document.getElementById("slotStatus").innerText = "";
    state.running = false;
    refreshStartButton();

    if (state.cancelled) {
        showInfo("Bulk-Triage abgebrochen. Bisher: " + bs.processed + " ok, " + bs.errors + " fehler. Excel-Export weiter moeglich.");
    }

    try {
        exportBulkTriageToExcel(bs.workable, elapsedSec);
        var rate = elapsedSec > 0 ? Math.round(bs.processed / elapsedSec * 60) : 0;
        if (!state.cancelled) {
            showSuccess("Bulk-Triage fertig: " + bs.processed + " ok, " + bs.errors + " fehler in " +
                        elapsedSec + "s (~" + rate + " Mails/min). Excel mit KI-Spalten geoeffnet.");
        }
    } catch(e) {
        showError("Excel-Export fehlgeschlagen: " + e.message);
    }
}

function exportBulkTriageToExcel(rows, elapsedSec) {
    if (rows.length === 0) { showError("Keine Daten."); return; }
    var excel = new ActiveXObject("Excel.Application");
    excel.Visible = true;
    excel.DisplayAlerts = false;
    var wb = excel.Workbooks.Add();

    // Sheet 1: Alle Mails mit Triage
    var sheet = wb.ActiveSheet;
    try { sheet.Name = "Triage"; } catch(e) {}
    var headers = ["#", "Datei", "Datum", "Absender Name", "Absender Email", "Domain",
                   "Empfaenger (bei uns)", "Betreff", "Erkannter Pool (Stufe 0)",
                   "Vorgangstyp (KI)", "Klassifikation (KI)", "Klass-Grund (KI)",
                   "Geschaefts_Typ (KI)", "Ist_Reminder (KI)", "Sonderfall (KI)", "Sparte (KI)",
                   "Kunde_Nachname (KI)", "Kunde_Vorname (KI)", "VNR (KI)",
                   "Unterlagen_Angefragt (KI)", "Unterlagen_Liste (KI)",
                   "MV_Enthalten (KI)", "MV_Pruefung_noetig (KI)",
                   "Konfidenz (KI)", "Hinweis (KI)", "Anhang-Anzahl", "Anhang-Namen", "Fehler"];
    for (var c = 0; c < headers.length; c++) sheet.Cells(1, c + 1).Value = headers[c];

    // Header-Farbe (Lila wie Bulk-Triage-Button + Stufe-0-Indigo Block + KI-Bordeaux Block)
    try {
        var BG_STAMM = rgb(30, 64, 175);
        var BG_KI    = rgb(217, 119, 6);
        sheet.Range(sheet.Cells(1,1), sheet.Cells(1, 9)).Interior.Color = BG_STAMM;
        sheet.Range(sheet.Cells(1,10), sheet.Cells(1, 25)).Interior.Color = BG_KI;
        sheet.Range(sheet.Cells(1,26), sheet.Cells(1, 28)).Interior.Color = rgb(76, 29, 149);
        sheet.Range(sheet.Cells(1,1), sheet.Cells(1, headers.length)).Font.Color = rgb(255, 255, 255);
        sheet.Range(sheet.Cells(1,1), sheet.Cells(1, headers.length)).Font.Bold = true;
        sheet.Range(sheet.Cells(1,1), sheet.Cells(1, headers.length)).HorizontalAlignment = -4108;
        sheet.Rows(1).RowHeight = 28;
        sheet.Range(sheet.Cells(1,1), sheet.Cells(1, headers.length)).WrapText = true;
    } catch(e) {}

    var H_ROT   = rgb(252, 165, 165);
    var H_GRUEN = rgb(187, 247, 208);
    var H_GELB  = rgb(254, 240, 138);
    var H_GRAU  = rgb(229, 231, 235);

    for (var i = 0; i < rows.length; i++) {
        var r = rows[i];
        var t = r.triage || {};
        var row = i + 2;
        sheet.Cells(row, 1).Value = i + 1;
        sheet.Cells(row, 2).Value = cellSafe(r.msgFile);
        sheet.Cells(row, 3).Value = cellSafe(r.datum);
        sheet.Cells(row, 4).Value = cellSafe(r.absName);
        sheet.Cells(row, 5).Value = cellSafe(r.absMail);
        sheet.Cells(row, 6).Value = cellSafe(r.absDomain);
        sheet.Cells(row, 7).Value = cellSafe(r.empfaenger);
        sheet.Cells(row, 8).Value = cellSafe(r.betreff);
        sheet.Cells(row, 9).Value = cellSafe(r.pool);
        sheet.Cells(row, 10).Value = cellSafe(t.vorgangstyp || "");
        sheet.Cells(row, 11).Value = cellSafe(t.klassifikation || "");
        sheet.Cells(row, 12).Value = cellSafe(t.klassifikation_grund || "");
        sheet.Cells(row, 13).Value = cellSafe(t.geschaefts_typ || "");
        sheet.Cells(row, 14).Value = cellSafe(t.ist_reminder || "");
        sheet.Cells(row, 15).Value = cellSafe(t.sonderfall || "");
        sheet.Cells(row, 16).Value = cellSafe(t.sparte || "");
        sheet.Cells(row, 17).Value = cellSafe(t.kunde_nachname || "");
        sheet.Cells(row, 18).Value = cellSafe(t.kunde_vorname || "");
        sheet.Cells(row, 19).Value = cellSafe(t.versicherungsnummer || "");
        sheet.Cells(row, 20).Value = cellSafe(t.unterlagen_angefragt || "");
        sheet.Cells(row, 21).Value = cellSafe(t.unterlagen_liste || "");
        sheet.Cells(row, 22).Value = cellSafe(t.enthaelt_maklervollmacht || "");
        sheet.Cells(row, 23).Value = cellSafe(t.mv_pruefung_noetig || "");
        sheet.Cells(row, 24).Value = cellSafe(t.konfidenz || "");
        sheet.Cells(row, 25).Value = cellSafe(t.hinweis || "");
        sheet.Cells(row, 26).Value = r.attCount || 0;
        sheet.Cells(row, 27).Value = cellSafe(r.attNames);
        sheet.Cells(row, 28).Value = cellSafe(t.error || "");

        // Highlights
        try {
            if (t.error) sheet.Cells(row, 28).Interior.Color = H_ROT;
            if (t.konfidenz === "niedrig") sheet.Cells(row, 24).Interior.Color = H_GELB;
            else if (t.konfidenz === "hoch") sheet.Cells(row, 24).Interior.Color = H_GRUEN;
            if (t.mv_pruefung_noetig === "ja") sheet.Cells(row, 23).Interior.Color = H_GELB;
            if (t.klassifikation === "Nicht-Standard") sheet.Cells(row, 11).Interior.Color = rgb(253, 230, 138);
            if (t.vorgangstyp && t.vorgangstyp !== "Makler-Vorgang" && t.vorgangstyp !== "") {
                sheet.Range(sheet.Cells(row, 10), sheet.Cells(row, 27)).Interior.Color = H_GRAU;
            }
        } catch(e) {}
    }

    try {
        sheet.Columns("A").ColumnWidth = 5;
        sheet.Columns("B").ColumnWidth = 30;
        sheet.Columns("C").ColumnWidth = 14;
        sheet.Columns("D:E").ColumnWidth = 24;
        sheet.Columns("F").ColumnWidth = 22;
        sheet.Columns("G").ColumnWidth = 24;
        sheet.Columns("H").ColumnWidth = 45;
        sheet.Columns("I").ColumnWidth = 30;
        sheet.Columns("J:K").ColumnWidth = 18;
        sheet.Columns("L").ColumnWidth = 35;
        sheet.Columns("M:V").ColumnWidth = 16;
        sheet.Columns("W:X").ColumnWidth = 12;
        sheet.Columns("Y").ColumnWidth = 35;
        sheet.Columns("Z").ColumnWidth = 10;
        sheet.Columns("AA").ColumnWidth = 30;
        sheet.Columns("AB").ColumnWidth = 30;
        sheet.Cells.Font.Name = "Open Sans";
        sheet.Range(sheet.Cells(1,1), sheet.Cells(rows.length + 1, headers.length)).AutoFilter();
        sheet.Range("A2").Select();
        excel.ActiveWindow.FreezePanes = true;
    } catch(e) {}

    // Sheet 2: Stats
    try { buildBulkTriageStats(wb, rows, elapsedSec); } catch(e) {}

    excel.DisplayAlerts = true;
}

function buildBulkTriageStats(wb, rows, elapsedSec) {
    var st = wb.Worksheets.Add();
    try {
        st.Move(null, wb.Sheets(wb.Sheets.Count));
        st.Name = "Stats";
    } catch(e) {}
    var row = 1;
    function header(text, color) {
        st.Cells(row, 1).Value = text;
        var rg = st.Range(st.Cells(row, 1), st.Cells(row, 3));
        try { rg.Merge(); } catch(e) {}
        rg.Font.Bold = true; rg.Font.Size = 13;
        rg.Font.Color = rgb(255, 255, 255);
        rg.Interior.Color = color || rgb(30, 64, 175);
        st.Rows(row).RowHeight = 22;
        row++;
    }
    function r(label, val, share, indent, bold) {
        st.Cells(row, 1).Value = (indent ? "    " : "") + label;
        st.Cells(row, 2).Value = val;
        st.Cells(row, 3).Value = share || "";
        if (bold) {
            st.Range(st.Cells(row,1), st.Cells(row,3)).Font.Bold = true;
        }
        row++;
    }
    function pct(part, total) {
        return total > 0 ? (Math.round(part / total * 1000) / 10) + "%" : "-";
    }

    // ================================================================
    // BUCKETIZE
    // ================================================================
    var total = rows.length;
    var totalErrors = 0;
    var bucketNotMakler = 0;             // vorgangstyp != Makler-Vorgang
    var notMaklerByType = {};
    var maklerNotBue = 0;                 // Makler-Vorgang, aber klassifikation != BUe
    var maklerNotBueByClass = {};
    var verdachtBueAberNicht = 0;         // Makler-Vorgang + klassifikation != BUe + MV vorhanden
    var verdachtByClass = {};
    var echteBue = [];                    // klassifikation = BUe-Vorgang

    for (var i = 0; i < rows.length; i++) {
        var r0 = rows[i];
        var t = r0.triage || {};
        if (t.error) { totalErrors++; continue; }
        var vt = t.vorgangstyp || "(leer)";
        var kl = t.klassifikation || "(leer)";
        var mv = t.enthaelt_maklervollmacht || "";

        if (vt !== "Makler-Vorgang") {
            bucketNotMakler++;
            notMaklerByType[vt] = (notMaklerByType[vt] || 0) + 1;
            continue;
        }

        if (kl === "BUe-Vorgang") {
            echteBue.push({ r: r0, t: t });
            continue;
        }

        // Makler-Vorgang aber kein BUe
        maklerNotBue++;
        maklerNotBueByClass[kl] = (maklerNotBueByClass[kl] || 0) + 1;
        if (mv === "ja") {
            verdachtBueAberNicht++;
            verdachtByClass[kl] = (verdachtByClass[kl] || 0) + 1;
        }
    }

    // ================================================================
    // BLOCK 1 - GESAMT-ZUSAMMENFASSUNG
    // ================================================================
    header("ZUSAMMENFASSUNG", rgb(30, 64, 175));
    r("Mails gesamt", total, "100%", false, true);
    r("davon Fehler bei KI-Triage", totalErrors, pct(totalErrors, total), true);
    var processedCount = total - totalErrors;
    r("erfolgreich klassifiziert", processedCount, pct(processedCount, total), true);
    r("Laufzeit", elapsedSec + " sec", "", false);
    row++;

    // ================================================================
    // BLOCK 2 - DER FUNNEL (das, was der User wirklich braucht)
    // ================================================================
    header("BUe-FUNNEL", rgb(159, 18, 57));
    r("Mails (ohne Fehler)", processedCount, "100%", false, true);
    row++;

    // 2a: Nicht-Makler-Vorgang (Bounces / System / Outbound / etc.)
    r("Nicht-Makler-Vorgang (raus)", bucketNotMakler, pct(bucketNotMakler, processedCount), false, true);
    var notMaklerOrder = ["Zustellfehler", "Ergo-Outbound", "System-Mail", "Werbung-Spam", "Unklar"];
    for (var ni = 0; ni < notMaklerOrder.length; ni++) {
        if (notMaklerByType[notMaklerOrder[ni]]) {
            r(notMaklerOrder[ni], notMaklerByType[notMaklerOrder[ni]],
                pct(notMaklerByType[notMaklerOrder[ni]], bucketNotMakler), true);
        }
    }
    for (var nk in notMaklerByType) {
        var inList = false;
        for (var nj = 0; nj < notMaklerOrder.length; nj++) if (notMaklerOrder[nj] === nk) { inList = true; break; }
        if (!inList && notMaklerByType.hasOwnProperty(nk)) {
            r(nk, notMaklerByType[nk], pct(notMaklerByType[nk], bucketNotMakler), true);
        }
    }
    row++;

    // 2b: Makler-Vorgang aber kein BUe
    r("Makler-Vorgang aber KEIN BUe", maklerNotBue, pct(maklerNotBue, processedCount), false, true);
    var clOrderNotBue = ["Mahnung-Reminder", "Schadenmeldung", "Antrag-Aenderung", "Anfrage-Ruecksprache", "Nicht-Standard", "Kein-Makler-Vorgang"];
    for (var co = 0; co < clOrderNotBue.length; co++) {
        if (maklerNotBueByClass[clOrderNotBue[co]]) {
            r(clOrderNotBue[co], maklerNotBueByClass[clOrderNotBue[co]],
                pct(maklerNotBueByClass[clOrderNotBue[co]], maklerNotBue), true);
        }
    }
    for (var mk in maklerNotBueByClass) {
        var inListB = false;
        for (var mj = 0; mj < clOrderNotBue.length; mj++) if (clOrderNotBue[mj] === mk) { inListB = true; break; }
        if (!inListB && maklerNotBueByClass.hasOwnProperty(mk)) {
            r(mk, maklerNotBueByClass[mk], pct(maklerNotBueByClass[mk], maklerNotBue), true);
        }
    }
    row++;

    // 2c: BUe-Verdacht aber doch nicht (MV beigefuegt aber klass != BUe)
    if (verdachtBueAberNicht > 0) {
        r("davon BUe-Verdacht (mit MV aber doch nicht BUe)", verdachtBueAberNicht,
            pct(verdachtBueAberNicht, maklerNotBue), false, true);
        for (var vk in verdachtByClass) {
            if (verdachtByClass.hasOwnProperty(vk)) {
                r(vk + " (mit MV)", verdachtByClass[vk], pct(verdachtByClass[vk], verdachtBueAberNicht), true);
            }
        }
        row++;
    }

    // 2d: ECHTE BUes
    r("ECHTE BUe-Vorgaenge", echteBue.length, pct(echteBue.length, processedCount), false, true);
    row++;

    // ================================================================
    // BLOCK 3 - ECHTE BUes DETAIL
    // ================================================================
    if (echteBue.length > 0) {
        // 3a: Geschaefts_Typ
        header("BUe-DETAIL (n=" + echteBue.length + "): Geschaefts-Typ", rgb(15, 118, 110));
        var gtCounts = {};
        for (var bi = 0; bi < echteBue.length; bi++) {
            var gt = (echteBue[bi].t.geschaefts_typ || "(leer)");
            gtCounts[gt] = (gtCounts[gt] || 0) + 1;
        }
        var gtOrder = ["BUe einfacher Vertrag", "BUe Kundenverbindung", "Keine BUe", "(leer)"];
        for (var go = 0; go < gtOrder.length; go++) {
            if (gtCounts[gtOrder[go]]) {
                r(gtOrder[go], gtCounts[gtOrder[go]], pct(gtCounts[gtOrder[go]], echteBue.length), true);
            }
        }
        for (var gk in gtCounts) {
            var inListG = false;
            for (var gj = 0; gj < gtOrder.length; gj++) if (gtOrder[gj] === gk) { inListG = true; break; }
            if (!inListG && gtCounts.hasOwnProperty(gk)) {
                r(gk, gtCounts[gk], pct(gtCounts[gk], echteBue.length), true);
            }
        }
        row++;

        // 3b: MV-Status (mit/ohne Dokument)
        header("BUe-DETAIL: Maklervollmacht im Anhang", rgb(159, 18, 57));
        var mvCounts = { ja: 0, nein: 0, nicht_pruefbar: 0, "(leer)": 0 };
        for (var bm = 0; bm < echteBue.length; bm++) {
            var mvv = echteBue[bm].t.enthaelt_maklervollmacht || "(leer)";
            mvCounts[mvv] = (mvCounts[mvv] || 0) + 1;
        }
        r("Mit MV (Dokument vorhanden)", mvCounts["ja"] || 0, pct(mvCounts["ja"] || 0, echteBue.length), true);
        r("Ohne MV (kein Dokument)", mvCounts["nein"] || 0, pct(mvCounts["nein"] || 0, echteBue.length), true);
        if (mvCounts["nicht_pruefbar"]) r("Nicht pruefbar", mvCounts["nicht_pruefbar"], pct(mvCounts["nicht_pruefbar"], echteBue.length), true);
        if (mvCounts["(leer)"]) r("Keine KI-Angabe", mvCounts["(leer)"], pct(mvCounts["(leer)"], echteBue.length), true);
        row++;

        // 3c: Reminder vs. Erstvorgang
        header("BUe-DETAIL: Erstvorgang vs. Reminder", rgb(76, 29, 149));
        var reminder = 0, erstvorgang = 0, reminderUnklar = 0;
        for (var br = 0; br < echteBue.length; br++) {
            var ir = echteBue[br].t.ist_reminder || "";
            if (ir === "ja") reminder++;
            else if (ir === "nein") erstvorgang++;
            else reminderUnklar++;
        }
        r("Erstvorgang", erstvorgang, pct(erstvorgang, echteBue.length), true);
        r("Reminder / Wiedervorlage", reminder, pct(reminder, echteBue.length), true);
        if (reminderUnklar) r("Reminder-Status unklar", reminderUnklar, pct(reminderUnklar, echteBue.length), true);
        row++;

        // 3d: Pool-Aufstellung
        header("BUe-DETAIL: Maklerpool-Aufstellung (sortiert nach Haeufigkeit)", rgb(14, 116, 144));
        var poolCounts = {};
        for (var bp = 0; bp < echteBue.length; bp++) {
            var pool = echteBue[bp].r.pool || "(kein Pool erkannt)";
            poolCounts[pool] = (poolCounts[pool] || 0) + 1;
        }
        var poolArr = [];
        for (var pk in poolCounts) if (poolCounts.hasOwnProperty(pk)) poolArr.push({ name: pk, count: poolCounts[pk] });
        poolArr.sort(function(a, b) { return b.count - a.count; });

        var grossThreshold = 5;
        var sigThreshold = 2;
        if (echteBue.length < 20) { grossThreshold = 2; sigThreshold = 2; }

        var einzelfallSum = 0;
        var einzelfallNames = [];
        for (var pi = 0; pi < poolArr.length; pi++) {
            var pp = poolArr[pi];
            if (pp.count >= sigThreshold) {
                r(pp.name, pp.count, pct(pp.count, echteBue.length), true);
            } else {
                einzelfallSum++;
                einzelfallNames.push(pp.name);
            }
        }
        if (einzelfallSum > 0) {
            r("Sonstige (je 1 Vorgang)", einzelfallSum, pct(einzelfallSum, echteBue.length), false, true);
            for (var en = 0; en < einzelfallNames.length; en++) {
                st.Cells(row, 1).Value = "        - " + einzelfallNames[en];
                row++;
            }
        }
        row++;

        // 3e: Pool x Geschaefts_Typ Cross-Tabelle (nur Top-Pools mit >=sigThreshold)
        header("BUe-DETAIL: Pool x Geschaefts-Typ", rgb(154, 52, 18));
        // Header-Zeile
        st.Cells(row, 1).Value = "Pool";
        st.Cells(row, 2).Value = "einfacher Vertrag";
        st.Cells(row, 3).Value = "ganze Kundenverbindung";
        st.Range(st.Cells(row,1), st.Cells(row,3)).Font.Bold = true;
        row++;
        for (var pj = 0; pj < poolArr.length; pj++) {
            var ppName = poolArr[pj].name;
            if (poolArr[pj].count < sigThreshold) continue;
            var einf = 0, kund = 0;
            for (var bk = 0; bk < echteBue.length; bk++) {
                if (echteBue[bk].r.pool !== ppName) continue;
                var ggt = echteBue[bk].t.geschaefts_typ || "";
                if (ggt.indexOf("einfacher") >= 0 || ggt.indexOf("einzeln") >= 0) einf++;
                else if (ggt.indexOf("Kundenverbindung") >= 0 || ggt.indexOf("kundenverbindung") >= 0) kund++;
            }
            st.Cells(row, 1).Value = ppName;
            st.Cells(row, 2).Value = einf;
            st.Cells(row, 3).Value = kund;
            row++;
        }
        row++;

        // 3f: BUe mit/ohne MV pro Pool
        header("BUe-DETAIL: Pool x MV-Status", rgb(154, 52, 18));
        st.Cells(row, 1).Value = "Pool";
        st.Cells(row, 2).Value = "mit MV";
        st.Cells(row, 3).Value = "ohne MV / unklar";
        st.Range(st.Cells(row,1), st.Cells(row,3)).Font.Bold = true;
        row++;
        for (var pk2 = 0; pk2 < poolArr.length; pk2++) {
            var pkName = poolArr[pk2].name;
            if (poolArr[pk2].count < sigThreshold) continue;
            var mitMv = 0, ohneMv = 0;
            for (var bk2 = 0; bk2 < echteBue.length; bk2++) {
                if (echteBue[bk2].r.pool !== pkName) continue;
                var mvv2 = echteBue[bk2].t.enthaelt_maklervollmacht || "";
                if (mvv2 === "ja") mitMv++; else ohneMv++;
            }
            st.Cells(row, 1).Value = pkName;
            st.Cells(row, 2).Value = mitMv;
            st.Cells(row, 3).Value = ohneMv;
            row++;
        }
        row++;
    }

    // ================================================================
    // BLOCK 4 - KONFIDENZ
    // ================================================================
    header("KONFIDENZ-VERTEILUNG (Qualitaet der KI-Klassifikation)", rgb(22, 101, 52));
    var konf = { hoch: 0, mittel: 0, niedrig: 0, leer: 0 };
    for (var ki = 0; ki < rows.length; ki++) {
        var tk = rows[ki].triage || {};
        if (tk.error) continue;
        var ck = tk.konfidenz || "";
        if (ck === "hoch") konf.hoch++;
        else if (ck === "mittel") konf.mittel++;
        else if (ck === "niedrig") konf.niedrig++;
        else konf.leer++;
    }
    r("hoch", konf.hoch, pct(konf.hoch, processedCount), true);
    r("mittel", konf.mittel, pct(konf.mittel, processedCount), true);
    r("niedrig", konf.niedrig, pct(konf.niedrig, processedCount), true);
    if (konf.leer) r("(ohne Angabe)", konf.leer, pct(konf.leer, processedCount), true);

    try {
        st.Columns("A").ColumnWidth = 52;
        st.Columns("B").ColumnWidth = 18;
        st.Columns("C").ColumnWidth = 18;
        st.Cells.Font.Name = "Open Sans";
        st.Range("B:C").HorizontalAlignment = -4108;
        wb.Sheets("Triage").Activate();
    } catch(e) {}
}

// Hook: wenn XXL fertig ist und User vorher Bulk-Triage gewaehlt hat (bulkAutoChain),
// dann automatisch Bulk-Triage starten.
function maybeAutoStartBulkAfterXxl() {
    if (state.bulkAutoChain) {
        state.bulkAutoChain = false;
        setTimeout(runBulkTriage, 300);
    }
    if (state.renameChainAfterXxl) {
        state.renameChainAfterXxl = false;
        setTimeout(renameMsgFilesWithDate, 300);
    }
}

// ============================================================================
// RENAME: Datums-Praefix in Dateinamen einfuegen (fuer Zeitraum-Filter)
// ============================================================================
// Liest das Datum aus den von XXL geparsten Headers (RFC822 Date) und
// benennt jede .msg um zu "YYYY-MM-DD_HHMM_<Originalname>.msg".
// Dateien, die bereits ein Datums-Praefix haben, werden uebersprungen.

function parseRfc822Date(s) {
    if (!s) return null;
    var t = String(s);
    // Muster: "Wed, 05 May 2026 09:44:00 +0200" oder "5 May 2026 09:44:00 +0200"
    var m = t.match(/(\d{1,2})\s+([A-Za-z]{3})\s+(\d{4})\s+(\d{1,2}):(\d{2})(?::(\d{2}))?/);
    if (!m) return null;
    var months = {"Jan":0,"Feb":1,"Mar":2,"Apr":3,"May":4,"Jun":5,
                  "Jul":6,"Aug":7,"Sep":8,"Oct":9,"Nov":10,"Dec":11,
                  "Mai":4,"Okt":9,"Dez":11};
    var mon = months[m[2]];
    if (mon === undefined) return null;
    var d = new Date(parseInt(m[3], 10), mon, parseInt(m[1], 10), parseInt(m[4], 10), parseInt(m[5], 10));
    if (isNaN(d.getTime())) return null;
    return d;
}

function dateToPrefix(d) {
    var pad2 = function(n) { return n < 10 ? "0" + n : "" + n; };
    return d.getFullYear() + "-" + pad2(d.getMonth() + 1) + "-" + pad2(d.getDate()) + "_" + pad2(d.getHours()) + pad2(d.getMinutes());
}

function renameMsgFilesWithDate() {
    if (state.running) return;
    if (state.msgFiles.length === 0) { showError("Keine Mails im Ordner."); return; }

    // Voraussetzung: state.xxlResults (mit datum-Feld) muss vorhanden sein
    if (!state.xxlResults || state.xxlResults.length === 0) {
        var doXxl = confirm(
            "Zum Umbenennen brauche ich das Mail-Datum aus jeder .msg.\n" +
            "Pool-XXL wurde noch nicht ausgefuehrt - das liest die Daten in ~1-3 min.\n\n" +
            "Soll ich Pool-XXL jetzt ausfuehren und danach automatisch umbenennen?\n\n" +
            "OK = ja\nAbbrechen = nichts tun"
        );
        if (!doXxl) return;
        state.renameChainAfterXxl = true;
        runQuickPoolOverviewXxl();
        return;
    }

    var preview = countRenameCandidates();
    var doRename = confirm(
        "Datei-Umbenennen mit Datums-Praefix\n\n" +
        "Mails mit XXL-Daten: " + state.xxlResults.length + "\n" +
        "Davon umzubenennen: " + preview.toRename + "\n" +
        "Bereits umbenannt (Praefix vorhanden): " + preview.alreadyOk + "\n" +
        "Kein Datum parsbar: " + preview.noDate + "\n\n" +
        "Format: 'YYYY-MM-DD_HHMM_<Originalname>.msg'\n" +
        "Dateien mit bereits vorhandenem Datums-Praefix werden NICHT geaendert.\n\n" +
        "Fortfahren?"
    );
    if (!doRename) return;

    state.running = true;
    refreshStartButton();
    hideStatus();
    document.getElementById("progressContainer").style.display = "block";

    var fso;
    try { fso = new ActiveXObject("Scripting.FileSystemObject"); }
    catch(e) { showError("FSO nicht verfuegbar: " + e.message); state.running = false; refreshStartButton(); return; }

    var renamed = 0, skipped = 0, errors = 0, noDate = 0;
    var total = state.xxlResults.length;

    // Batch-weise mit setTimeout fuer UI-Updates
    var i = 0;
    function step() {
        var batchEnd = Math.min(i + 50, total);
        for (; i < batchEnd; i++) {
            var r = state.xxlResults[i];
            var oldPath = r.path || "";
            var oldName = r.msgFile || "";
            if (!oldPath || !oldName) { errors++; continue; }

            // Bereits umbenannt?
            if (oldName.match(/^\d{4}-\d{2}-\d{2}_/)) { skipped++; continue; }

            var d = parseRfc822Date(r.datum);
            if (!d) {
                // Fallback: nimm aktuelles Datum NICHT - Datei ueberspringen
                noDate++;
                continue;
            }

            var newName = dateToPrefix(d) + "_" + oldName;
            var dirEnd = oldPath.lastIndexOf("\\");
            if (dirEnd < 0) { errors++; continue; }
            var newPath = oldPath.substr(0, dirEnd) + "\\" + newName;

            // Wenn die Ziel-Datei schon existiert -> Conflict, Suffix anhaengen
            if (fso.FileExists(newPath)) {
                var counter = 2;
                while (counter < 100) {
                    var attemptName = dateToPrefix(d) + "_" + counter + "_" + oldName;
                    var attemptPath = oldPath.substr(0, dirEnd) + "\\" + attemptName;
                    if (!fso.FileExists(attemptPath)) { newPath = attemptPath; newName = attemptName; break; }
                    counter++;
                }
            }

            try {
                fso.MoveFile(oldPath, newPath);
                // State updaten - falls User danach weiterarbeitet
                r.path = newPath;
                r.msgFile = newName;
                renamed++;
            } catch(eM) {
                errors++;
            }
        }

        updateProgress(i, total, "Umbenennen: " + i + " / " + total + " (umbenannt: " + renamed + ", uebersprungen: " + skipped + ")");

        if (i < total) {
            setTimeout(step, 5);
        } else {
            document.getElementById("progressContainer").style.display = "none";
            state.running = false;

            // Folder neu scannen damit msgFiles aktuell ist
            scanFolder();
            // xxlResults bleibt erhalten (Pfade wurden inline aktualisiert)
            refreshStartButton();

            showSuccess("Umbenannt: " + renamed +
                        " | bereits OK: " + skipped +
                        " | kein Datum: " + noDate +
                        " | Fehler: " + errors +
                        ". Zeitraum-Filter funktioniert jetzt.");
        }
    }
    setTimeout(step, 50);
}

// ============================================================================
// SAMMELN: Mails aus Zeitraum in neuen Ordner kopieren
// ============================================================================
// User-Case: Oberordner enthaelt mehrere Postfach-Unterordner (z.B.
// 'BU-Postfach' und 'Maklerservice'). Tool durchsucht rekursiv, filtert
// per Zeitraum, kopiert Treffer in einen neuen Ordner mit erhaltener
// Unterordner-Struktur, schaltet danach auf den neuen Ordner um.

function copyZeitraumToNewFolder() {
    if (state.running) return;
    if (!state.folderPath) { showError("Erst Ordner waehlen."); return; }
    if (!state.dateFrom && !state.dateTo) {
        showError("Bitte zuerst Zeitraum setzen (mind. Von oder Bis).");
        return;
    }
    var filtered = getFilteredMsgFiles();
    if (filtered.length === 0) {
        showError("Keine Mails im Zeitraum gefunden.");
        return;
    }

    // Limit-Frage: erlaubt Test-Lauf mit kleiner Anzahl
    var limitStr = window.prompt(
        "Wieviele Mails kopieren?\n\n" +
        "Verfuegbar im Zeitraum: " + filtered.length + "\n\n" +
        "leer / 0 = alle\n" +
        "Zahl = Test-Limit (z.B. 100)",
        ""
    );
    if (limitStr === null) return; // Cancel
    var limit = parseInt(limitStr) || filtered.length;
    if (limit > 0 && limit < filtered.length) {
        filtered = filtered.slice(0, limit);
    }

    var fromStr = state.dateFrom ? isoDateInput(state.dateFrom) : "alles";
    var toStr = state.dateTo ? isoDateInput(state.dateTo) : "heute";
    // Kurzes Suffix (YYMMDD) um Windows-260-Pfad-Limit zu schonen
    var fromShort = state.dateFrom ? shortDateForFolder(state.dateFrom) : "x";
    var toShort = state.dateTo ? shortDateForFolder(state.dateTo) : "x";
    var folderSuffix = "_zr_" + fromShort + "_" + toShort;
    if (limit < state.msgFiles.length) {
        folderSuffix += "_t" + filtered.length;
    }
    var targetParent = state.folderPath + "\\" + folderSuffix;

    var srcParent = state.folderPath;
    if (!confirm(
        "Mails aus Zeitraum sammeln\n\n" +
        "Quelle (rekursiv):\n  " + srcParent + "\n\n" +
        "Zeitraum: " + fromStr + " bis " + toStr + "\n" +
        "Mails zu kopieren: " + filtered.length +
        (filtered.length < state.msgFiles.length ? " (Test-Lauf, Limit gesetzt)" : "") + "\n\n" +
        "Ziel-Ordner (wird erstellt):\n  " + targetParent + "\n\n" +
        "- Originale bleiben erhalten (kopiert, nicht verschoben)\n" +
        "- FLAT: alle Mails landen direkt im Ziel-Ordner (keine Unterordner)\n" +
        "- Bei Namens-Konflikten: _2, _3, ... Suffix\n" +
        "- Danach wird der neue Ordner als Analyse-Ordner aktiviert\n\n" +
        "Fortfahren?"
    )) return;

    executeFlatCopy(filtered, targetParent, "Sammeln");
    return;

    // -- ALTER INLINE-CODE BLEIBT UNBENUTZT, WIRD VOM RETURN OBERHALB UEBERSPRUNGEN --
    state.running = true;
    refreshStartButton();
    document.getElementById("progressContainer").style.display = "block";
    hideStatus();

    var fso;
    try { fso = new ActiveXObject("Scripting.FileSystemObject"); }
    catch(e) {
        showError("FSO nicht verfuegbar: " + e.message);
        state.running = false;
        refreshStartButton();
        document.getElementById("progressContainer").style.display = "none";
        return;
    }

    try {
        ensureFolderPath(fso, targetParent);
    } catch(e) {
        showError("Ziel-Ordner konnte nicht erstellt werden: " + e.message);
        state.running = false;
        refreshStartButton();
        document.getElementById("progressContainer").style.display = "none";
        return;
    }

    var copied = 0, errors = 0, total = filtered.length;
    var errorSamples = [];      // erste 20 Fehler-Details fuer Diagnose
    var errorByReason = {};     // Gruppierung nach Fehler-Typ
    var srcLower = srcParent.toLowerCase();
    var i = 0;
    function step() {
        var end = Math.min(i + 50, total);
        for (; i < end; i++) {
            var src = filtered[i];
            // FLACH kopieren: nur Dateiname, keine Unterordner-Struktur
            // Spart Pfad-Laenge (Windows-260-Limit) und macht's einfacher
            var fileName = getFileName(src);

            // Skip wenn die Quelle SELBST schon im Target liegt (Re-Run-Schutz)
            if (src.toLowerCase().indexOf(targetParent.toLowerCase()) === 0) continue;

            var dest = targetParent + "\\" + fileName;
            var phase = "init";
            try {
                phase = "conflict-check";
                if (fso.FileExists(dest)) {
                    var dotPos = dest.lastIndexOf(".");
                    var n = 2;
                    while (n < 1000) {
                        var altDest = (dotPos > 0)
                            ? dest.substr(0, dotPos) + "_" + n + dest.substr(dotPos)
                            : dest + "_" + n;
                        if (!fso.FileExists(altDest)) { dest = altDest; break; }
                        n++;
                    }
                }
                phase = "CopyFile (destPath len=" + dest.length + ")";
                fso.CopyFile(src, dest, false);
                copied++;
            } catch(eC) {
                errors++;
                var reasonKey = phase + " | " + (eC.message || eC.description || String(eC)).substr(0, 80);
                errorByReason[reasonKey] = (errorByReason[reasonKey] || 0) + 1;
                if (errorSamples.length < 20) {
                    errorSamples.push({
                        phase: phase,
                        msg: (eC.message || eC.description || String(eC)),
                        src: src,
                        srcLen: src.length,
                        dest: dest,
                        destLen: dest.length
                    });
                }
            }
        }
        updateProgress(i, total, "Kopiere: " + i + "/" + total + " (ok: " + copied + ", fehler: " + errors + ")");
        if (i < total) {
            setTimeout(step, 5);
        } else {
            document.getElementById("progressContainer").style.display = "none";
            state.running = false;

            // Diagnose fuer User
            var diagHtml = "";
            if (errors > 0) {
                diagHtml = "<br><br><strong>Fehler-Diagnose:</strong>";
                diagHtml += "<br><em>Gruppiert nach Ursache:</em>";
                diagHtml += "<table style='font-size:11px;border-collapse:collapse;margin-top:4px;'>";
                var sortedReasons = [];
                for (var rk in errorByReason) if (errorByReason.hasOwnProperty(rk)) {
                    sortedReasons.push({ key: rk, count: errorByReason[rk] });
                }
                sortedReasons.sort(function(a,b){ return b.count - a.count; });
                for (var sr = 0; sr < Math.min(8, sortedReasons.length); sr++) {
                    diagHtml += "<tr><td style='padding:2px 8px;color:#fca5a5'>" + esc(sortedReasons[sr].key) + "</td>" +
                                "<td style='padding:2px 8px;text-align:right'><strong>" + sortedReasons[sr].count + "</strong></td></tr>";
                }
                diagHtml += "</table>";

                if (errorSamples.length > 0) {
                    diagHtml += "<br><em>Beispiel-Fehler (max 5):</em>";
                    diagHtml += "<table style='font-size:10px;border-collapse:collapse;margin-top:4px;'>";
                    for (var es = 0; es < Math.min(5, errorSamples.length); es++) {
                        var s = errorSamples[es];
                        diagHtml += "<tr><td style='padding:2px 4px;color:#94a3b8'>Quelle (" + s.srcLen + " Z.):</td>" +
                                    "<td style='padding:2px 4px;font-family:monospace'>" + esc(s.src.substr(s.src.lastIndexOf('\\\\')+1)) + "</td></tr>";
                        diagHtml += "<tr><td style='padding:2px 4px;color:#94a3b8'>Ziel-Len:</td>" +
                                    "<td style='padding:2px 4px'>" + s.destLen + " Zeichen</td></tr>";
                        diagHtml += "<tr><td style='padding:2px 4px;color:#fca5a5'>Phase:</td>" +
                                    "<td style='padding:2px 4px'>" + esc(s.phase) + "</td></tr>";
                        diagHtml += "<tr><td style='padding:2px 4px;color:#fca5a5'>Fehler:</td>" +
                                    "<td style='padding:2px 4px'>" + esc(s.msg) + "</td></tr>";
                        diagHtml += "<tr><td colspan='2' style='border-bottom:1px solid #334155;height:2px'></td></tr>";
                    }
                    diagHtml += "</table>";
                }

                // Path-Length-Hinweis wenn viele lange Pfade dabei sind
                var longPaths = 0;
                for (var lp = 0; lp < errorSamples.length; lp++) {
                    if (errorSamples[lp].destLen >= 250) longPaths++;
                }
                if (longPaths > 0 || total > 1000) {
                    diagHtml += "<br><strong style='color:#fbbf24'>Tipp:</strong> " +
                                "Windows-Pfade duerfen max ~260 Zeichen lang sein. Bei langen UNC-Pfaden " +
                                "und langen Mail-Filenames kann das schnell ueberschritten werden. " +
                                "Probiere einen kuerzeren Ziel-Pfad, z.B. <code>C:\\BU-Snap\\</code> statt unter <code>HOME\\Eigene Dateien\\...</code>.";
                }
            }

            if (copied === 0) {
                refreshStartButton();
                showError("<strong>Keine Mails kopiert (" + errors + " Fehler).</strong><br>Ziel-Ordner: <code>" + esc(targetParent) + "</code>" + diagHtml);
                return;
            }

            // Active folder switch + reset date filter (alles im neuen Ordner ist schon im Zeitraum)
            state.xxlResults = []; // alte XXL-Daten verwerfen
            state.results = [];
            state.pendingMap = {};
            resetDateRange();
            useFolder(targetParent);
            if (errors === 0) {
                showSuccess(copied + " von " + total + " Mails nach <code>" + esc(targetParent) + "</code> kopiert. Ordner ist jetzt aktiv.");
            } else {
                showError("<strong>" + copied + " von " + total + " Mails kopiert, aber " + errors + " Fehler!</strong><br>" +
                          "Ziel: <code>" + esc(targetParent) + "</code> (jetzt aktiv)." + diagHtml);
            }
        }
    }
    setTimeout(step, 50);
}

function ensureFolderPath(fso, path) {
    if (!path) return;
    if (fso.FolderExists(path)) return;
    var parent = path.substr(0, path.lastIndexOf("\\"));
    if (parent && !fso.FolderExists(parent)) ensureFolderPath(fso, parent);
    if (!fso.FolderExists(path)) fso.CreateFolder(path);
}

// ============================================================================
// ZUFALLSSTICHPROBE: N zufaellige Mails in neuen Ordner kopieren
// ============================================================================
function copyRandomSampleToNewFolder() {
    if (state.running) return;
    if (!state.folderPath) { showError("Erst Ordner waehlen."); return; }
    var filtered = getFilteredMsgFiles();
    if (filtered.length === 0) {
        showError("Keine Mails verfuegbar.");
        return;
    }

    var defaultN = Math.min(1000, filtered.length);
    var nStr = window.prompt(
        "Zufallsstichprobe ziehen\n\n" +
        "Verfuegbar im Filter: " + filtered.length + " Mails\n\n" +
        "Wieviele zufaellig auswaehlen?\n" +
        "(Empfehlung: 100-1000 fuer Pool-Sampling)",
        defaultN
    );
    if (nStr === null) return;
    var n = parseInt(nStr);
    if (!n || n < 1) { showError("Ungueltige Anzahl."); return; }
    if (n > filtered.length) n = filtered.length;

    // Fisher-Yates Shuffle in-place
    var pool = filtered.slice(0);
    for (var sh = pool.length - 1; sh > 0; sh--) {
        var sj = Math.floor(Math.random() * (sh + 1));
        var tmp = pool[sh]; pool[sh] = pool[sj]; pool[sj] = tmp;
    }
    var sample = pool.slice(0, n);

    // Ziel-Name (mit Zeitraum falls Filter, sonst nur _sample_N)
    var dateSuffix = "";
    if (state.dateFrom) dateSuffix += "_" + shortDateForFolder(state.dateFrom);
    if (state.dateTo) dateSuffix += "_" + shortDateForFolder(state.dateTo);
    var folderSuffix = "_sample_" + n + dateSuffix;
    var targetParent = state.folderPath + "\\" + folderSuffix;

    if (!confirm(
        "Zufallsstichprobe in neuen Ordner kopieren\n\n" +
        "Quelle: " + state.folderPath + "\n" +
        "Verfuegbar: " + filtered.length + " Mails\n" +
        "Stichprobe: " + n + " zufaellig gewaehlte Mails\n\n" +
        "Ziel-Ordner:\n  " + targetParent + "\n\n" +
        "- FLAT: alle Mails direkt in einem Ordner\n" +
        "- Bei Namens-Konflikten: _2, _3, ... Suffix\n" +
        "- Originale bleiben erhalten\n" +
        "- Danach wird der neue Ordner als Analyse-Ordner aktiviert\n\n" +
        "Fortfahren?"
    )) return;

    executeFlatCopy(sample, targetParent, "Stichprobe");
}

// Gemeinsame Copy-Engine fuer Zeitraum-Sammeln + Zufallsstichprobe.
// Erwartet: fileList (Array von vollen Pfaden), targetParent (Ziel-Ordner),
// label (z.B. "Sammeln" oder "Stichprobe" - fuer Statusmeldungen).
function executeFlatCopy(fileList, targetParent, label) {
    state.running = true;
    refreshStartButton();
    document.getElementById("progressContainer").style.display = "block";
    hideStatus();

    var fso;
    try { fso = new ActiveXObject("Scripting.FileSystemObject"); }
    catch(e) {
        showError("FSO nicht verfuegbar: " + e.message);
        state.running = false;
        refreshStartButton();
        document.getElementById("progressContainer").style.display = "none";
        return;
    }
    try { ensureFolderPath(fso, targetParent); }
    catch(e) {
        showError("Ziel-Ordner konnte nicht erstellt werden: " + e.message);
        state.running = false;
        refreshStartButton();
        document.getElementById("progressContainer").style.display = "none";
        return;
    }

    var copied = 0, errors = 0, total = fileList.length;
    var errorSamples = [];
    var errorByReason = {};
    var i = 0;
    function step() {
        var end = Math.min(i + 50, total);
        for (; i < end; i++) {
            var src = fileList[i];
            var fileName = getFileName(src);
            if (src.toLowerCase().indexOf(targetParent.toLowerCase()) === 0) continue;
            var dest = targetParent + "\\" + fileName;
            var phase = "init";
            try {
                phase = "conflict-check";
                if (fso.FileExists(dest)) {
                    var dotPos = dest.lastIndexOf(".");
                    var nN = 2;
                    while (nN < 1000) {
                        var altDest = (dotPos > 0)
                            ? dest.substr(0, dotPos) + "_" + nN + dest.substr(dotPos)
                            : dest + "_" + nN;
                        if (!fso.FileExists(altDest)) { dest = altDest; break; }
                        nN++;
                    }
                }
                phase = "CopyFile (destPath len=" + dest.length + ")";
                fso.CopyFile(src, dest, false);
                copied++;
            } catch(eC) {
                errors++;
                var reasonKey = phase + " | " + (eC.message || eC.description || String(eC)).substr(0, 80);
                errorByReason[reasonKey] = (errorByReason[reasonKey] || 0) + 1;
                if (errorSamples.length < 20) {
                    errorSamples.push({
                        phase: phase, msg: (eC.message || eC.description || String(eC)),
                        src: src, srcLen: src.length, dest: dest, destLen: dest.length
                    });
                }
            }
        }
        updateProgress(i, total, label + ": " + i + "/" + total + " (ok: " + copied + ", fehler: " + errors + ")");
        if (i < total) {
            setTimeout(step, 5);
        } else {
            document.getElementById("progressContainer").style.display = "none";
            state.running = false;

            var diagHtml = "";
            if (errors > 0) {
                diagHtml = "<br><br><strong>Fehler-Diagnose:</strong><br>";
                diagHtml += "<table style='font-size:11px;border-collapse:collapse;margin-top:4px;'>";
                var sortedReasons = [];
                for (var rk in errorByReason) if (errorByReason.hasOwnProperty(rk)) sortedReasons.push({ key: rk, count: errorByReason[rk] });
                sortedReasons.sort(function(a,b){ return b.count - a.count; });
                for (var sr = 0; sr < Math.min(8, sortedReasons.length); sr++) {
                    diagHtml += "<tr><td style='padding:2px 8px;color:#fca5a5'>" + esc(sortedReasons[sr].key) + "</td>" +
                                "<td style='padding:2px 8px;text-align:right'><strong>" + sortedReasons[sr].count + "</strong></td></tr>";
                }
                diagHtml += "</table>";
                var longPaths = 0;
                for (var lp = 0; lp < errorSamples.length; lp++) {
                    if (errorSamples[lp].destLen >= 250) longPaths++;
                }
                if (longPaths > 0) {
                    diagHtml += "<br><strong style='color:#fbbf24'>Tipp:</strong> " +
                                "Windows-Pfade duerfen max ~260 Zeichen lang sein. " +
                                "Probiere einen kuerzeren Ziel-Pfad (Ordner mit kuerzerem Namen).";
                }
            }

            if (copied === 0) {
                refreshStartButton();
                showError("<strong>" + label + ": Keine Mails kopiert (" + errors + " Fehler).</strong>" + diagHtml);
                return;
            }

            state.xxlResults = [];
            state.results = [];
            state.pendingMap = {};
            resetDateRange();
            useFolder(targetParent);
            if (errors === 0) {
                showSuccess(label + ": " + copied + " von " + total + " Mails nach <code>" + esc(targetParent) + "</code> kopiert. Ordner ist jetzt aktiv.");
            } else {
                showError("<strong>" + label + ": " + copied + " von " + total + " Mails kopiert, " + errors + " Fehler!</strong><br>Ziel: <code>" + esc(targetParent) + "</code> (jetzt aktiv)." + diagHtml);
            }
        }
    }
    setTimeout(step, 50);
}

function countRenameCandidates() {
    var toRename = 0, alreadyOk = 0, noDate = 0;
    for (var i = 0; i < state.xxlResults.length; i++) {
        var r = state.xxlResults[i];
        if (!r.msgFile) continue;
        if (r.msgFile.match(/^\d{4}-\d{2}-\d{2}_/)) { alreadyOk++; continue; }
        var d = parseRfc822Date(r.datum);
        if (!d) { noDate++; continue; }
        toRename++;
    }
    return { toRename: toRename, alreadyOk: alreadyOk, noDate: noDate };
}

// ============================================================================
// WORKSHOP-MODE (Klick auf "ERGO" im Header)
// Minimalistische Demo-Oberflaeche fuer Workshops: Ordner waehlen, Play druecken.
// Pro Mail: KI-Analyse -> HTML-Notiz als Attachment -> Reminder-Praefix im
// Betreff -> Mail speichern -> am Ende alle Mails oeffnen.
// ============================================================================
function openWorkshopMode() {
    var ov = document.getElementById("workshopOverlay");
    if (!ov) return;
    ov.style.display = "block";
    // State zuruecksetzen
    state._wsFolder = "";
    state._wsMsgFiles = [];
    state._wsRunning = false;
    document.getElementById("wsFolderPath").innerText = "Noch kein Ordner gewählt";
    document.getElementById("wsFolderPath").className = "ws-folder-path ws-empty";
    document.getElementById("wsInfoGrid").style.display = "none";
    document.getElementById("wsPlay").disabled = true;
    var wb0;
    if ((wb0 = document.getElementById("wsBatch"))) wb0.disabled = true;
    if ((wb0 = document.getElementById("wsCombined"))) wb0.disabled = true;
    if ((wb0 = document.getElementById("wsChunked"))) wb0.disabled = true;
    if ((wb0 = document.getElementById("wsTest")))  wb0.disabled = true;
    document.getElementById("wsProgressWrap").style.display = "none";
    document.getElementById("wsLog").style.display = "none";
    document.getElementById("wsLog").innerText = "";
    wsHideStatus();
    // Cookie kommt ausschliesslich aus Cookie.txt (loadCookieFromFile beim Start).
    var ck = document.getElementById("wsCookieState");
    if (ck) {
        if (state.cookie && state.cookie.length >= 50) {
            ck.className = "ws-status ws-success";
            ck.style.display = "block";
            ck.innerHTML = "Cookie aus <strong>Cookie.txt</strong> geladen (" + state.cookie.length + " Zeichen) - bereit.";
        } else {
            ck.className = "ws-status ws-error";
            ck.style.display = "block";
            ck.innerHTML = "<strong>Kein Cookie.</strong> Bitte <code>Cookie.txt</code> neben die HTA legen " +
                           "(im Hauptmodus Cookie einfuegen + speichern) und Workshop neu oeffnen.";
        }
    }
    if (!outlookApp) wsShowError("Outlook ist nicht verbunden - bitte erst in Hauptmodus die Verbindung pr&uuml;fen.");
}

function closeWorkshopMode() {
    var ov = document.getElementById("workshopOverlay");
    if (ov) ov.style.display = "none";
}

function wsHideStatus() {
    document.getElementById("wsStatusInfo").style.display = "none";
    document.getElementById("wsStatusSuccess").style.display = "none";
    document.getElementById("wsStatusError").style.display = "none";
}
function wsShowInfo(m)    { wsHideStatus(); document.getElementById("wsStatusInfo").innerHTML = m; document.getElementById("wsStatusInfo").style.display = "block"; }
function wsShowSuccess(m) { wsHideStatus(); document.getElementById("wsStatusSuccess").innerHTML = m; document.getElementById("wsStatusSuccess").style.display = "block"; }
function wsShowError(m)   { wsHideStatus(); document.getElementById("wsStatusError").innerHTML = m; document.getElementById("wsStatusError").style.display = "block"; }
function wsEsc(s) {
    return String(s == null ? "" : s).replace(/&/g, "&amp;").replace(/</g, "&lt;").replace(/>/g, "&gt;");
}
// Perf: createElement statt innerHTML += (sonst quadratisch bei vielen Zeilen,
// macht v.a. die Parallel-Prep-Phase mit ~150 Mails spuerbar langsam). Cap auf
// die letzten 1500 Zeilen, sonst waechst der DOM-Baum unbegrenzt.
// File-Log: FSO einmal cachen statt pro Aufruf neu zu instanziieren.
function wsLog(msg, kind) {
    var el = document.getElementById("wsLog");
    if (!el) return;
    el.style.display = "block";
    var s = String(msg == null ? "" : msg);
    if (!kind) {
        if (/FEHLER|fehlgeschlagen|Timeout|nicht verf|nicht möglich|blockiert/i.test(s)) kind = "err";
        else if (/FERTIG|fertig|erstellt|gespeichert|^\s*OK|hochgeladen|erkannt|bereit/i.test(s)) kind = "ok";
        else if (/^\s*\.\.\.|warte|Lebenszeichen/i.test(s)) kind = "muted";
        else if (/^\s*(=====|#####|-----)|TESTMODUS|BATCH|KOMBI/i.test(s)) kind = "head";
        else kind = "info";
    }
    var t = new Date();
    function p2(n){ n = String(n); return n.length < 2 ? "0" + n : n; }
    var ts = p2(t.getHours()) + ":" + p2(t.getMinutes()) + ":" + p2(t.getSeconds());
    var isBlank = s.replace(/\s+/g, "") === "";

    var row = document.createElement("div");
    row.className = "ws-ll ws-ll-" + kind;
    if (!isBlank) {
        var spT = document.createElement("span");
        spT.className = "ws-llt";
        spT.appendChild(document.createTextNode(ts));
        row.appendChild(spT);
    }
    var spM = document.createElement("span");
    spM.className = "ws-llm";
    if (isBlank) {
        spM.innerHTML = "&nbsp;";
    } else {
        spM.appendChild(document.createTextNode(s));
    }
    row.appendChild(spM);
    el.appendChild(row);

    // Cap: alte Zeilen droppen (sonst DOM unbegrenzt -> mshta langsam).
    var max = 1500;
    while (el.childNodes.length > max) {
        try { el.removeChild(el.firstChild); } catch(eRc) { break; }
    }
    el.scrollTop = el.scrollHeight;

    // Datei-Log: FSO + Stream einmal anlegen und cachen. Pro Zeile nur noch ein
    // WriteLine - kein OpenTextFile/Close-Cycle (war Hauptkosten in dieser
    // Funktion bei vielen Aufrufen).
    try {
        if (!state._wsLogFso) state._wsLogFso = new ActiveXObject("Scripting.FileSystemObject");
        if (!state._wsLogFile) {
            var lsh = null;
            try { lsh = new ActiveXObject("WScript.Shell"); } catch(eSh) {}
            var dir = "";
            try {
                if (state._wsFolder) {
                    dir = state._wsFolder.replace(/\\+$/, "") + "\\_KI-Vorgaenge";
                    if (!state._wsLogFso.FolderExists(dir)) state._wsLogFso.CreateFolder(dir);
                }
            } catch(eLd) { dir = ""; }
            if (!dir && lsh) { try { dir = lsh.ExpandEnvironmentStrings("%TEMP%"); } catch(e) {} }
            var dt2 = new Date();
            var stmp = String(dt2.getFullYear()) + p2(dt2.getMonth()+1) + p2(dt2.getDate()) + "_" +
                       p2(dt2.getHours()) + p2(dt2.getMinutes()) + p2(dt2.getSeconds());
            state._wsLogFile = dir.replace(/\\+$/, "") + "\\Workshop-Log_" + stmp + ".txt";
            var hf = state._wsLogFso.CreateTextFile(state._wsLogFile, true, true); // Unicode
            hf.WriteLine("ERGO Workshop Log - " + dt2.toLocaleString());
            hf.WriteLine("==================================================");
            hf.Close();
            // Pfad einmalig sichtbar machen
            var pRow = document.createElement("div");
            pRow.className = "ws-ll ws-ll-muted";
            var pT = document.createElement("span");
            pT.className = "ws-llt"; pT.appendChild(document.createTextNode(ts));
            var pM = document.createElement("span");
            pM.className = "ws-llm"; pM.appendChild(document.createTextNode("Log-Datei: " + state._wsLogFile));
            pRow.appendChild(pT); pRow.appendChild(pM);
            el.appendChild(pRow);
        }
        var af = state._wsLogFso.OpenTextFile(state._wsLogFile, 8, true, -1);
        af.WriteLine(ts + "  [" + kind + "]  " + s);
        af.Close();
    } catch(eLog) {}
}
function wsProgress(done, total) {
    var pct = total > 0 ? Math.round(done * 100 / total) : 0;
    document.getElementById("wsProgressFill").style.width = pct + "%";
    document.getElementById("wsProgressText").innerText = done + " von " + total;
}

function wsPickFolder() {
    try {
        var shell = new ActiveXObject("Shell.Application");
        var f = shell.BrowseForFolder(0, "Ordner mit Demo-Mails", 0);
        if (f && f.Self && f.Self.Path) wsUseFolder(f.Self.Path);
    } catch(e) {
        var p = prompt("Ordner-Pfad:", state._wsFolder || "C:\\");
        if (p) wsUseFolder(p);
    }
}

// Outlook-Ordnerbaum-Picker (alle Postf&auml;cher/Unterordner) + Export aller
// Mails als .msg in einen lokalen Workshop-Eingangsordner. Originalbetreff
// wird als Dateiname beibehalten (nur Pfadzeichen sanitized + Dedup-Suffix).
// Anschliessend wird der Zielordner direkt als Workshop-Input gesetzt.
function wsPickOutlookFolder() {
    if (!outlookApp || !outlookNS) {
        wsShowError("Outlook ist nicht verbunden &mdash; bitte Outlook &ouml;ffnen und HTA neu starten.");
        return;
    }
    var olFolder = null;
    try {
        olFolder = outlookNS.PickFolder();
    } catch (e) {
        wsShowError("Outlook-Ordnerauswahl fehlgeschlagen: " + wsEsc(e.message || e));
        return;
    }
    if (!olFolder) return; // abgebrochen

    var itemCount = 0;
    try { itemCount = olFolder.Items.Count; } catch(eC) { itemCount = 0; }
    if (itemCount === 0) {
        wsShowError("Outlook-Ordner <strong>" + wsEsc(olFolder.Name) + "</strong> enth&auml;lt keine Eintr&auml;ge.");
        return;
    }

    // Zielordner aufbauen: %USERPROFILE%\Downloads\Workshop-Export_<OrdnerName>_<Stempel>
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var sh  = new ActiveXObject("WScript.Shell");
    var shApp = new ActiveXObject("Shell.Application");
    var downloads = "";
    try { downloads = shApp.NameSpace("shell:Downloads").Self.Path; } catch(eDl) {}
    if (!downloads) {
        try { downloads = sh.ExpandEnvironmentStrings("%USERPROFILE%") + "\\Downloads"; } catch(eU) {}
    }
    if (!downloads) downloads = sh.ExpandEnvironmentStrings("%TEMP%");

    function p2(n) { n = String(n); return n.length < 2 ? "0" + n : n; }
    var d0 = new Date();
    var stamp = String(d0.getFullYear()) + p2(d0.getMonth()+1) + p2(d0.getDate()) + "_" +
                p2(d0.getHours()) + p2(d0.getMinutes()) + p2(d0.getSeconds());
    function sanitizeName(s, maxLen) {
        var x = String(s == null ? "" : s)
                  .replace(/[\\\/:*?"<>|\r\n\t]/g, "_")
                  .replace(/\s+/g, " ")
                  .replace(/^[\s\.]+|[\s\.]+$/g, "");
        if (!x) x = "ohne_Betreff";
        if (maxLen && x.length > maxLen) x = x.substring(0, maxLen);
        return x;
    }
    var safeFolderName = sanitizeName(olFolder.Name, 40);
    var targetDir = downloads.replace(/\\+$/, "") + "\\Workshop-Export_" + safeFolderName + "_" + stamp;
    try {
        if (!fso.FolderExists(targetDir)) fso.CreateFolder(targetDir);
    } catch (eMk) {
        wsShowError("Zielordner konnte nicht erstellt werden: " + wsEsc(targetDir) + " (" + wsEsc(eMk.message || eMk) + ")");
        return;
    }

    // UI sperren + Log starten
    document.getElementById("wsLog").style.display = "block";
    document.getElementById("wsLog").innerHTML = "";
    document.getElementById("wsProgressWrap").style.display = "block";
    wsProgress(0, itemCount);
    wsShowInfo("Exportiere <strong>" + itemCount + "</strong> Eintr&auml;ge aus Outlook-Ordner <strong>" +
               wsEsc(olFolder.Name) + "</strong> nach <code>" + wsEsc(targetDir) + "</code>...");
    wsLog("===== Outlook-Export: " + olFolder.Name + " (" + itemCount + " Einträge) =====", "head");
    wsLog("Zielordner: " + targetDir, "info");

    var pickBtn = document.getElementById("wsPick");
    var olPickBtn = document.getElementById("wsPickOutlook");
    if (pickBtn) pickBtn.disabled = true;
    if (olPickBtn) olPickBtn.disabled = true;

    var saved = 0, failed = 0, skipped = 0;
    var idx = 1;
    var itemsCol = olFolder.Items;
    var usedNames = {};   // fuer Dedup

    function stepOne() {
        if (idx > itemCount) {
            if (pickBtn) pickBtn.disabled = false;
            if (olPickBtn) olPickBtn.disabled = false;
            wsLog("", "info");
            wsLog("Fertig: " + saved + " als .msg gespeichert" +
                  (skipped ? ", " + skipped + " uebersprungen (kein MailItem)" : "") +
                  (failed ? ", " + failed + " fehlgeschlagen" : "") + ".", "ok");
            if (saved > 0) {
                wsShowSuccess("<strong>" + saved + "</strong> Mails als <code>.msg</code> exportiert" +
                              (failed ? " (" + failed + " Fehler, siehe Log)" : "") +
                              (skipped ? ", " + skipped + " Nicht-Mails uebersprungen" : "") +
                              " &mdash; Ordner wird jetzt als Workshop-Input gesetzt.");
                try { sh.Run('explorer.exe "' + targetDir + '"', 1, false); } catch(eExp) {}
                wsUseFolder(targetDir);
            } else {
                wsShowError("Keine Mail konnte exportiert werden &mdash; siehe Log.");
            }
            return;
        }

        var item = null;
        try {
            item = itemsCol.Item(idx);
            var cls = 0;
            try { cls = item.Class; } catch(eCl) { cls = 0; }
            // 43 = olMail. Andere Outlook-Item-Typen (Termine, Aufgaben, Kontakte) skippen
            if (cls !== 43) {
                skipped++;
                wsLog("[" + idx + "/" + itemCount + "] uebersprungen (Outlook-Class " + cls + ", keine Mail)", "muted");
            } else {
                var subj = "";
                try { subj = item.Subject; } catch(eS) { subj = ""; }
                var baseName = sanitizeName(subj, 120);
                var fname = baseName + ".msg";
                var fkey = fname.toLowerCase();
                if (usedNames[fkey] || fso.FileExists(targetDir + "\\" + fname)) {
                    var n = 2;
                    while (usedNames[(baseName + " (" + n + ").msg").toLowerCase()] ||
                           fso.FileExists(targetDir + "\\" + baseName + " (" + n + ").msg")) {
                        n++;
                        if (n > 9999) break;
                    }
                    fname = baseName + " (" + n + ").msg";
                    fkey = fname.toLowerCase();
                }
                usedNames[fkey] = true;
                var target = targetDir + "\\" + fname;
                item.SaveAs(target, 9); // 9 = olMSGUnicode
                saved++;
                wsLog("[" + idx + "/" + itemCount + "] " + fname, "ok");
            }
        } catch (eIt) {
            failed++;
            wsLog("[" + idx + "/" + itemCount + "] FEHLER: " + (eIt.message || eIt) +
                  " (evtl. Outlook-Sicherheitsabfrage 'Zugriff zulassen' bestaetigen)", "err");
        }
        try { item = null; } catch(eN) {}

        idx++;
        wsProgress(idx - 1, itemCount);
        setTimeout(stepOne, 5);
    }

    setTimeout(stepOne, 50);
}

function wsUseFolder(path) {
    state._wsFolder = path;
    state._wsMsgFiles = [];
    document.getElementById("wsFolderPath").innerText = path;
    document.getElementById("wsFolderPath").className = "ws-folder-path";
    try {
        var fso = new ActiveXObject("Scripting.FileSystemObject");
        if (fso.FolderExists(path)) {
            var folder = fso.GetFolder(path);
            var en = new Enumerator(folder.Files);
            for (; !en.atEnd(); en.moveNext()) {
                var fi = en.item();
                if (String(fi.Name).toLowerCase().substr(-4) === ".msg") {
                    state._wsMsgFiles.push(fi.Path);
                }
            }
        }
    } catch(e) {}
    document.getElementById("wsNumMsgs").innerText = state._wsMsgFiles.length;
    document.getElementById("wsInfoGrid").style.display = "flex";
    var dis = state._wsMsgFiles.length === 0 || !outlookApp || state.cookie.length < 50;
    document.getElementById("wsPlay").disabled = dis;
    var bb;
    if ((bb = document.getElementById("wsBatch"))) bb.disabled = dis;
    if ((bb = document.getElementById("wsCombined"))) bb.disabled = dis;
    if ((bb = document.getElementById("wsChunked"))) bb.disabled = dis;
    if ((bb = document.getElementById("wsTest")))  bb.disabled = dis;
    wsHideStatus();
}

// Workshop-spezifischer kompakter Prompt - eigene Antwort-Struktur fuer die Notiz
function wsBuildPrompt(datum, absName, absMail, betreff, body, anhangAlle, pdfsHochgeladen) {
    var p = "";
    p += "Du bist ERGO-Innendienst-Sachbearbeiter (SHUK). Analysiere die Mail + ALLE Anhaenge gruendlich.\n\n";
    p += "===== EMAIL =====\n";
    p += "Datum: " + datum + "\nAbsender: " + absName + " <" + absMail + ">\nBetreff: " + betreff + "\n";
    p += "Anhaenge: " + (anhangAlle || "(keine)") + "\n";
    p += "Anhaenge als PDFs hochgeladen: " + (pdfsHochgeladen || "(keine)") + "\n";
    p += "Body:\n<<<\n" + body + "\n>>>\n===== ENDE =====\n\n";
    p += "WICHTIG zu agentur_nummer / vermittler_nummer - jeweils NUR der reine\n";
    p += "Nummern-Wert OHNE Wort-Label, NICHT kombiniert. Quellen-Priorisierung:\n";
    p += "  1. 'Agentur-Nr.' / 'Vermittler-Nr.' im Briefkopf-Block (Wunsch-Nummer)\n";
    p += "  2. 'BD-Nummer' / 'Bestandsnummer' / 'Beraterzeichen'\n";
    p += "  3. NUR Fallback: Pool-IDs ('MAKID','DEMMAK','BCA-ID' - pool-intern, NICHT beim Versicherer)\n\n";
    p += "geschaefts_typ STRENG: 'BUe einfacher Vertrag' nur bei GENAU EINER Vertragsnummer.\n";
    p += "'BUe Kundenverbindung' wenn mehrere Vertragsnummern ODER 'alle Vertraege'/'gesamte Kundenverbindung'.\n";
    p += "Anhaenge mit '[Scan - NICHT analysiert]' wurden bewusst nicht hochgeladen: pdf_qualitaet='Scan', ";
    p += "hinweis 'Scan-Anhang nicht analysiert - manuell pruefen', Felder die nur daraus kaemen leer/nicht_pruefbar.\n\n";
    p += "Antworte AUSSCHLIESSLICH mit EINEM gueltigen JSON-Objekt (kein Markdown, keine Erklaerung).\n";
    p += "Knapp + praezise antworten, KEINE Zitate aus den PDFs ins JSON kopieren.\n";
    p += "LEERE Felder als LEERER STRING \"\" - NICHT \"leer\", \"k.A.\", \"-\", \"keine\" oder aehnliches.\n";
    p += "Verwende echte deutsche Umlaute (ae->ä, oe->ö, ue->ü, ss->ß) in Freitext-Feldern:\n";
    p += "{\n" + wsFieldLines() + "}\n";
    return p;
}

// Gemeinsames Feld-Schema (Einzel- und Batch-Prompt nutzen es identisch).
function wsFieldLines() {
    var p = "";
    p += '  "vorgangstyp":"Makler-Vorgang|Zustellfehler|Ergo-Outbound|System-Mail|Werbung-Spam|Unklar",\n';
    p += '  "klassifikation":"BUe-Vorgang|Anfrage-Ruecksprache|Antrag-Aenderung|Schadenmeldung|Nicht-Standard|Kein-Makler-Vorgang",\n';
    p += '  "klassifikation_grund":"kurze Begruendung mit konkreten Indizien (max 200 Zeichen)",\n';
    p += '  "ist_reminder":"ja|nein",\n';
    p += '  "reminder_quelle":"leer wenn nein, sonst komma-getrennt aus: Anhang-PDF-Inhalt, Anhang-Dateiname, Mail-Betreff, Mail-Body",\n';
    p += '  "nicht_neuer_vorgang_grund":"leer wenn Erstvorgang, sonst warum kein neuer (Reminder/WV/Nachreichung)",\n';
    p += '  "maklerpool":"Pool-Name konsolidiert (JDC / Jung, DMS & Cie.; Fonds Finanz Maklerservice GmbH; blau direkt GmbH; etc.). NUR wenn der Pool eindeutig aus Mail-Text/PDF/Signatur hervorgeht. NICHT aus der Absender-Domain oder dem Makler-Namen erraten. Sonst LEER",\n';
    p += '  "makler_nachname":"handelnde Person ODER Makler-Firma beim Makler (NICHT Kunde). Wenn Maklervertrag auf eine Firma laeuft die nur ueber einen Pool abwickelt (z.B. Finanzguru via Jung DMS): makler_nachname = eigentlicher Makler (Finanzguru), maklerpool bleibt JDC / Jung, DMS & Cie. Sonst leer",\n';
    p += '  "makler_vorname":"oder leer",\n';
    p += '  "agentur_nummer":"NUR der reine Agentur-Nummern-Wert OHNE das Wort Agentur (z.B. 8903235); leer wenn keine",\n';
    p += '  "vermittler_nummer":"NUR der reine Vermittler-/BD-Nummern-Wert OHNE das Wort Vermittler (z.B. 811774 oder 898-0003); leer wenn keine",\n';
    p += '  "auftrag_datum":"Datum aus Maklerauftrag/Pool-Anschreiben (NICHT Mail-Eingang). IMMER Format TT.MM.JJJJ (z.B. 06.04.2026), niemals ISO/JJJJ-MM-TT; leer wenn keins",\n';
    p += '  "kunde_nachname":"VN / Vollmachtgeber, oder leer",\n';
    p += '  "kunde_vorname":"oder leer",\n';
    p += '  "kunde_nummer":"Partner-/Personennummer (NICHT Vers- oder Maklernummer), oder leer",\n';
    p += '  "versicherungsnummer":"VNR(n) / Vertragsnummer(n) als TEXT (NICHT als Zahl interpretieren). Behalte EXAKT die Originalform inkl. Buchstaben-Praefix (SV/LF/HG/RS/GU/HA/...), fuehrende Nullen sowie Punkt/Komma/Strich-Suffixe (z.B. SV096877374.7, HA4712946-217). Bei MEHREREN explizit benannten Vertragsnummern (z.B. \'BUe Kundenverbindung\' mit Aufzaehlung im Anschreiben) ALLE kommagetrennt auffuehren (z.B. \'SV096877374.7, SV075359847.2, SV096877892\'). Sonst leer",\n';
    p += '  "sparte":"Komposit|Leben|KV|Mehrere|Unbekannt",\n';
    p += '  "geschaefts_typ":"BUe einfacher Vertrag|BUe Kundenverbindung|Keine BUe",\n';
    p += '  "unterlagen_angefragt":"ja|nein",\n';
    p += '  "unterlagen_liste":"kommagetrennt fehlende Unterlagen, oder leer",\n';
    p += '  "sonderfall":"Flottengeschaeft|Sondertarif|Kein Sonderfall. NUR Flottengeschaeft/Sondertarif wenn AUSDRUECKLICH im Vertrag/Anschreiben so benannt. Ein Sonderkonditions-Vorbehalt (\'nicht uebertragen falls Sonderkonditionen verloren gehen\') ist KEIN Sondertarif -> dann Kein Sonderfall. Im Zweifel Kein Sonderfall",\n';
    p += '  "anhang_typen":"kommagetrennt: Maklervollmacht,Police,Antrag,Schadenmeldung,Beitragsrechnung,Anschreiben,Kuendigung,Datenblatt,Sonstiges",\n';
    p += '  "pdf_qualitaet":"Text-PDF|Scan|Mixed|Keine_PDFs|nicht_pruefbar",\n';
    p += '  "enthaelt_maklervollmacht":"ja|nein",\n';
    p += '  "mv_datum":"Datum der Maklervollmacht-Unterschrift durch den KUNDEN (Vollmachtgeber). Format TT.MM.JJJJ. NICHT das Datum des Maklerauftrag-Anschreibens (das ist auftrag_datum). Leer wenn nicht ersichtlich",\n';
    p += '  "mv_vollumfaenglich":"ja|teilweise|nein|nicht_pruefbar",\n';
    p += '  "mv_einschraenkungen":"Klartext Einschraenkungen, oder leer",\n';
    p += '  "mv_status":"OK|MV unvollstaendig|MV fehlt|kein Anhang|nicht pruefbar",\n';
    p += '  "unterschrift_kunde":"ja|nein|nicht_pruefbar",\n';
    p += '  "unterschrift_makler":"ja|nein|nicht_pruefbar",\n';
    p += '  "auf_vn_ausgestellt":"ja|nein|nicht_pruefbar",\n';
    p += '  "makler_namentlich_genannt":"ja|nein|nicht_pruefbar",\n';
    p += '  "zusammenfassung":"1-2 Saetze NEUTRAL was die Mail inhaltlich macht",\n';
    p += '  "hinweis":"1 Satz was auffaellig ist, oder leer (Standard-Boilerplate wie Sonderkonditionsvorbehalt NICHT erwaehnen)"\n';
    return p;
}

// Ein Prompt fuer MEHRERE Mails (Batch). Erwartet JSON-ARRAY zurueck, ein
// Objekt pro Mail, jedes zusaetzlich mit "datei" (exakter Dateiname) zum Mappen.
function wsBuildBatchPrompt(mails) {
    var p = "";
    p += "Du bist ERGO-Innendienst-Sachbearbeiter (SHUK). Du erhaeltst MEHRERE Makler-Mails ";
    p += "in EINEM Durchlauf plus ALLE zugehoerigen PDF-Anhaenge (hochgeladen).\n";
    p += "Analysiere JEDE Mail EINZELN und unabhaengig. Ordne hochgeladene PDFs der Mail zu, ";
    p += "zu der sie laut Dateiname/Inhalt gehoeren. Vermische Vorgaenge NICHT.\n\n";
    for (var i = 0; i < mails.length; i++) {
        var m = mails[i];
        p += "========== MAIL " + (i+1) + " von " + mails.length + " ==========\n";
        p += "datei: " + m.fileName + "\n";
        p += "Datum: " + m.datum + "\nAbsender: " + m.absName + " <" + m.absMail + ">\n";
        p += "Betreff: " + m.betreff + "\n";
        p += "Anhaenge: " + (m.anhangAlle || "(keine)") + "\n";
        p += "Anhaenge als PDFs hochgeladen: " + (m.pdfListe || "(keine)") + "\n";
        p += "Body:\n<<<\n" + m.body + "\n>>>\n";
    }
    p += "\n========== ENDE ==========\n\n";
    p += "REGELN (strikt einhalten, sonst Mappingfehler):\n";
    p += "1. Reihenfolge & Mapping: Genau " + mails.length + " Objekte in der Reihenfolge der Mails, ";
    p += "Feld \"datei\" = EXAKTER Dateiname. PDFs der Mail zuordnen, deren Dateiname/Inhalt passt. Vorgaenge NICHT vermischen.\n";
    p += "2. klassifikation bei Reminder/Erinnerung/Mahnung: NICHT 'Anfrage-Ruecksprache' - ";
    p += "klassifiziere nach dem ZUGRUNDE LIEGENDEN Vorgang (Bestandsuebertragung -> 'BUe-Vorgang') ";
    p += "und setze ist_reminder='ja'. Eine Erinnerung an eine BUe ist weiterhin ein 'BUe-Vorgang'.\n";
    p += "3. agentur_nummer / vermittler_nummer - jeweils NUR der reine Nummern-Wert ";
    p += "OHNE Wort-Label, NICHT kombiniert. Prioritaet: 1. Agentur-/Vermittler-Nr. im ";
    p += "Briefkopf, 2. BD-/Bestandsnummer/Beraterzeichen, 3. nur Fallback Pool-IDs.\n";
    p += "4. auftrag_datum IMMER im Format TT.MM.JJJJ (z.B. 06.04.2026), niemals ISO/JJJJ-MM-TT.\n";
    p += "5. maklerpool vs. eigentlicher Makler trennen: laeuft der Maklervertrag auf eine Firma, ";
    p += "die nur ueber einen Pool abwickelt, ist maklerpool der Pool und makler_nachname die Firma. ";
    p += "Beispiele: Finanzguru ueber Jung DMS -> maklerpool='JDC / Jung, DMS & Cie.', makler_nachname='Finanzguru'. ";
    p += "CHECK24 ueber Fonds Finanz -> maklerpool='Fonds Finanz Maklerservice GmbH', makler_nachname='CHECK24' ";
    p += "(NUR wenn der Pool auch wirklich aus Mail/PDF hervorgeht, sonst maklerpool leer).\n";
    p += "6. geschaefts_typ STRENG: 'BUe einfacher Vertrag' nur bei GENAU EINER Vertragsnummer.\n";
    p += "7. Firmenkunde: kunde_vorname bleibt leer (NICHT 'Firma'), Firmenname in kunde_nachname.\n";
    p += "8. sonderfall: NUR Flottengeschaeft/Sondertarif wenn AUSDRUECKLICH so benannt. Ein ";
    p += "Sonderkonditions-Vorbehalt ist KEIN Sondertarif -> Kein Sonderfall. Vorbehalt gehoert in mv_einschraenkungen.\n";
    p += "9. maklerpool LEER, wenn nicht eindeutig aus Mail/PDF/Signatur belegt - NICHT aus Absender-Domain raten.\n";
    p += "10. Anhaenge mit '[Scan - NICHT analysiert]' wurden bewusst NICHT hochgeladen: ";
    p += "pdf_qualitaet='Scan', hinweis enthaelt 'Scan-Anhang nicht analysiert - manuell pruefen', ";
    p += "Felder die nur aus diesem Scan kaemen = leer/nicht_pruefbar (nicht raten).\n\n";
    p += "Antworte AUSSCHLIESSLICH mit EINEM gueltigen JSON-ARRAY (kein Markdown, keine ";
    p += "Erklaerung), GENAU " + mails.length + " Objekte, in derselben Reihenfolge wie die Mails.\n";
    p += "Jedes Objekt hat ZUSAETZLICH als erstes Feld \"datei\" mit dem EXAKTEN Dateinamen.\n";
    p += "Knapp + praezise antworten, KEINE Zitate aus den PDFs ins JSON kopieren.\n";
    p += "LEERE Felder als LEERER STRING \"\" - NICHT \"leer\", \"k.A.\", \"-\", \"keine\" oder aehnliches.\n";
    p += "Verwende echte deutsche Umlaute (ae->ä, oe->ö, ue->ü, ss->ß) in Freitext-Feldern:\n";
    p += "[\n  {\n";
    p += '  "datei":"exakter Dateiname der zugehoerigen Mail",\n';
    p += wsFieldLines();
    p += "  }\n  /* ... weitere Objekte, eines pro Mail ... */\n]\n";
    return p;
}

function wsParseJson(txt) {
    if (!txt) return null;
    var raw = String(txt);
    // 1. Code-Fences strip + trim
    var s = raw.replace(/^\s+|\s+$/g, "").replace(/^```(?:json)?\s*/i, "").replace(/```\s*$/, "");
    // 2. Smart-Quotes / typografische Anfuehrungszeichen normalisieren (Word/PDF-Copy
    //    spuckt manchmal U+201C/U+201D statt ASCII \"; Apostrophe U+2018/U+2019).
    s = s.replace(/[“”„‟]/g, '"')
         .replace(/[‘’‚‛′‵]/g, "'");
    // 3. Direkt versuchen (eval ist tolerant ggue. single-quotes, etc.)
    var candidates = [s];
    // 4. Nur das aeusserste {...} extrahieren (greedy bis zur letzten })
    var m = s.match(/\{[\s\S]*\}/);
    if (m) candidates.push(m[0]);
    // 5. Trailing-Comma-Cleanup (haeufiger LLM-Fehler: {"a":1,})
    var base = m ? m[0] : s;
    candidates.push(base.replace(/,(\s*[}\]])/g, "$1"));
    // 6. Truncation-Recovery: fehlende } am Ende auffuellen.
    var open = (base.match(/\{/g) || []).length;
    var close = (base.match(/\}/g) || []).length;
    if (open > close) {
        var fixed = base.replace(/,(\s*[}\]])/g, "$1");
        for (var k = 0; k < (open - close); k++) fixed += "}";
        candidates.push(fixed);
    }
    // 7. Harte Truncation (z.B. mitten in einem Key/Value abgeschnitten weil
    //    Token-Limit erreicht): vom Ende rueckwaerts bis zur LETZTEN voll-
    //    staendigen Property scannen und dort sauber schliessen. Tracking:
    //    String-Modus + Escape, Brace-Tiefe. "Safe-Point" = Komma auf depth=1
    //    ausserhalb eines Strings.
    candidates.push(wsParseTruncated(s));
    var b2 = s.indexOf("{");
    if (b2 >= 0) candidates.push(wsParseTruncated(s.substring(b2)));
    for (var i = 0; i < candidates.length; i++) {
        if (!candidates[i]) continue;
        try { return eval("(" + candidates[i] + ")"); } catch(e) {}
    }
    return null;
}

function wsParseTruncated(s) {
    if (!s) return null;
    var depth = 0, inStr = false, esc = false, lastSafe = -1;
    for (var i = 0; i < s.length; i++) {
        var c = s.charAt(i);
        if (esc) { esc = false; continue; }
        if (inStr) {
            if (c === "\\") { esc = true; continue; }
            if (c === '"') inStr = false;
            continue;
        }
        if (c === '"') { inStr = true; continue; }
        if (c === "{") depth++;
        else if (c === "}") depth--;
        else if (c === "," && depth === 1) lastSafe = i;
    }
    if (lastSafe < 0) return null;
    var trimmed = s.substring(0, lastSafe);
    var op = (trimmed.match(/\{/g) || []).length;
    var cl = (trimmed.match(/\}/g) || []).length;
    while (cl < op) { trimmed += "}"; cl++; }
    return trimmed;
}

// Logging-Helper: bei JSON-Parse-Fehlern den Roh-Text anzeigen damit man sieht
// was der LLM ueberhaupt zurueckgegeben hat. Liefert die ersten 250 Zeichen,
// Newlines durch Leerzeichen ersetzt, fuer eine Log-Zeile.
function wsParseSnippet(txt) {
    var s = String(txt || "").replace(/\s+/g, " ").replace(/^\s+|\s+$/g, "");
    if (s.length > 250) s = s.substring(0, 250) + "...";
    return s;
}

function wsBuildNotizHtml(data, lfdNr) {
    var d = data || {};
    var lfd = (lfdNr == null ? "" : String(lfdNr));
    function esc(s) { return String(s == null ? "" : s).replace(/&/g, "&amp;").replace(/</g, "&lt;").replace(/>/g, "&gt;").replace(/"/g, "&quot;"); }
    function clean(v) {
        var s = String(v == null ? "" : v).replace(/^\s+|\s+$/g, "");
        if (/^(leer|-|k\.?\s?a\.?|n\/a|na|none|null|undefined|nicht[ _]pruefbar|keine?)$/i.test(s)) return "";
        return s;
    }
    function rowFn(label, value) {
        return '<tr><td class="lbl">' + esc(label) + '</td><td class="val">' + esc(clean(value) || "-") + '</td></tr>';
    }
    function combine(a, b) { return (clean(a) + " " + clean(b)).replace(/\s+/g, " ").replace(/^\s+|\s+$/g, ""); }
    var isRem = (d.ist_reminder === "ja");
    var mvOk = d.mv_status === "OK";
    var maklerName = combine(d.makler_vorname, d.makler_nachname);
    var kundeName = combine(d.kunde_vorname, d.kunde_nachname) || clean(d.kunde_name);
    var klassBadge = '<span class="badge badge-blue">' + esc(d.klassifikation || "(leer)") + '</span>';
    var remBadge = isRem ? ' <span class="badge badge-amber">Reminder</span>' : "";
    var mvBadge = '<span class="badge ' + (mvOk ? "badge-green" : "badge-red") + '">' + esc(d.mv_status || "-") + '</span>';
    function rowHi(label, value) {
        return '<tr><td class="lbl">' + esc(label) + '</td><td class="val" style="background:#fff7ed;color:#9a3412;font-weight:700;">' + esc(clean(value) || "-") + '</td></tr>';
    }

    var _h = '<!DOCTYPE html><html lang="de"><head><meta charset="UTF-8"><title>KI-Analyse</title>' +
'<style>body{font-family:"Segoe UI",sans-serif;color:#1f2937;background:#fff;margin:0;padding:40px;max-width:900px;}' +
'h1{font-size:22px;color:#111827;margin-bottom:8px;border-bottom:2px solid #e5e7eb;padding-bottom:12px;}' +
'.sub{color:#6b7280;font-size:13px;margin-bottom:24px;}' +
'.badge{display:inline-block;padding:3px 10px;border-radius:4px;font-size:12px;font-weight:600;margin-right:6px;}' +
'.badge-blue{background:#dbeafe;color:#1e40af;}' +
'.badge-amber{background:#fef3c7;color:#92400e;}' +
'.badge-green{background:#dcfce7;color:#15803d;}' +
'.badge-red{background:#fee2e2;color:#b91c1c;}' +
'.sec{color:#fff;font-size:13px;font-weight:700;text-transform:uppercase;letter-spacing:0.05em;padding:7px 12px;border-radius:6px;margin:22px 0 8px;}' +
'table{border-collapse:collapse;width:100%;font-size:13px;margin-bottom:4px;}' +
'td{padding:8px 12px;border-bottom:1px solid #f3f4f6;vertical-align:top;}' +
'td.lbl{color:#6b7280;width:210px;}td.val{color:#1f2937;font-weight:500;}' +
'.box{border-radius:8px;padding:14px 16px;margin:6px 0 4px;font-size:13px;}' +
'.box .bt{display:block;font-size:11px;font-weight:700;margin-bottom:5px;text-transform:uppercase;letter-spacing:0.05em;}' +
'.footer{margin-top:32px;color:#9ca3af;font-size:11px;text-align:center;}</style></head><body>' +
(function(){
  var C = { meta:"#374151", klass:"#c8102e", makler:"#0f766e", kunde:"#1e40af", unter:"#9a3412", mv:"#6d28d9", erg:"#15803d" };
  function sec(t, c) { return '<div class="sec" style="background:' + c + ';">' + t + '</div>'; }
  var html = '';
  html += '<h1>KI-Vorgangs-Analyse' + (lfd ? ' <span style="float:right;font-size:15px;background:#c8102e;color:#fff;padding:4px 12px;border-radius:6px;">Lfd-Nr ' + esc(lfd) + '</span>' : '') + '</h1>';
  html += (lfd ? '<div style="font-size:13px;color:#6b7280;margin-bottom:8px;">Vorgangs-Nr. <strong>' + esc(lfd) + '</strong> &mdash; identisch zur Spalte <strong>Lfd_Nr</strong> in der Excel-Auswertung (Mapping Excel &harr; Vorgang). Farbgruppen wie in der Excel.</div>' : '');
  html += '<div class="sub">' + klassBadge + remBadge + ' &nbsp;Maklervollmacht: ' + mvBadge + '</div>';

  html += sec("Klassifikation &amp; Vorgang", C.klass) + '<table>' +
    rowFn("Vorgangstyp", d.vorgangstyp) +
    rowFn("Klassifikation", d.klassifikation) +
    rowFn("Klassifikation-Grund", d.klassifikation_grund) +
    rowFn("Reminder/Wiedervorlage", isRem ? "ja" : "nein") +
    (isRem ? rowFn("Reminder-Quelle", d.reminder_quelle) : "") +
    (clean(d.nicht_neuer_vorgang_grund) ? rowFn("Kein neuer Vorgang weil", d.nicht_neuer_vorgang_grund) : "") +
    '</table>';

  html += sec("Makler", C.makler) + '<table>' +
    rowFn("Maklerpool", d.maklerpool) +
    rowFn("Makler (Name)", maklerName) +
    rowHi("Agentur-Nummer", d.agentur_nummer) +
    rowHi("Vermittler-Nummer", d.vermittler_nummer) +
    rowFn("Auftrag-Datum", d.auftrag_datum) +
    rowFn("Makler namentlich genannt", d.makler_namentlich_genannt) +
    '</table>';

  html += sec("Kunde &amp; Vertrag", C.kunde) + '<table>' +
    rowFn("Kunde (Name)", kundeName) +
    rowFn("Kunden-/Partnernummer", d.kunde_nummer) +
    rowFn("Versicherungsnummer", d.versicherungsnummer) +
    rowFn("Sparte", d.sparte) +
    rowFn("Geschäfts-Typ", d.geschaefts_typ) +
    rowFn("Sonderfall", d.sonderfall) +
    '</table>';

  html += sec("Unterlagen &amp; Anhang", C.unter) + '<table>' +
    rowFn("Anhang-Typen", d.anhang_typen) +
    rowFn("PDF-Qualität", d.pdf_qualitaet) +
    rowFn("Unterlagen angefragt", d.unterlagen_angefragt) +
    (clean(d.unterlagen_liste) ? rowFn("Fehlende Unterlagen", d.unterlagen_liste) : "") +
    '</table>';

  html += sec("Maklervollmacht", C.mv) + '<table>' +
    rowFn("Maklervollmacht enthalten", d.enthaelt_maklervollmacht) +
    rowFn("MV-Status", d.mv_status) +
    rowFn("MV vollumfänglich", d.mv_vollumfaenglich) +
    (clean(d.mv_einschraenkungen) ? rowFn("MV-Einschränkungen", d.mv_einschraenkungen) : "") +
    rowFn("Unterschrift Kunde", d.unterschrift_kunde) +
    rowFn("Unterschrift Makler", d.unterschrift_makler) +
    rowFn("Auf VN ausgestellt", d.auf_vn_ausgestellt) +
    '</table>';

  html += sec("Ergebnis", C.erg);
  html += '<div class="box" style="background:#f0fdf4;border:1px solid #bbf7d0;color:#14532d;"><span class="bt" style="color:#15803d;">Zusammenfassung</span>' + esc(d.zusammenfassung || "-") + '</div>';
  html += (clean(d.hinweis) ? '<div class="box" style="background:#fffbeb;border:1px solid #fde68a;color:#92400e;"><span class="bt" style="color:#d97706;">Hinweis</span>' + esc(clean(d.hinweis)) + '</div>' : "");

  html += '<div class="footer">Erstellt durch ERGO Vorgang-Analyse Workshop &middot; ' + new Date().toLocaleString() + '</div>';
  return html;
})() +
'</body></html>';
    // Alle Nicht-ASCII-Zeichen (Umlaute ae oe ue ss etc.) als numerische HTML-Entities -
    // dann ist die Darstellung in Outlook unabhaengig von der Charset-Interpretation korrekt.
    return _h.replace(new RegExp('[\\u0080-\\uFFFF]','g'), function(ch){ return '&#' + ch.charCodeAt(0) + ';'; });
}

function wsWriteNotizFile(html, basename) {
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var shell = new ActiveXObject("WScript.Shell");
    var tmp = shell.ExpandEnvironmentStrings("%TEMP%") + "\\ergo_notiz_" + new Date().getTime() + "_" + Math.floor(Math.random()*10000) + ".html";
    try {
        var stm = new ActiveXObject("ADODB.Stream");
        stm.Type = 2; stm.Charset = "utf-8"; stm.Open();
        stm.WriteText(html);
        stm.SaveToFile(tmp, 2);
        stm.Close();
    } catch(e) {
        var f = fso.CreateTextFile(tmp, true, false);
        f.Write(html); f.Close();
    }
    var finalName = "KI-Analyse_" + basename + ".html";
    var finalPath = tmp.substr(0, tmp.lastIndexOf("\\")) + "\\" + finalName;
    try { if (fso.FileExists(finalPath)) fso.DeleteFile(finalPath, true); } catch(e) {}
    try { fso.MoveFile(tmp, finalPath); } catch(e) { finalPath = tmp; }
    return finalPath;
}

// Sync ergoGPT-Antwort (Workshop-Modus, einzeln pro Mail)
function wsSendAnswerSync(convId, prompt, docIdsJson) {
    var http = new ActiveXObject("WinHttp.WinHttpRequest.5.1");
    try { http.SetTimeouts(30000, 30000, 60000, 300000); } catch(e) {}
    http.Open("PUT", ERGO_BASE + "/conversation/" + convId, false);  // sync
    try { http.SetProxy(0); } catch(e) {}
    setWinHttpHeaders(http);
    http.SetRequestHeader("Content-Type", "application/json;charset=UTF-8");
    http.SetRequestHeader("Accept", "*/*");
    var payload = buildPayload(cleanForJson(prompt), docIdsJson || "[]");
    var bodyBytes = stringToUtf8Bytes(payload);
    if (bodyBytes) http.Send(bodyBytes); else http.Send(payload);
    return String(http.ResponseText);
}

// Bereitet einen Slot vor: oeffnet Mail, liest Properties + extrahiert PDFs,
// baut Prompt, feuert createConversationAsyncFire (ASYNC), schliesst Mail.
// Returns slot-Objekt mit stage="CREATING_CONV".
// Zustellfehler-Heuristik (NDR / Non-Delivery-Report): erkennt automatische
// Unzustellbarkeits-Meldungen des Mailservers VOR dem LLM-Aufruf. Spart API-
// Token UND verhindert JSON-Parse-Fehler durch eingebettete MIME-Header /
// .eml-Bodies, die das Modell verwirren oder die Antwort am Token-Limit
// abschneiden.
function wsIsBounceMail(slot, body) {
    var m = String(slot.absMail || "").toLowerCase();
    var n = String(slot.absName || "").toLowerCase();
    var b = String(slot.betreff || "").toLowerCase();
    var bd = String(body || "").toLowerCase();
    var anh = String(slot.anhangAlle || "").toLowerCase();
    var senderRx = /(postmaster|mailer[-_]?daemon|noreply|noresponse|no[-_]reply|itergo[-_]?security)@/i;
    if (senderRx.test(m) || senderRx.test(n)) return true;
    var subjRx = /(nicht\s*zustellbar|unzustellbar|delivery\s*(failure|status\s*notification)|undelivered\s*mail|returned\s*mail|mail\s*delivery\s*system|failure\s*notice|message\s*could\s*not\s*be\s*delivered|nachricht\s*nicht\s*zugestellt)/i;
    if (subjRx.test(b)) return true;
    if (anh.indexOf(".eml") >= 0 && /(zustell|delivery|user\s*unknown|550\s*5\.|recipient\s*address\s*rejected|automatisch\s*generierte\s*nachricht|dies\s*ist\s*eine\s*automatisch)/i.test(bd)) return true;
    return false;
}

function wsSyntheticBounceData(slot) {
    return {
        vorgangstyp: "Zustellfehler",
        ist_reminder: "nein", reminder_quelle: "", nicht_neuer_vorgang_grund: "",
        klassifikation: "Kein-Makler-Vorgang",
        klassifikation_grund: "Zustellfehler/Unzustellbarkeitsbericht - automatisch erkannt anhand Absender/Betreff/Body, kein LLM-Aufruf",
        maklerpool: "", makler_nachname: "", makler_vorname: "",
        agentur_nummer: "", vermittler_nummer: "", auftrag_datum: "",
        kunde_nachname: "", kunde_vorname: "", kunde_nummer: "",
        versicherungsnummer: "", sparte: "",
        geschaefts_typ: "Keine BUe",
        unterlagen_angefragt: "nein", unterlagen_liste: "",
        sonderfall: "Kein Sonderfall",
        anhang_typen: "Sonstiges", pdf_qualitaet: "Keine_PDFs",
        enthaelt_maklervollmacht: "nein", mv_vollumfaenglich: "nicht_pruefbar",
        mv_einschraenkungen: "", mv_status: "kein Anhang",
        unterschrift_kunde: "nicht_pruefbar", unterschrift_makler: "nicht_pruefbar",
        auf_vn_ausgestellt: "nicht_pruefbar", makler_namentlich_genannt: "nein",
        zusammenfassung: "Unzustellbarkeitsbericht (Mail nicht zugestellt): " + (slot.betreff || ""),
        naechster_schritt: "Zustellfehler-Meldung - keine Aktion noetig.",
        hinweis: "Automatisch als Zustellfehler erkannt, KEIN LLM-Aufruf (spart Token + vermeidet JSON-Parse-Fehler durch MIME-Header in .eml-Anhang)."
    };
}

function wsPrepareSlot(msgPath) {
    var fileName = msgPath.substr(msgPath.lastIndexOf("\\") + 1);
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var shell = new ActiveXObject("WScript.Shell");
    var mail = null;
    var slot = { msgPath: msgPath, fileName: fileName, stage: "PREP", error: null,
                 pdfPaths: [], docIds: [], uploadHandles: [] };
    try {
        mail = outlookApp.Session.OpenSharedItem(msgPath);
        slot.datum = ""; slot.absName = ""; slot.absMail = "";
        slot.betreff = ""; slot.anhangAlle = "";
        var body = "";
        try {
            var dt = new Date(mail.ReceivedTime);
            slot.datum = pad(dt.getDate()) + "." + pad(dt.getMonth()+1) + "." + dt.getFullYear();
        } catch(e) {}
        try { slot.absName = String(mail.SenderName || ""); } catch(e) {}
        try { slot.absMail = getSenderEmail(mail); } catch(e) {}
        try { slot.betreff = String(mail.Subject || ""); } catch(e) {}
        try { body = String(mail.Body || ""); } catch(e) {}
        if (body.length > 12000) body = body.substr(0, 12000) + "...[gekuerzt]";

        var attCount = 0;
        try { attCount = mail.Attachments.Count; } catch(e) {}
        var tempDir = shell.ExpandEnvironmentStrings("%TEMP%") + "\\ergo_ws_" + new Date().getTime() + "_" + Math.floor(Math.random()*100000);
        try { if (!fso.FolderExists(tempDir)) fso.CreateFolder(tempDir); } catch(e) {}
        slot.tempDir = tempDir;
        var pdfListe = "";
        for (var a = 1; a <= attCount; a++) {
            try {
                var att = mail.Attachments.Item(a);
                var fn = String(att.FileName || "");
                if (fn.length === 0) continue;
                slot.anhangAlle += (slot.anhangAlle ? "; " : "") + fn;
                if (fn.toLowerCase().substr(-4) === ".pdf" && slot.pdfPaths.length < 20) {
                    var safe = sanitizeFilename(fn);
                    var outPath = tempDir + "\\" + safe;
                    att.SaveAsFile(outPath);
                    if (fso.FileExists(outPath)) {
                        slot.pdfPaths.push({ path: outPath, name: fn });
                        pdfListe += (pdfListe ? "; " : "") + fn;
                    }
                }
            } catch(eAtt) {}
        }
        try { mail.Close(1); } catch(e) {}
        mail = null;

        // Vor LLM-Aufruf: ist das eine Zustellfehler-Meldung (Bounce/NDR)? Dann
        // synthetisch klassifizieren und Conversation gar nicht erst aufmachen.
        // Spart Token, vermeidet JSON-Parse-Fehler durch eingebettete .eml-MIME-
        // Header, die das Modell verwirren oder die Antwort truncaten lassen.
        if (wsIsBounceMail(slot, body)) {
            slot.data = wsSyntheticBounceData(slot);
            slot.isReminder = false;
            slot.klassifikation = slot.data.klassifikation;
            slot.summary = slot.data.zusammenfassung;
            slot.stage = "DONE";
            try { wsLog("   Zustellfehler erkannt - kein LLM-Aufruf: " + slot.fileName, "muted"); } catch(eLb) {}
            return slot;
        }

        slot.prompt = wsBuildPrompt(slot.datum, slot.absName, slot.absMail,
                                    slot.betreff, body, slot.anhangAlle, pdfListe);
        // ASYNC Conversation-Create feuern
        slot.convHttp = createConversationAsyncFire(slot.prompt);
        slot.stage = "CREATING_CONV";
        return slot;
    } catch(ePrep) {
        try { if (mail) mail.Close(1); } catch(e) {}
        slot.stage = "ERROR";
        slot.error = "Prep: " + (ePrep.message || "unbekannt");
        return slot;
    }
}

// Parallele Slot-Pipeline. Alle Mails gleichzeitig in Bearbeitung.
// Stages: CREATING_CONV -> UPLOADING -> READY -> RUNNING -> DONE / ERROR
function wsRunDemo() { wsStartParallel(null); }

function wsStartParallel(onDone) {
    if (state._wsRunning) return;
    if (state._wsMsgFiles.length === 0) return wsShowError("Keine Mails im Ordner");
    if (state.cookie.length < 50) return wsShowError("Cookie fehlt");
    if (!outlookApp) return wsShowError("Outlook nicht verbunden");

    state._wsRunning = true;
    state._wsOnDone = onDone || null;
    document.getElementById("wsPlay").disabled = true;
    document.getElementById("wsPick").disabled = true;
    var _olBtn1 = document.getElementById("wsPickOutlook"); if (_olBtn1) _olBtn1.disabled = true;
    document.getElementById("wsClose").disabled = true;
    document.getElementById("wsProgressWrap").style.display = "block";
    if (!onDone) document.getElementById("wsLog").innerText = "";
    wsProgress(0, state._wsMsgFiles.length);
    wsShowInfo("Bereite " + state._wsMsgFiles.length + " Mails vor und analysiere ALLE parallel...");

    // Phase 1 (v2.11): Prep-Loop in setTimeout-Ticks zerlegt - EINE Mail pro Tick.
    // Vorher synchron in einer Schleife = HTA fror waehrend Outlook-OpenSharedItem +
    // Anhang-SaveAsFile + Conv-Create-Fire fuer alle Mails am Stueck ein (bei 30
    // Mails ~20-40 s ohne Log-Update). Jetzt: ein Slot pro Tick, dazwischen yieldet
    // mshta -> Log/Progress/Buttons bleiben live, Fenster bleibt klickbar.
    var total = state._wsMsgFiles.length;
    var slots = [];
    state._wsSlots = slots;
    var idx = 0;
    function wsPrepTick() {
        if (idx >= total) {
            wsLog("");
            wsLog("Alle " + slots.length + " Conversations gestartet - analysiere parallel...");
            setTimeout(wsTick, 200);
            return;
        }
        var mp = state._wsMsgFiles[idx];
        wsLog("[" + (idx+1) + "/" + total + "] Vorbereiten: " + mp.substr(mp.lastIndexOf("\\")+1));
        var s = wsPrepareSlot(mp);
        slots.push(s);
        if (s.stage === "ERROR") wsLog("   PREP-FEHLER: " + s.error, "err");
        idx++;
        setTimeout(wsPrepTick, 5);
    }
    setTimeout(wsPrepTick, 50);
}

function wsTick() {
    var slots = state._wsSlots || [];
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var doneCount = 0;

    for (var i = 0; i < slots.length; i++) {
        var s = slots[i];
        if (s.stage === "DONE" || s.stage === "ERROR") { doneCount++; continue; }

        try {
            if (s.stage === "CREATING_CONV") {
                var cd = false;
                try { cd = s.convHttp.WaitForResponse(0); } catch(eW) {
                    // Send-Race - kurz weiterversuchen
                    if (!s._convRetry) s._convRetry = 0;
                    s._convRetry++;
                    if (s._convRetry > 10) { s.stage = "ERROR"; s.error = "Conv-Wait: " + eW.message; }
                    continue;
                }
                if (!cd) continue;
                var cstatus = 0, cresp = "";
                try { cstatus = s.convHttp.Status; } catch(e) {}
                try { cresp = s.convHttp.ResponseText; } catch(e) {}
                if (cstatus !== 200) { s.stage = "ERROR"; s.error = "Conv HTTP " + cstatus; continue; }
                s.convId = parseJsonStr(cresp, "id");
                if (!s.convId) { s.stage = "ERROR"; s.error = "keine conversation_id"; continue; }
                // PDF-Uploads feuern (fire-and-forget VBS)
                if (s.pdfPaths.length > 0) {
                    for (var pi = 0; pi < s.pdfPaths.length; pi++) {
                        try {
                            s.uploadHandles.push(uploadPdfStartAsync(s.convId, s.pdfPaths[pi].path, s.pdfPaths[pi].name));
                        } catch(eU) {}
                    }
                    s.uploadStart = new Date().getTime();
                    s.stage = "UPLOADING";
                } else {
                    s.docIdsJson = "[]";
                    s.stage = "READY";
                }
            }

            if (s.stage === "UPLOADING") {
                var allUp = true;
                for (var ui = 0; ui < s.uploadHandles.length; ui++) {
                    if (!fso.FileExists(s.uploadHandles[ui].resultPath)) { allUp = false; break; }
                }
                var elapsed = new Date().getTime() - (s.uploadStart || 0);
                if (!allUp && elapsed < 90000) continue;   // weiter warten (max 90s)
                // Result-Files lesen
                for (var ri = 0; ri < s.uploadHandles.length; ri++) {
                    try {
                        uploadPdfReadResult(s.uploadHandles[ri]);
                        if (s.uploadHandles[ri].docId) s.docIds.push(s.uploadHandles[ri].docId);
                    } catch(e) {}
                }
                s.docIdsJson = s.docIds.length > 0 ? '["' + s.docIds.join('","') + '"]' : "[]";
                s.stage = "READY";
            }

            if (s.stage === "READY") {
                s.answerHttp = startAnswerAsync(s.convId, s.prompt, s.docIdsJson);
                s.answerStart = new Date().getTime();
                s.stage = "RUNNING";
            }

            if (s.stage === "RUNNING") {
                var ad = false;
                try { ad = s.answerHttp.WaitForResponse(0); } catch(eA) {
                    if (!s._ansRetry) s._ansRetry = 0;
                    s._ansRetry++;
                    if (s._ansRetry > 10) { s.stage = "ERROR"; s.error = "Answer-Wait: " + eA.message; }
                    continue;
                }
                if (!ad) continue;
                var aresp = "";
                // UTF-8-Decode der Roh-Bytes - sonst werden Umlaute (ae oe ue ss)
                // zu Mojibake weil WinHttp.ResponseText oft Latin-1 annimmt.
                try {
                    var rb = s.answerHttp.ResponseBody;
                    var rs = new ActiveXObject("ADODB.Stream");
                    rs.Type = 1; rs.Open();
                    rs.Write(rb);
                    rs.Position = 0;
                    rs.Type = 2; rs.Charset = "utf-8";
                    aresp = String(rs.ReadText());
                    rs.Close();
                } catch(eRb) {
                    try { aresp = s.answerHttp.ResponseText; } catch(e) {}
                }
                var _rawAnswer = jsonUnescape(extractAssistantFromNdjson(aresp)).replace(/\\n/g, "\n");
                var data = wsParseJson(_rawAnswer);
                if (!data) {
                    s.stage = "ERROR";
                    s.error = "JSON nicht parsebar - LLM-Antwort: " + wsParseSnippet(_rawAnswer);
                    continue;
                }
                s.data = data;
                s.isReminder = data.ist_reminder === "ja";
                s.klassifikation = data.klassifikation || "";
                s.summary = (data.zusammenfassung || "").substr(0, 200);
                // Cleanup temp-pdfs
                try {
                    for (var ci = 0; ci < s.pdfPaths.length; ci++) {
                        try { fso.DeleteFile(s.pdfPaths[ci].path, true); } catch(e) {}
                    }
                    if (s.tempDir && fso.FolderExists(s.tempDir)) fso.DeleteFolder(s.tempDir, true);
                } catch(e) {}
                try { fireDelete(s.convId); } catch(e) {}
                s.stage = "DONE";
                // Fortschritt: aktuell fertige (DONE+ERROR) / gesamt im Log mitloggen
                var _wsTotal = slots.length, _wsDone = 0;
                for (var _wj = 0; _wj < slots.length; _wj++) {
                    if (slots[_wj].stage === "DONE" || slots[_wj].stage === "ERROR") _wsDone++;
                }
                wsLog("   FERTIG (" + _wsDone + "/" + _wsTotal + "): " + s.fileName + " -> " +
                      (s.isReminder ? "[Reminder] " : "") + (s.klassifikation || "?"));
            }
        } catch(eTick) {
            s.stage = "ERROR";
            s.error = "Tick: " + (eTick.message || "?");
        }
    }

    wsProgress(doneCount, slots.length);

    if (doneCount >= slots.length) {
        var processed = [];
        var failed = [];
        for (var k = 0; k < slots.length; k++) {
            if (slots[k].stage === "DONE") {
                processed.push({
                    msgPath: slots[k].msgPath,
                    fileName: slots[k].fileName,
                    datum: slots[k].datum,
                    absName: slots[k].absName,
                    absMail: slots[k].absMail,
                    betreff: slots[k].betreff,
                    anhangAlle: slots[k].anhangAlle,
                    data: slots[k].data,
                    isReminder: slots[k].isReminder,
                    klassifikation: slots[k].klassifikation,
                    summary: slots[k].summary
                });
            } else if (slots[k].stage === "ERROR") {
                wsLog("   FEHLER " + slots[k].fileName + ": " + slots[k].error);
                failed.push({ msgPath: slots[k].msgPath, fileName: slots[k].fileName, error: slots[k].error });
            }
        }
        state._wsFailedSlots = failed;
        if (state._wsOnDone) {
            var cb = state._wsOnDone; state._wsOnDone = null;
            cb(processed);
        } else {
            wsFinishDemo(processed);
        }
        return;
    }
    setTimeout(wsTick, 400);
}

function wsFinishDemo(processed) {
    state._wsRunning = false;
    document.getElementById("wsPlay").disabled = state._wsMsgFiles.length === 0;
    document.getElementById("wsPick").disabled = false;
    var _olBtn2 = document.getElementById("wsPickOutlook"); if (_olBtn2) _olBtn2.disabled = false;
    document.getElementById("wsClose").disabled = false;
    wsProgress(state._wsMsgFiles.length, state._wsMsgFiles.length);

    if (processed.length === 0) {
        wsShowError("Keine Mail konnte analysiert werden. Siehe Log.");
        return;
    }

    // Angleicher: gleiche Maklerpool-/Maklerfirma-Schreibungen vereinheitlichen
    // (z.B. "Finanzguru Versicherungsservice GmbH" -> "Finanzguru"), damit
    // Cluster-Match nicht an Tippvarianten scheitert.
    wsCanonicalizeNames(processed);

    // Vorgaenge zu Clustern gruppieren (gleicher Makler + Kunde -> Cluster mit
    // ID 001a/001b/... + gemeinsamer Pastell-Farbe). Aendert die Reihenfolge in
    // processed[] - dadurch landen Cluster-Mitglieder direkt untereinander im
    // Excel UND in der .msg-Ausgabe.
    processed = wsAssignClusters(processed);

    wsShowInfo("<strong>" + processed.length + " von " + state._wsMsgFiles.length +
               "</strong> Mails analysiert. Excel wird erstellt und jeder Vorgang als .msg gespeichert...");
    wsLog("");

    setTimeout(function() {
        // ---- 0. Zielordner bestimmen (Excel + Vorgaenge landen GEMEINSAM hier) ----
        var fsoS = null, shellS = null;
        try { fsoS = new ActiveXObject("Scripting.FileSystemObject"); shellS = new ActiveXObject("WScript.Shell"); } catch(eF) {}
        var dt = new Date();
        function p2(n){ n = String(n); return n.length < 2 ? "0" + n : n; }
        var stamp = String(dt.getFullYear()) + p2(dt.getMonth()+1) + p2(dt.getDate()) + "_" +
                    p2(dt.getHours()) + p2(dt.getMinutes()) + p2(dt.getSeconds());
        var outDir = "";
        try {
            if (fsoS && state._wsFolder) {
                outDir = state._wsFolder.replace(/\\+$/, "") + "\\_KI-Vorgaenge";
                if (!fsoS.FolderExists(outDir)) fsoS.CreateFolder(outDir);
            }
        } catch(eDir) { outDir = ""; }
        if (!outDir) {
            try {
                outDir = shellS.ExpandEnvironmentStrings("%TEMP%") + "\\ERGO-KI-Vorgaenge";
                if (!fsoS.FolderExists(outDir)) fsoS.CreateFolder(outDir);
            } catch(eDir2) { outDir = shellS.ExpandEnvironmentStrings("%TEMP%"); }
        }
        wsLog("Zielordner (Excel + Vorgänge): " + outDir);

        // ---- 1. EXCEL erzeugen (laeuft im Excel-Prozess, keine HTA-Zonen-Sperre) ----
        wsLog("Erstelle Excel mit " + processed.length + " Zeilen...");
        var excel = null;
        try {
            excel = new ActiveXObject("Excel.Application");
            excel.Visible = true;
            excel.DisplayAlerts = false;
            var wb = excel.Workbooks.Add();
            var sh = wb.ActiveSheet;
            try { sh.Name = "Workshop-Demo"; } catch(e) {}
            // Spalten-Definition: gleiche Felder wie das grosse Tool.
            // w = Spaltenbreite, wrap = Zeilenumbruch fuer lange Freitexte.
            // g = Spaltengruppe (Header-Farbe). Gruppiert: Meta / Klassifikation /
            // Makler / Kunde+Vertrag / Unterlagen+Anhang / Maklervollmacht / Ergebnis
            var colDefs = [
                { h:"Lfd_Nr",              g:"meta",  w:13, wrap:false, v:function(r,d,i){ return wsLfdNr(i); } },
                { h:"Cluster_ID",          g:"meta",  w:11, wrap:false, v:function(r,d){ return cellSafe(r._clusterId || ""); } },
                { h:"Datei",               g:"meta",  w:34, wrap:false, v:function(r,d){ return cellSafe(r.fileName); } },
                { h:"Mail_Datum",          g:"meta",  w:14, wrap:false, v:function(r,d){ return cellSafe(r.datum); } },
                { h:"Absender",            g:"meta",  w:28, wrap:false, v:function(r,d){ return cellSafe(r.absName + " <" + r.absMail + ">"); } },
                { h:"Betreff",             g:"meta",  w:40, wrap:true,  v:function(r,d){ return cellSafe(r.betreff); } },
                { h:"Anhaenge",            g:"meta",  w:30, wrap:true,  v:function(r,d){ return cellSafe(r.anhangAlle); } },
                { h:"Vorgangstyp",         g:"klass", w:16, wrap:false, v:function(r,d){ return cellSafe(d.vorgangstyp); } },
                { h:"Klassifikation",      g:"klass", w:18, wrap:false, v:function(r,d){ return cellSafe(d.klassifikation); } },
                { h:"Klassifikation_Grund",g:"klass", w:45, wrap:true,  v:function(r,d){ return cellSafe(d.klassifikation_grund); } },
                { h:"Ist_Reminder",        g:"klass", w:11, wrap:false, v:function(r,d){ return cellSafe(d.ist_reminder); } },
                { h:"Reminder_Quelle",     g:"klass", w:20, wrap:false, v:function(r,d){ return cellSafe(d.reminder_quelle); } },
                { h:"Nicht_Neu_Grund",     g:"klass", w:35, wrap:true,  v:function(r,d){ return cellSafe(d.nicht_neuer_vorgang_grund); } },
                { h:"Maklerpool",          g:"makler",w:28, wrap:false, v:function(r,d){ return cellSafe(d.maklerpool); } },
                { h:"Makler_Nachname",     g:"makler",w:18, wrap:false, v:function(r,d){ return cellSafe(d.makler_nachname); } },
                { h:"Makler_Vorname",      g:"makler",w:16, wrap:false, v:function(r,d){ return cellSafe(d.makler_vorname); } },
                { h:"Agentur_Nummer",      g:"makler",w:14, wrap:false, v:function(r,d){ return cellSafe(d.agentur_nummer); } },
                { h:"Vermittler_Nummer",   g:"makler",w:14, wrap:false, v:function(r,d){ return cellSafe(d.vermittler_nummer); } },
                { h:"Auftrag_Datum",       g:"makler",w:14, wrap:false, v:function(r,d){ return cellSafe(d.auftrag_datum); } },
                { h:"Makler_Namentlich",   g:"makler",w:13, wrap:false, v:function(r,d){ return cellSafe(d.makler_namentlich_genannt); } },
                { h:"Kunde_Nachname",      g:"kunde", w:18, wrap:false, v:function(r,d){ return cellSafe(d.kunde_nachname); } },
                { h:"Kunde_Vorname",       g:"kunde", w:16, wrap:false, v:function(r,d){ return cellSafe(d.kunde_vorname); } },
                { h:"Kunde_Nummer",        g:"kunde", w:16, wrap:false, v:function(r,d){ return cellSafe(d.kunde_nummer); } },
                { h:"Versicherungsnummer", g:"kunde", w:18, wrap:false, v:function(r,d){ return cellSafe(d.versicherungsnummer); } },
                { h:"Sparte",              g:"kunde", w:12, wrap:false, v:function(r,d){ return cellSafe(d.sparte); } },
                { h:"Geschaefts_Typ",      g:"kunde", w:20, wrap:false, v:function(r,d){ return cellSafe(d.geschaefts_typ); } },
                { h:"Unterlagen_Angefragt",g:"unter", w:13, wrap:false, v:function(r,d){ return cellSafe(d.unterlagen_angefragt); } },
                { h:"Unterlagen_Liste",    g:"unter", w:35, wrap:true,  v:function(r,d){ return cellSafe(d.unterlagen_liste); } },
                { h:"Sonderfall",          g:"unter", w:16, wrap:false, v:function(r,d){ return cellSafe(d.sonderfall); } },
                { h:"Anhang_Typen",        g:"unter", w:28, wrap:true,  v:function(r,d){ return cellSafe(d.anhang_typen); } },
                { h:"PDF_Qualitaet",       g:"unter", w:13, wrap:false, v:function(r,d){ return cellSafe(d.pdf_qualitaet); } },
                { h:"Enthaelt_MV",         g:"mv",    w:11, wrap:false, v:function(r,d){ return cellSafe(d.enthaelt_maklervollmacht); } },
                { h:"MV_Datum",            g:"mv",    w:14, wrap:false, v:function(r,d){ return cellSafe(d.mv_datum); } },
                { h:"MV_Vollumfaenglich",  g:"mv",    w:13, wrap:false, v:function(r,d){ return cellSafe(d.mv_vollumfaenglich); } },
                { h:"MV_Einschraenkungen", g:"mv",    w:35, wrap:true,  v:function(r,d){ return cellSafe(d.mv_einschraenkungen); } },
                { h:"MV_Status",           g:"mv",    w:16, wrap:false, v:function(r,d){ return cellSafe(d.mv_status); } },
                { h:"Unterschrift_Kunde",  g:"mv",    w:13, wrap:false, v:function(r,d){ return cellSafe(d.unterschrift_kunde); } },
                { h:"Unterschrift_Makler", g:"mv",    w:13, wrap:false, v:function(r,d){ return cellSafe(d.unterschrift_makler); } },
                { h:"Auf_VN_Ausgestellt",  g:"mv",    w:13, wrap:false, v:function(r,d){ return cellSafe(d.auf_vn_ausgestellt); } },
                { h:"Zusammenfassung",     g:"erg",   w:55, wrap:true,  v:function(r,d){ return cellSafe(d.zusammenfassung); } },
                { h:"Hinweis",             g:"erg",   w:40, wrap:true,  v:function(r,d){ return cellSafe(d.hinweis); } }
            ];
            var grpColor = {
                meta:   rgb(55,65,81),    // Schiefer
                klass:  rgb(200,16,46),   // ERGO-Rot
                makler: rgb(15,118,110),  // Petrol
                kunde:  rgb(30,64,175),   // Blau
                unter:  rgb(154,52,18),   // Braun
                mv:     rgb(109,40,217),  // Violett
                erg:    rgb(21,128,61)    // Gruen
            };
            var nCols = colDefs.length;
            // Open Sans als Schriftart fuer das gesamte Sheet (Header + Daten).
            // Faellt auf Calibri zurueck, wenn Open Sans nicht installiert ist.
            try { sh.Cells.Font.Name = "Open Sans"; } catch(eFnt) {}
            // Header OHNE Unterstrich anzeigen (z.B. "Lfd Nr", "Makler Nachname")
            var heads = [];
            for (var c = 0; c < nCols; c++) {
                heads[c] = String(colDefs[c].h).replace(/_/g, " ");
                sh.Cells(1, c+1).Value = heads[c];
            }
            try {
                var hr = sh.Range(sh.Cells(1,1), sh.Cells(1, nCols));
                hr.Font.Bold = true;
                hr.Font.Color = rgb(255,255,255);
                hr.HorizontalAlignment = -4131; // xlLeft
                hr.VerticalAlignment = -4160;   // xlTop
                hr.WrapText = false;            // Header IMMER einzeilig
                for (var hc = 0; hc < nCols; hc++) {
                    try { sh.Cells(1, hc+1).Interior.Color = grpColor[colDefs[hc].g] || rgb(55,65,81); } catch(eHc) {}
                }
            } catch(e) {}
            // Nummern-Spalten als TEXT formatieren, BEVOR Werte geschrieben werden -
            // sonst macht Excel aus "96877374.7" -> 96877374,7 (deutsche Locale)
            // und aus langen Vertragsnummern E+17.
            try {
                var textCols = { "Agentur_Nummer":1, "Vermittler_Nummer":1, "Kunde_Nummer":1,
                                 "Versicherungsnummer":1, "Maklernummer":1, "Cluster_ID":1, "Lfd_Nr":1,
                                 "Mail_Datum":1, "Auftrag_Datum":1, "MV_Datum":1 };
                for (var tc = 0; tc < nCols; tc++) {
                    if (textCols[colDefs[tc].h]) {
                        try { sh.Columns(tc+1).NumberFormat = "@"; } catch(eTc) {}
                    }
                }
            } catch(eTcAll) {}
            for (var i = 0; i < processed.length; i++) {
                var r = processed[i];
                var d = r.data || {};
                var row = i + 2;
                for (var c = 0; c < nCols; c++) {
                    try { sh.Cells(row, c+1).Value = colDefs[c].v(r, d, i); } catch(eCell) {}
                }
                // Cluster-Pastell (gleicher Makler+Kunde) zuerst, Reminder-Orange
                // gewinnt darueber.
                if (r._clusterColor) {
                    try {
                        sh.Range(sh.Cells(row,1), sh.Cells(row, nCols)).Interior.Color =
                            rgb(r._clusterColor[0], r._clusterColor[1], r._clusterColor[2]);
                    } catch(eCl) {}
                }
                if (d.ist_reminder === "ja") {
                    try { sh.Range(sh.Cells(row,1), sh.Cells(row, nCols)).Interior.Color = rgb(254,215,170); } catch(e) {}
                }
            }
            try {
                // Spaltenbreite: mind. so breit, dass die Ueberschrift in EINER
                // Zeile passt (Header-Laenge + Puffer), sonst Vorgabebreite.
                for (var c = 0; c < nCols; c++) {
                    var wNeed = heads[c].length + 3;
                    sh.Columns(c+1).ColumnWidth = (colDefs[c].w > wNeed ? colDefs[c].w : wNeed);
                }
                // Datenzeilen: Umlauf + links/oben (kein Ueberlauf). Header bleibt einzeilig.
                if (processed.length > 0) {
                    var dataRng = sh.Range(sh.Cells(2,1), sh.Cells(processed.length+1, nCols));
                    dataRng.WrapText = true;
                    dataRng.VerticalAlignment = -4160;   // xlTop
                    dataRng.HorizontalAlignment = -4131; // xlLeft
                }
                sh.Range(sh.Cells(1,1), sh.Cells(processed.length+1, nCols)).AutoFilter();
                try { sh.Rows(1).AutoFit(); } catch(eAh) {}
                if (processed.length > 0) { try { sh.Rows("2:" + (processed.length + 1)).AutoFit(); } catch(eAf) {} }
                // Freeze auf B2: Zeile 1 (Header) + Spalte A (Lfd_Nr) bleiben immer
                // sichtbar beim Scrollen. Robust per Activate + Select.
                try {
                    try { wb.Activate(); } catch(eWa) {}
                    try { sh.Activate(); } catch(eSa) {}
                    try { excel.ActiveWindow.FreezePanes = false; } catch(eFr0) {}
                    try { excel.ActiveWindow.SplitColumn = 0; } catch(eFr1) {}
                    try { excel.ActiveWindow.SplitRow = 0; } catch(eFr2) {}
                    try { sh.Range("B2").Select(); } catch(eSel) {}
                    try { excel.ActiveWindow.FreezePanes = true; } catch(eFr3) {}
                } catch(eFr) {}
            } catch(e) {}
            // Excel direkt in den Vorgangs-Ordner speichern (gleicher Ordner wie .msg)
            try {
                var xlsxPath = outDir.replace(/\\+$/, "") + "\\KI-Auswertung_" + stamp + ".xlsx";
                wb.SaveAs(xlsxPath, 51);   // 51 = xlOpenXMLWorkbook (.xlsx)
                wsLog("   Excel gespeichert: " + xlsxPath);
            } catch(eSv) {
                wsLog("   Excel-SaveAs fehlgeschlagen: " + (eSv.message || eSv) + " (Tabelle bleibt offen)");
            }
            wsLog("   Excel mit " + processed.length + " Zeilen erstellt + sichtbar.");
        } catch(eX) {
            wsLog("   Excel-Fehler: " + eX.message);
        }

        // ---- 2. ORIGINAL-Mail ist fuehrend, KI-Notiz wird als PDF EINGEBETTET ----
        // Die gespeicherte .msg IST die Original-Mail (Betreff/Absender/Body/
        // Original-Anhaenge bleiben). Vorgehen:
        //   - Original via Session.OpenSharedItem(.msg) oeffnen (losgeloeste
        //     Kopie aus der Datei, NICHT das Postfach-Item)
        //   - KI-Notiz: ASCII-HTML in TEMP -> per Word.Application zu PDF in TEMP
        //     (Word laeuft im eigenen Prozess wie Excel -> keine Zonensperre)
        //   - PDF an die Original-Mail anhaengen, dann SaveAs als neue .msg
        //     Die PDF steckt nach SaveAs in der .msg drin - die TEMP-Datei wird
        //     anschliessend wieder geloescht (kein separates PDF im Ordner).
        //   - Fallback ohne Word: KI-Notiz als HTML anhaengen (ebenfalls aus TEMP)
        wsLog("");
        wsLog("Speichere " + processed.length + " Vorgänge: Original-Mail führend, KI-Notiz als PDF angehängt...");

        // Word einmalig fuer HTML->PDF (im eigenen Prozess, keine Zonensperre).
        // Perf: ScreenUpdating, Rechtschreib/Grammatik-Background-Checks, AutoFormat
        // und Pagination kosten je Doc ~50-200ms - aus weil wir nur SaveAs->PDF.
        var word = null;
        try {
            word = new ActiveXObject("Word.Application");
            word.Visible = false;
            try { word.DisplayAlerts = 0; } catch(eW1) {}
            try { word.AutomationSecurity = 3; } catch(eW2) {}
            try { word.ScreenUpdating = false; } catch(eWsu) {}
            try { word.Options.CheckGrammarAsYouType = false; } catch(eOg) {}
            try { word.Options.CheckSpellingAsYouType = false; } catch(eOs) {}
            try { word.Options.AutoFormatAsYouTypeReplaceQuotes = false; } catch(eAq) {}
            try { word.Options.Pagination = false; } catch(eOp) {}
            try { word.Options.SaveInterval = 0; } catch(eSi) {}
            try { word.Options.AnimateScreenMovements = false; } catch(eAm) {}
            wsLog("   Word für PDF-Erzeugung bereit.");
        } catch(eW) {
            word = null;
            wsLog("   Word nicht verfügbar - KI-Notiz wird ersatzweise als HTML angehängt.");
        }

        // TICK-BASED: eine Mail pro setTimeout-Tick. Verhindert dass die HTA
        // bei vielen Mails "haengt" und vom Engine-Watchdog abgeschossen wird;
        // jeder Tick hat sein eigenes try/catch, Outlook-Sicherheitsdialog auf
        // Mail 5 blockiert nicht mehr Mail 6-50. Outlook/Word COM ist Single-
        // Thread-Apartment - echte Parallelisierung wuerde nur Kontention
        // erzeugen, daher sequenziell aber non-blocking.
        // Forward-Ziel aus dem UI lesen (optional). Wenn gesetzt, leitet jeder
        // angereicherte .msg-SaveAs zusaetzlich an diese Adresse per Outlook-
        // Forward+Send weiter - ersetzt die urspruengliche Posteingangs-
        // Umleitungs-Regel fuer diese Mails.
        var fwdTo = "";
        try {
            var fi = document.getElementById("wsForwardTo");
            if (fi) fwdTo = String(fi.value || "").replace(/^\s+|\s+$/g, "");
        } catch(eFi) {}
        if (fwdTo) wsLog("Forward-Ziel: " + fwdTo, "info");
        var ctx = {
            pi: 0,
            saved: 0,
            failed: 0,
            forwarded: 0,
            forwardFailed: 0,
            forwardTo: fwdTo,
            total: processed.length,
            processed: processed,
            outDir: outDir,
            outlookApp: outlookApp,
            word: word,
            shellS: shellS,
            fsoS: fsoS
        };
        wsProgress(0, ctx.total);
        setTimeout(function() { wsSaveTick(ctx); }, 20);
    }, 300);
}

// Verarbeitet eine einzelne Mail pro Tick:
// HTML-Notiz -> Word-PDF -> Outlook OpenSharedItem -> Anhang -> SaveAs .msg.
// Plant rekursiv den naechsten Tick (~20ms Abstand), damit Log/Progress live
// laufen und Outlook-Dialoge nicht den gesamten Lauf killen.
function wsSaveTick(ctx) {
    if (ctx.pi >= ctx.total) { wsSaveFinish(ctx); return; }
    var p = ctx.processed[ctx.pi];
    var lfd = wsLfdNr(ctx.pi);
    var tmpHtml = "", keepPath = "", item = null;
    try {
        var noteHtml = wsBuildNotizHtml(p.data, lfd);
        var stampN = lfd + "_" + new Date().getTime() + "_" + Math.floor(Math.random()*100000);
        tmpHtml = ctx.shellS.ExpandEnvironmentStrings("%TEMP%") + "\\KI-Notiz_" + stampN + ".html";
        var nf = ctx.fsoS.CreateTextFile(tmpHtml, true, false);
        nf.Write(noteHtml);
        nf.Close();

        // PDF/HTML-Notiz nur als TEMP-Datei - sie wird in die .msg eingebettet
        // und ist danach in der .msg enthalten. Eine separate Kopie im Vorgangs-
        // Ordner ist redundant; wird unten geloescht.
        var tempBase = ctx.shellS.ExpandEnvironmentStrings("%TEMP%");
        var pdfPath = tempBase + "\\KI-Notiz_" + stampN + ".pdf";
        if (ctx.word) {
            try {
                try { if (ctx.fsoS.FileExists(pdfPath)) ctx.fsoS.DeleteFile(pdfPath, true); } catch(ePre) {}
                var doc = ctx.word.Documents.Open(tmpHtml, false, true);
                doc.SaveAs2(pdfPath, 17);
                doc.Close(0);
            } catch(ePdf) {
                pdfPath = "";
                wsLog("   [" + lfd + "] PDF-Erzeugung fehlgeschlagen (" + ePdf.message + ") - HTML-Fallback.", "err");
            }
        }

        if (pdfPath && ctx.fsoS.FileExists(pdfPath)) {
            keepPath = pdfPath;
        } else {
            keepPath = tempBase + "\\KI-Notiz_" + stampN + ".html";
            try { if (ctx.fsoS.FileExists(keepPath)) ctx.fsoS.DeleteFile(keepPath, true); } catch(e) {}
            var hf = ctx.fsoS.CreateTextFile(keepPath, true, false);
            hf.Write(noteHtml);
            hf.Close();
        }

        item = ctx.outlookApp.Session.OpenSharedItem(p.msgPath);
        item.Attachments.Add(keepPath, 1, 1,
            "KI-Notiz_" + lfd + (keepPath.substr(-4).toLowerCase() === ".pdf" ? ".pdf" : ".html"));

        var safeBetreff = String(p.betreff || p.fileName || "Vorgang")
                            .replace(/[\\\/:*?"<>|]/g, "_").replace(/\s+/g, " ").substring(0, 60);
        var target = ctx.outDir.replace(/\\+$/, "") + "\\Vorgang_" + lfd + "_" + safeBetreff + ".msg";
        item.SaveAs(target, 9);

        // Programmatisches Forward an Zielpostfach (optional). Outlook erzeugt
        // ein neues MailItem mit dem angereicherten Body + Anhaengen, wir setzen
        // To + Send. Outlook-Security-Guardian fragt eventuell beim ersten
        // Send "Zugriff zulassen" - mit Haken bestaetigen.
        if (ctx.forwardTo) {
            try {
                var fwd = item.Forward();
                fwd.To = ctx.forwardTo;
                try { fwd.Recipients.ResolveAll(); } catch(eRr) {}
                fwd.Send();
                ctx.forwarded++;
            } catch(eFwd) {
                ctx.forwardFailed++;
                wsLog("   [" + lfd + "] Forward fehlgeschlagen: " + (eFwd.message || eFwd) +
                      " (Outlook-Security-Abfrage bestaetigen?)", "err");
            }
        }

        try { item.Close(1); } catch(eC) {}
        item = null;
        ctx.saved++;
        wsLog("   [" + lfd + "] (" + (ctx.pi + 1) + "/" + ctx.total + ") gespeichert: " + target +
              (keepPath.substr(-4).toLowerCase() === ".pdf" ? " (Notiz als PDF eingebettet)" : " (Notiz als HTML eingebettet)"), "ok");

        // TEMP-Dateien aufraeumen - die Notiz steckt jetzt in der .msg.
        try { ctx.fsoS.DeleteFile(tmpHtml, true); } catch(eDel) {}
        try { if (keepPath && ctx.fsoS.FileExists(keepPath)) ctx.fsoS.DeleteFile(keepPath, true); } catch(eDelK) {}
    } catch(eSave) {
        ctx.failed++;
        wsLog("   [" + lfd + "] FEHLER: " + (eSave.message || eSave) +
              " (evtl. Outlook-Sicherheitsabfrage 'Zugriff zulassen' bestaetigen)", "err");
        try { if (item) item.Close(1); } catch(eC2) {}
        try { if (tmpHtml) ctx.fsoS.DeleteFile(tmpHtml, true); } catch(eDel2) {}
        try { if (keepPath && ctx.fsoS.FileExists(keepPath)) ctx.fsoS.DeleteFile(keepPath, true); } catch(eDelKE) {}
        // Failed-Save: in _wsFailedSlots queuen, damit wsSaveFinish die Original-
        // .msg in den Fehler-Ordner kopiert.
        try {
            if (!state._wsFailedSlots) state._wsFailedSlots = [];
            state._wsFailedSlots.push({ msgPath: p.msgPath, fileName: p.fileName, error: String(eSave.message || eSave) });
        } catch(ePush) {}
    }
    ctx.pi++;
    wsProgress(ctx.pi, ctx.total);
    setTimeout(function() { wsSaveTick(ctx); }, 20);
}

function wsSaveFinish(ctx) {
    try { if (ctx.word) ctx.word.Quit(0); } catch(eWq) {}

    // Mails ohne KI-Notiz (LLM-Parse-Fehler / HTTP-Fehler / Save-Fehler) als
    // Original-.msg-Kopie in einen Unterordner _Fehler_ohne_KI-Notiz legen,
    // damit der Sachbearbeiter sie bei Bedarf wieder in Outlook importieren
    // kann (drag-drop). _wsFailedSlots = analyse-fehler aus wsTick.
    var errFolder = "";
    try {
        var errSlots = state._wsFailedSlots || [];
        if (errSlots.length > 0 && ctx.outDir) {
            errFolder = ctx.outDir.replace(/\\+$/, "") + "\\_Fehler_ohne_KI-Notiz";
            if (!ctx.fsoS.FolderExists(errFolder)) ctx.fsoS.CreateFolder(errFolder);
            var copied = 0;
            for (var fi = 0; fi < errSlots.length; fi++) {
                var es = errSlots[fi];
                try {
                    if (!ctx.fsoS.FileExists(es.msgPath)) continue;
                    var safeFn = String(es.fileName || "vorgang.msg").replace(/[\\\/:*?"<>|]/g, "_");
                    var dst = errFolder + "\\" + safeFn;
                    // Falls Name kollidiert, Suffix anhaengen
                    var coll = 1;
                    while (ctx.fsoS.FileExists(dst)) {
                        dst = errFolder + "\\" + safeFn.replace(/(\.msg)?$/i, "_" + coll + ".msg");
                        coll++;
                        if (coll > 99) break;
                    }
                    ctx.fsoS.CopyFile(es.msgPath, dst, true);
                    copied++;
                } catch(eCp) {
                    wsLog("   Fehler-Kopie fehlgeschlagen fuer " + es.fileName + ": " + (eCp.message || eCp), "err");
                }
            }
            if (copied > 0) {
                wsLog(copied + " Mail(s) ohne KI-Notiz nach _Fehler_ohne_KI-Notiz kopiert (zum Reimport in Outlook).", "info");
            }
        }
    } catch(eEf) {}
    var totalFailed = (state._wsFailedSlots || []).length;
    // Slot-Liste fuer naechsten Lauf zuruecksetzen
    state._wsFailedSlots = [];

    wsLog("");
    wsLog("Fertig: " + ctx.saved + " Vorgänge gespeichert" +
          (totalFailed ? ", " + totalFailed + " ohne KI-Notiz im Fehler-Ordner" : "") + ".", "head");
    wsShowSuccess("Fertig! <strong>" + ctx.saved + "</strong> Original-Mails als .msg gespeichert" +
                  (ctx.failed ? " (" + ctx.failed + " Save-Fehler)" : "") +
                  (errFolder ? " &mdash; Mails ohne KI-Notiz im Unterordner <strong>_Fehler_ohne_KI-Notiz</strong>" : "") +
                  " &mdash; KI-Notiz je Mail als <strong>PDF</strong> angeh&auml;ngt. " +
                  "<strong>Excel</strong> liegt im selben Ordner.");
    try { if (ctx.saved > 0 && ctx.outDir) ctx.shellS.Run('explorer.exe "' + ctx.outDir + '"', 1, false); } catch(eExp) {}
    wsLog("Ablage: " + ctx.outDir);
    wsLog("Original .msg-Dateien im Quellordner bleiben unverändert.");
}

// Laufende Nummer / Vorgangs-ID: "BÜ-KI-001" (Mapping Excel <-> Notiz <-> .msg)
function wsLfdNr(i) {
    var n = String(i + 1);
    while (n.length < 3) n = "0" + n;
    return "BÜ-KI-" + n;
}

// Angleicher: gleicht unterschiedliche Schreibweisen DESSELBEN Maklerpools /
// Maklers an, damit (a) Excel-Spalten konsistent aussehen und (b) Cluster den
// Match nicht durch Tippvariation verlieren ("Finanzguru" vs "Finanzguru
// Versicherungsservice GmbH"). Stem = erste signifikante Tokens nach Lowercase
// + Punctuation-Strip + Drop von Rechtsform-Tokens (GmbH, AG, ...). Canonical
// pro Stem = kuerzeste Variante (bei Gleichstand haeufigste).
function wsCanonicalizeField(processed, fieldName) {
    var counts = {};
    for (var i = 0; i < processed.length; i++) {
        var v = (processed[i].data || {})[fieldName];
        if (v == null) continue;
        var s = String(v).replace(/^\s+|\s+$/g, "");
        if (!s) continue;
        counts[s] = (counts[s] || 0) + 1;
    }
    var uniques = [];
    for (var k in counts) if (counts.hasOwnProperty(k)) uniques.push(k);
    if (uniques.length <= 1) return;

    function stemOf(s) {
        var t = String(s).toLowerCase().replace(/[.,;:&/\\()\[\]"'+]/g, " ").replace(/\s+/g, " ").replace(/^\s+|\s+$/g, "");
        var drop = { "gmbh":1, "ag":1, "kg":1, "co":1, "kgaa":1, "ohg":1, "ug":1, "mbh":1,
                     "gbr":1, "ek":1, "ev":1,
                     "service":1, "versicherungsservice":1, "maklerservice":1,
                     "versicherungsmakler":1, "versicherung":1, "versicherungen":1,
                     "makler":1, "die":1, "und":1, "the":1, "cie":1 };
        var tokens = t.split(" ");
        var keep = [];
        for (var j = 0; j < tokens.length; j++) {
            var tk = tokens[j];
            if (!tk || drop[tk]) continue;
            keep.push(tk);
            if (keep.length >= 2) break;
        }
        return keep.join(" ");
    }

    var groups = {};
    for (var u = 0; u < uniques.length; u++) {
        var st = stemOf(uniques[u]);
        if (!st) continue;
        if (!groups[st]) groups[st] = [];
        groups[st].push(uniques[u]);
    }

    var rewriteMap = {};
    for (var gs in groups) {
        if (!groups.hasOwnProperty(gs)) continue;
        var variants = groups[gs];
        if (variants.length < 2) continue;
        // Sortiert: kuerzeste zuerst (cleaner Anzeigename), bei Gleichstand haeufigste
        variants.sort(function(a, b) {
            if (a.length !== b.length) return a.length - b.length;
            return counts[b] - counts[a];
        });
        var canonical = variants[0];
        for (var v = 1; v < variants.length; v++) rewriteMap[variants[v]] = canonical;
    }

    for (var i2 = 0; i2 < processed.length; i2++) {
        var d2 = processed[i2].data;
        if (!d2) continue;
        var cur = d2[fieldName];
        if (cur == null) continue;
        var s2 = String(cur).replace(/^\s+|\s+$/g, "");
        if (rewriteMap[s2]) d2[fieldName] = rewriteMap[s2];
    }
}

function wsCanonicalizeNames(processed) {
    if (!processed || processed.length === 0) return;
    wsCanonicalizeField(processed, "maklerpool");
    wsCanonicalizeField(processed, "makler_nachname");
}

// Gruppiert Vorgaenge zu Clustern: gleicher Makler + gleicher Kunde -> ein Cluster.
// Cluster mit >= 2 Mitgliedern bekommen eine ID wie "001a", "001b", ... und eine
// gemeinsame Pastell-Hintergrundfarbe. Reihenfolge: Cluster-Mitglieder werden im
// Ergebnis-Array stabil hintereinander gruppiert (erstes Vorkommen entscheidet
// ueber Cluster-Reihenfolge). Singletons behalten ihren Platz relativ zu anderen
// Singletons, werden aber nach den Clustern einsortiert.
function wsAssignClusters(processed) {
    if (!processed || processed.length === 0) return processed;
    var palette = [
        [252,231,243], [219,234,254], [220,252,231], [254,243,199],
        [233,213,255], [207,250,254], [255,228,230], [240,249,255]
    ];
    function norm(s) {
        return String(s == null ? "" : s).toLowerCase()
            .replace(/[\s ]+/g, " ").replace(/^\s+|\s+$/g, "");
    }
    function keyFor(r) {
        var d = r.data || {};
        // Makler-Identitaet: Union aus Agentur- UND Vermittler-Nummer (sortiert,
        // dedupliziert). Steht dieselbe Nummer einmal bei "Agentur" und einmal
        // bei "Vermittler" (LLM-Klassifikations-Unschaerfe), ergibt sich derselbe
        // Schluessel - sonst waere der Cluster falsch geteilt. Wenn keine Nummer
        // da ist, Fallback auf Name+Pool.
        var agt = norm(d.agentur_nummer), verm = norm(d.vermittler_nummer);
        var nums = [];
        if (agt) nums.push(agt);
        if (verm && verm !== agt) nums.push(verm);
        nums.sort();
        var mk;
        if (nums.length > 0) {
            mk = "ID:" + nums.join("/");
        } else {
            mk = "N:" + norm(d.maklerpool) + "|" + norm(d.makler_nachname) + "|" + norm(d.makler_vorname);
            if (mk === "N:||") return null;
        }
        // Kunde-Identitaet: Kundennummer wenn vorhanden, sonst Vor+Nachname.
        var kn = norm(d.kunde_nummer);
        var ku;
        if (kn) {
            ku = "K:" + kn;
        } else {
            ku = "N:" + norm(d.kunde_nachname) + "|" + norm(d.kunde_vorname);
            if (ku === "N:|") return null;
        }
        return mk + "##" + ku;
    }
    var groupOrder = [];
    var groups = {};
    var loners = [];
    for (var i = 0; i < processed.length; i++) {
        var k = keyFor(processed[i]);
        if (k === null) { loners.push(processed[i]); continue; }
        if (!groups[k]) { groups[k] = []; groupOrder.push(k); }
        groups[k].push(processed[i]);
    }
    var sorted = [];
    var clusterCount = 0;
    for (var gi = 0; gi < groupOrder.length; gi++) {
        var members = groups[groupOrder[gi]];
        if (members.length >= 2) {
            clusterCount++;
            var num = String(clusterCount);
            while (num.length < 3) num = "0" + num;
            var col = palette[(clusterCount - 1) % palette.length];
            for (var mi = 0; mi < members.length; mi++) {
                members[mi]._clusterId = num + String.fromCharCode(97 + mi);
                members[mi]._clusterColor = col;
                sorted.push(members[mi]);
            }
        } else {
            members[0]._clusterId = "";
            members[0]._clusterColor = null;
            sorted.push(members[0]);
        }
    }
    for (var li = 0; li < loners.length; li++) {
        loners[li]._clusterId = "";
        loners[li]._clusterColor = null;
        sorted.push(loners[li]);
    }
    return sorted;
}

// ============================================================================
// BATCH-MODUS: alle Mails in EINER Conversation / EINEM Prompt (nicht parallel)
// + TESTMODUS: parallel UND batch, dann Ergebnis-Vergleichsdatei schreiben
// ============================================================================
function wsRestoreUi() {
    state._wsRunning = false;
    var b;
    if ((b = document.getElementById("wsPlay"))) b.disabled = state._wsMsgFiles.length === 0;
    if ((b = document.getElementById("wsBatch"))) b.disabled = state._wsMsgFiles.length === 0;
    if ((b = document.getElementById("wsCombined"))) b.disabled = state._wsMsgFiles.length === 0;
    if ((b = document.getElementById("wsChunked"))) b.disabled = state._wsMsgFiles.length === 0;
    if ((b = document.getElementById("wsTest")))  b.disabled = state._wsMsgFiles.length === 0;
    if ((b = document.getElementById("wsPick")))  b.disabled = false;
    if ((b = document.getElementById("wsPickOutlook"))) b.disabled = false;
    if ((b = document.getElementById("wsClose"))) b.disabled = false;
    wsProgress(state._wsMsgFiles.length, state._wsMsgFiles.length);
}

// Liest eine Mail aus (Properties + PDFs in TEMP), OHNE Conversation zu starten.
// Ist die Scan-Ueberspringen-Option aktiv? (Custom-Checkbox im Workshop)
function wsSkipScansOn() {
    var c = document.getElementById("wsSkipScans");
    return c ? !!c.checked : true;   // Default: ueberspringen (Tempo)
}
function wsToggleSkip() {
    var c = document.getElementById("wsSkipScans");
    if (!c) return;
    c.checked = !c.checked;
    wsSkipPaint();
}
function wsSkipPaint() {
    var c = document.getElementById("wsSkipScans");
    var b = document.getElementById("wsSkipBox");
    var r = document.getElementById("wsSkipRow");
    if (!c || !b) return;
    if (c.checked) {
        b.innerHTML = "&#10003;"; b.style.background = "#16a34a";
        b.style.borderColor = "#15803d"; b.style.color = "#ffffff";
        if (r) { r.style.background = "#f0fdf4"; r.style.borderColor = "#bbf7d0"; }
    } else {
        b.innerHTML = "&nbsp;"; b.style.background = "#ffffff";
        b.style.borderColor = "#9ca3af";
        if (r) { r.style.background = "#f9fafb"; r.style.borderColor = "#e5e7eb"; }
    }
}

// Heuristik (ohne PDF-Lib): erkennt Scan-/Foto-PDFs ohne echte Textebene.
// Liest die Datei als ISO-8859-1 (1:1 Bytes) und prueft auf Font-Marker vs.
// Bild-Filter/Groesse. Konservativ: nur als Scan einstufen, wenn KEINE
// Font-Marker UND (Bild-Filter ODER auffaellig gross). Fehlklassifikation
// = kein Datenverlust (wird als "manuell pruefen" markiert).
function wsIsLikelyScanPdf(path, fso) {
    // 1) GROESSE ZUERST - billig + zuverlaessig, unabhaengig vom Byte-Read.
    var size = 0;
    try { size = fso.GetFile(path).Size; } catch(eS) { size = 0; }
    if (size > 2500000) return true;               // > 2,5 MB = Foto/Scan -> skip
    // 2) Mittelgrosse Dateien: Byte-Heuristik (Font-Marker vs. Bild-Codec).
    //    Schlaegt das Lesen fehl -> NUR groessenbasiert entscheiden (NICHT
    //    pauschal "behalten", sonst rutschen Scans durch).
    try {
        var stm = new ActiveXObject("ADODB.Stream");
        stm.Type = 2; stm.Charset = "iso-8859-1"; stm.Open();
        stm.LoadFromFile(path);
        var sample = String(stm.ReadText(600000));
        stm.Close();
        var hasFont = /\/(BaseFont|FontFile2?|FontFile3|Type0|TrueType)\b/.test(sample) ||
                      /\/Font\s*[<\/\[]/.test(sample);
        var hasImg  = /\/(DCTDecode|CCITTFaxDecode|JPXDecode|JBIG2Decode)\b/.test(sample) ||
                      /\/Subtype\s*\/Image\b/.test(sample);
        if (hasFont) return false;                 // echte Textebene -> behalten
        if (hasImg) return true;                   // Bild-Codec, kein Font -> Scan
        return size > 350000;                      // gross + kein Font -> Scan
    } catch(e) {
        return size > 350000;                      // Read fehlgeschlagen -> Groesse
    }
}

function wsExtractMail(msgPath) {
    var fileName = msgPath.substr(msgPath.lastIndexOf("\\") + 1);
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var shell = new ActiveXObject("WScript.Shell");
    var info = { msgPath: msgPath, fileName: fileName, datum: "", absName: "", absMail: "",
                 betreff: "", body: "", anhangAlle: "", pdfPaths: [], pdfListe: "",
                 skippedScans: [], skipMailScan: false, tempDir: "", error: null };
    var skipScans = wsSkipScansOn();
    var mail = null;
    try {
        mail = outlookApp.Session.OpenSharedItem(msgPath);
        try { var dt = new Date(mail.ReceivedTime);
              info.datum = pad(dt.getDate()) + "." + pad(dt.getMonth()+1) + "." + dt.getFullYear(); } catch(e) {}
        try { info.absName = String(mail.SenderName || ""); } catch(e) {}
        try { info.absMail = getSenderEmail(mail); } catch(e) {}
        try { info.betreff = String(mail.Subject || ""); } catch(e) {}
        try { info.body = String(mail.Body || ""); } catch(e) {}
        if (info.body.length > 12000) info.body = info.body.substr(0, 12000) + "...[gekuerzt]";
        var attCount = 0;
        try { attCount = mail.Attachments.Count; } catch(e) {}
        var tempDir = shell.ExpandEnvironmentStrings("%TEMP%") + "\\ergo_wsb_" + new Date().getTime() + "_" + Math.floor(Math.random()*100000);
        try { if (!fso.FolderExists(tempDir)) fso.CreateFolder(tempDir); } catch(e) {}
        info.tempDir = tempDir;
        for (var a = 1; a <= attCount; a++) {
            try {
                var att = mail.Attachments.Item(a);
                var fn = String(att.FileName || "");
                if (fn.length === 0) continue;
                if (fn.toLowerCase().substr(-4) === ".pdf" && info.pdfPaths.length < 20) {
                    // Schon VOR dem Speichern anhand der Outlook-Anhangsgroesse
                    // abbrechen (grosse Foto-PDF gar nicht erst auf Platte schreiben).
                    var _aSz = 0; try { _aSz = att.Size; } catch(eAs) { _aSz = 0; }
                    if (skipScans && _aSz > 2500000) {
                        info.skippedScans.push(fn);
                        info.anhangAlle += (info.anhangAlle ? "; " : "") + fn + " [Scan - NICHT analysiert]";
                        try { wsLog("Scan/Foto-PDF übersprungen (Anhang " + (Math.round(_aSz/104857.6)/10) +
                              " MB): " + fn + " - " + info.fileName.substr(0, 40), "muted"); } catch(eL0) {}
                        continue;
                    }
                    var outPath = tempDir + "\\" + sanitizeFilename(fn);
                    att.SaveAsFile(outPath);
                    if (fso.FileExists(outPath)) {
                        if (skipScans && wsIsLikelyScanPdf(outPath, fso)) {
                            // Scan-/Foto-PDF: NICHT Word-reflowen / NICHT hochladen
                            // (Hauptursache der langen Laufzeit). Markiert -> manuell.
                            var _mb = 0; try { _mb = Math.round(fso.GetFile(outPath).Size/104857.6)/10; } catch(eMb) {}
                            info.skippedScans.push(fn);
                            info.anhangAlle += (info.anhangAlle ? "; " : "") + fn + " [Scan - NICHT analysiert]";
                            try { fso.DeleteFile(outPath, true); } catch(eD) {}
                            try { wsLog("Scan/Foto-PDF übersprungen: " + fn + " (" + _mb + " MB) - " +
                                  info.fileName.substr(0, 40), "muted"); } catch(eL) {}
                        } else {
                            info.pdfPaths.push({ path: outPath, name: fn });
                            info.pdfListe += (info.pdfListe ? "; " : "") + fn;
                            info.anhangAlle += (info.anhangAlle ? "; " : "") + fn;
                        }
                    } else {
                        info.anhangAlle += (info.anhangAlle ? "; " : "") + fn;
                    }
                } else {
                    info.anhangAlle += (info.anhangAlle ? "; " : "") + fn;
                }
            } catch(eAtt) {}
        }
        try { mail.Close(1); } catch(e) {}
        // Mail-Level-Skip: Enthaelt die Mail AUCH NUR EINE Foto-/Scan-PDF,
        // wird die GESAMTE Mail nicht analysiert (auch evtl. vorhandene
        // Text-PDFs nicht). Die Mail laeuft nur noch ueber den Body
        // (guenstig); der Prompt markiert sie als manuell zu pruefen.
        if (skipScans && info.skippedScans && info.skippedScans.length > 0
            && info.pdfPaths.length > 0) {
            try {
                for (var _sp = 0; _sp < info.pdfPaths.length; _sp++) {
                    try { fso.DeleteFile(info.pdfPaths[_sp].path, true); } catch(eSpD) {}
                }
            } catch(eSpAll) {}
            info.skipMailScan = true;
            info.pdfPaths = [];
            info.pdfListe = "";
            try { wsLog("Mail komplett übersprungen (enthält Foto-/Scan-PDF): " +
                  String(info.fileName).substr(0, 50), "muted"); } catch(eSpL) {}
        } else if (skipScans && info.skippedScans && info.skippedScans.length > 0) {
            info.skipMailScan = true;
        }
        return info;
    } catch(eEx) {
        try { if (mail) mail.Close(1); } catch(e) {}
        info.error = "Extract: " + (eEx.message || "unbekannt");
        return info;
    }
}

// Holt aus Text einzelne Top-Level-{...}-Objekte heraus (Brace-Matching,
// String-aware) - rettet auch abgeschnittene/teils kaputte JSON-Arrays.
function wsExtractObjects(s) {
    var objs = [], depth = 0, start = -1, inStr = false, q = "", esc = false;
    for (var i = 0; i < s.length; i++) {
        var c = s.charAt(i);
        if (inStr) {
            if (esc) { esc = false; }
            else if (c === "\\") { esc = true; }
            else if (c === q) { inStr = false; }
            continue;
        }
        if (c === '"' || c === "'") { inStr = true; q = c; continue; }
        if (c === "{") { if (depth === 0) start = i; depth++; }
        else if (c === "}") {
            depth--;
            if (depth === 0 && start >= 0) { objs.push(s.substring(start, i + 1)); start = -1; }
            if (depth < 0) depth = 0;
        }
    }
    return objs;
}

// Robuster JSON-Array-Parser mit Repair-Schicht (2026-Best-Practice: nicht
// blind eval, sondern reparieren). Schritte: direkt -> getrimmt -> grosses
// [..]-Segment -> Reparatur (Codefences, Kommentare, Trailing-Kommas, Smart-
// Quotes, Steuerzeichen) -> notfalls Objekte einzeln einsammeln.
function wsParseJsonArray(txt) {
    if (!txt) return null;
    function tryEval(x) { try { var v = eval("(" + x + ")"); if (v && v.length != null) return v; } catch(e) {} return null; }
    var s = String(txt);
    var r = tryEval(s); if (r) return r;

    s = s.replace(/^/, "")
         .replace(/^[\s\S]*?```(?:json)?\s*/i, function(m){ return m.indexOf("[") >= 0 || m.indexOf("{") >= 0 ? m : ""; })
         .replace(/```[\s\S]*$/i, "")
         .replace(/^\s+|\s+$/g, "");
    r = tryEval(s); if (r) return r;

    // Grosses [ ... ]-Segment
    var a = s.indexOf("["), b = s.lastIndexOf("]");
    if (a >= 0 && b > a) {
        var seg = s.substring(a, b + 1);
        r = tryEval(seg); if (r) return r;
        var rep = seg
            .replace(/\/\*[\s\S]*?\*\//g, "")            // Blockkommentare
            .replace(/(^|[^:])\/\/[^\n\r]*/g, "$1")        // Zeilenkommentare
            .replace(new RegExp("[\\u201C\\u201D\\u201E]","g"), '"')   // typografische Doppel-Quotes
            .replace(new RegExp("[\\u2018\\u2019\\u201A]","g"), "'")   // typografische Einzel-Quotes
            .replace(/,\s*([}\]])/g, "$1")                  // Trailing-Kommas
            .replace(new RegExp("[\\u0000-\\u0008\\u000B\\u000C\\u000E-\\u001F]","g"), " "); // Steuerzeichen
        r = tryEval(rep); if (r) return r;
    }

    // Notfall: einzelne Objekte einsammeln (auch bei abgeschnittenem Array)
    var objs = wsExtractObjects(s);
    if (objs.length) {
        var assembled = "[" + objs.join(",") + "]";
        r = tryEval(assembled); if (r) return r;
        // Objekte einzeln parsen, defekte ueberspringen
        var out = [];
        for (var i = 0; i < objs.length; i++) {
            var o = tryEval("[" + objs[i] + "]");
            if (o && o.length) out.push(o[0]);
            else {
                var o2 = tryEval("[" + objs[i].replace(/,\s*}/g, "}").replace(new RegExp("[\\u201C\\u201D]","g"), '"') + "]");
                if (o2 && o2.length) out.push(o2[0]);
            }
        }
        if (out.length) return out;
    }
    return null;
}

function wsRunBatch() {
    if (state._wsRunning) return;
    wsStartBatch(null);
}

function wsStartBatch(onDone) {
    if (state._wsMsgFiles.length === 0) return wsShowError("Keine Mails im Ordner");
    if (state.cookie.length < 50) return wsShowError("Cookie fehlt");
    if (!outlookApp) return wsShowError("Outlook nicht verbunden");

    state._wsRunning = true;
    var b;
    if ((b = document.getElementById("wsPlay")))  b.disabled = true;
    if ((b = document.getElementById("wsBatch"))) b.disabled = true;
    if ((b = document.getElementById("wsTest")))  b.disabled = true;
    if ((b = document.getElementById("wsPick")))  b.disabled = true;
    if ((b = document.getElementById("wsPickOutlook"))) b.disabled = true;
    if ((b = document.getElementById("wsClose"))) b.disabled = true;
    document.getElementById("wsProgressWrap").style.display = "block";
    if (!onDone) document.getElementById("wsLog").innerText = "";
    wsProgress(0, state._wsMsgFiles.length);
    wsShowInfo("BATCH: " + state._wsMsgFiles.length + " Mails in EINEM Prompt / EINER Conversation...");

    var mails = [], allPdfs = [];
    for (var i = 0; i < state._wsMsgFiles.length; i++) {
        var mp = state._wsMsgFiles[i];
        wsLog("[" + (i+1) + "/" + state._wsMsgFiles.length + "] Lese: " + mp.substr(mp.lastIndexOf("\\")+1));
        var info = wsExtractMail(mp);
        mails.push(info);
        if (info.error) { wsLog("   FEHLER: " + info.error); continue; }
        for (var pj = 0; pj < info.pdfPaths.length; pj++) allPdfs.push(info.pdfPaths[pj]);
    }
    var prompt = wsBuildBatchPrompt(mails);
    wsLog("");
    wsLog("Starte 1 Conversation, lade " + allPdfs.length + " PDFs (alle Mails) hoch...");
    var bs = {
        stage: "CREATING_CONV", mails: mails, allPdfs: allPdfs, prompt: prompt,
        convHttp: createConversationAsyncFire(prompt), convId: null,
        uploadHandles: [], docIds: [], docIdsJson: "[]",
        answerHttp: null, startedAt: new Date().getTime(), onDone: onDone || null
    };
    state._wsBatch = bs;
    setTimeout(wsBatchTick, 200);
}

function wsBatchTick() {
    var bs = state._wsBatch;
    if (!bs) return;
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    try {
        if (bs.stage === "CREATING_CONV") {
            var cd = false;
            try { cd = bs.convHttp.WaitForResponse(0); } catch(eW) {
                bs._cr = (bs._cr||0)+1; if (bs._cr > 12) return wsBatchFail(bs, "Conv-Wait: " + eW.message);
                return setTimeout(wsBatchTick, 400);
            }
            if (!cd) return setTimeout(wsBatchTick, 400);
            var cs = 0, cr = "";
            try { cs = bs.convHttp.Status; } catch(e) {}
            try { cr = bs.convHttp.ResponseText; } catch(e) {}
            if (cs !== 200) return wsBatchFail(bs, "Conv HTTP " + cs);
            bs.convId = parseJsonStr(cr, "id");
            if (!bs.convId) return wsBatchFail(bs, "keine conversation_id");
            if (bs.allPdfs.length > 0) {
                for (var pi = 0; pi < bs.allPdfs.length; pi++) {
                    try { bs.uploadHandles.push(uploadPdfStartAsync(bs.convId, bs.allPdfs[pi].path, bs.allPdfs[pi].name)); } catch(eU) {}
                }
                bs.uploadStart = new Date().getTime();
                bs.stage = "UPLOADING";
                wsProgress(1, state._wsMsgFiles.length + 2);
            } else { bs.docIdsJson = "[]"; bs.stage = "READY"; }
        }

        if (bs.stage === "UPLOADING") {
            var allUp = true;
            for (var ui = 0; ui < bs.uploadHandles.length; ui++) {
                if (!fso.FileExists(bs.uploadHandles[ui].resultPath)) { allUp = false; break; }
            }
            var el = new Date().getTime() - (bs.uploadStart || 0);
            if (!allUp && el < 150000) return setTimeout(wsBatchTick, 500);
            for (var ri = 0; ri < bs.uploadHandles.length; ri++) {
                try { uploadPdfReadResult(bs.uploadHandles[ri]); if (bs.uploadHandles[ri].docId) bs.docIds.push(bs.uploadHandles[ri].docId); } catch(e) {}
            }
            bs.docIdsJson = bs.docIds.length > 0 ? '["' + bs.docIds.join('","') + '"]' : "[]";
            wsLog("   " + bs.docIds.length + " PDFs hochgeladen. Sende Batch-Prompt...");
            bs.stage = "READY";
        }

        if (bs.stage === "READY") {
            if (bs.stream) {
                // STREAMING: Antwort-Read in Subprozess auslagern; fertige
                // Objekte werden SOFORT verwertet (nicht auf alles warten).
                var nm = 0;
                for (var nmI = 0; nmI < bs.mails.length; nmI++) if (!bs.mails[nmI].error) nm++;
                bs._nMails = nm;
                bs._seen = {}; bs._used = []; bs.streamProcessed = []; bs._objCount = 0;
                try {
                    bs.streamHandle = wsStreamAnswerStart(ERGO_BASE + "/conversation/" + bs.convId, bs.prompt, bs.docIdsJson);
                } catch(eStr) {
                    return wsBatchFail(bs, "Stream-Start fehlgeschlagen: " + (eStr.message || eStr));
                }
                bs.answerStart = new Date().getTime();
                bs._hbAt = 0; bs._lastPartLen = 0;
                bs.stage = "STREAMING";
                wsProgress(0, bs._nMails);
                wsLog("Prompt gesendet (Subprozess-Stream) - Antwort wird empfangen...", "head");
            } else {
                // Batch-Antwort dauert laenger -> 15 min Receive-Timeout statt 180s.
                bs.answerHttp = startAnswerAsync(bs.convId, bs.prompt, bs.docIdsJson, 900000);
                bs.answerStart = new Date().getTime();
                bs._hbAt = 0;
                bs.stage = "RUNNING";
                wsProgress(2, state._wsMsgFiles.length + 2);
                wsLog("   Batch-Prompt gesendet - warte auf ErgoGPT (kann bei 5 Mails einige Minuten dauern)...");
            }
        }

        if (bs.stage === "RUNNING") {
            var elAns = new Date().getTime() - (bs.answerStart || 0);
            // Lebenszeichen alle ~15s, damit es nicht "eingefroren" aussieht
            if (elAns - (bs._hbAt || 0) >= 15000) {
                bs._hbAt = elAns;
                wsLog("   ... warte auf Batch-Antwort (" + Math.round(elAns/1000) + "s)");
            }
            // Harte Notbremse nach 18 min
            if (elAns > 1080000) return wsBatchFail(bs,
                "Antwort-Timeout (>18 min). ErgoGPT hat den Batch nicht beantwortet - " +
                "bitte Parallel-Modus nutzen oder weniger Mails pro Batch.");
            var ad = false;
            try { ad = bs.answerHttp.WaitForResponse(0); } catch(eA) {
                bs._ar = (bs._ar||0)+1; if (bs._ar > 12) return wsBatchFail(bs, "Answer-Wait: " + eA.message);
                return setTimeout(wsBatchTick, 800);
            }
            if (!ad) return setTimeout(wsBatchTick, 800);
            var astatus = 0;
            try { astatus = bs.answerHttp.Status; } catch(eS) {}
            if (astatus && astatus !== 200) return wsBatchFail(bs, "ErgoGPT HTTP " + astatus + " (Batch-Antwort)");
            var aresp = "";
            try {
                var rb = bs.answerHttp.ResponseBody;
                var rstm = new ActiveXObject("ADODB.Stream");
                rstm.Type = 1; rstm.Open(); rstm.Write(rb); rstm.Position = 0;
                rstm.Type = 2; rstm.Charset = "utf-8"; aresp = String(rstm.ReadText()); rstm.Close();
            } catch(eRb) { try { aresp = bs.answerHttp.ResponseText; } catch(e) {} }
            var _asm = "";
            try { _asm = jsonUnescape(extractAssistantFromNdjson(aresp)).replace(/\\n/g, "\n"); } catch(eAsm) { _asm = aresp; }
            var arr = wsParseJsonArray(_asm);
            if (!arr) {
                // Diagnose: HTTP-Status + Laenge + Anfang der Antwort ins Log,
                // damit die Ursache (leere/HTML/Fehler-Antwort) sichtbar wird.
                wsLog("DIAG Batch-Antwort: HTTP " + astatus + ", roh " + aresp.length +
                      " Z., assembled " + _asm.length + " Z.", "err");
                wsLog("DIAG Anfang: " + String(_asm || aresp).substr(0, 300).replace(/\s+/g, " "), "muted");
                return wsBatchFail(bs, "JSON-Array nicht parsebar (HTTP " + astatus + ", " +
                      (_asm.length ? _asm.length + " Z. Text" : "leere Antwort") + ") - siehe DIAG im Log");
            }
            bs.rawAnswer = aresp;

            // Array -> Mails mappen (per datei, sonst per Index)
            var processed = [];
            for (var mi = 0; mi < bs.mails.length; mi++) {
                var m = bs.mails[mi];
                if (m.error) continue;
                var d = null, fnLow = String(m.fileName).toLowerCase();
                for (var qi = 0; qi < arr.length; qi++) {
                    var cand = String((arr[qi] && arr[qi].datei) || "").toLowerCase();
                    if (cand && (cand === fnLow || cand.indexOf(fnLow) >= 0 || fnLow.indexOf(cand) >= 0)) { d = arr[qi]; break; }
                }
                if (!d) d = arr[mi] || null;
                if (!d) continue;
                processed.push({
                    msgPath: m.msgPath, fileName: m.fileName, datum: m.datum,
                    absName: m.absName, absMail: m.absMail, betreff: m.betreff,
                    anhangAlle: m.anhangAlle, data: d,
                    isReminder: d.ist_reminder === "ja",
                    klassifikation: d.klassifikation || "",
                    summary: (d.zusammenfassung || "").substr(0, 200)
                });
            }
            return wsBatchFinish(bs, fso, processed);
        }

        if (bs.stage === "STREAMING") {
            var sh2 = bs.streamHandle;
            var elS = new Date().getTime() - (bs.answerStart || 0);
            // 20-min Notbremse
            if (elS > 1200000) return wsBatchFail(bs, "Stream-Timeout (>20 min).");
            // Fehler-/Status-Datei?
            if (fso.FileExists(sh2.errFile)) {
                var em = "";
                try { var ef = fso.OpenTextFile(sh2.errFile, 1, false, 0); em = ef.AtEndOfStream ? "" : ef.ReadAll(); ef.Close(); } catch(e) {}
                return wsBatchFail(bs, "Stream-Fehler: " + (em || "unbekannt"));
            }
            // WICHTIG (Crash-Fix): die wachsende .part-Datei wird NICHT mehr
            // jede Sekunde gelesen/geparst (das war der mshta-Crash-Vektor:
            // schweres Regex/eval ueber einen riesigen, ggf. garbled Buffer
            // bei gleichzeitigem Schreiben durch den Subprozess). Der
            // Subprozess (WinHttp) wartet die ganze Antwort ab und schreibt
            // EINMAL doneFile. Wir lesen + parsen GENAU EINMAL - wenn fertig.
            if (!fso.FileExists(sh2.doneFile)) {
                if (elS - (bs._hbAt || 0) >= 10000) {
                    bs._hbAt = elS;
                    wsLog("... Antwort wird empfangen, Subprozess läuft (" +
                          Math.round(elS/1000) + "s) - HTA bleibt ansprechbar", "muted");
                }
                return setTimeout(wsBatchTick, 1500);
            }

            // Fertig -> Antwort EINMAL lesen (UTF-8) und parsen
            var part = "";
            try {
                // FSO statt ADODB.Stream: vom Netzlaufwerk gestartet ist
                // ADODB.Stream im HTA-Prozess gesperrt. Der VBS-Subprozess
                // schreibt die .part-Datei jetzt als FSO-Unicode (UTF-16 LE).
                if (fso.FileExists(sh2.partFile)) part = String(readTextFile(sh2.partFile) || "");
            } catch(ePr) { part = ""; }
            var objs = null, _asm2 = "";
            try {
                _asm2 = jsonUnescape(extractAssistantFromNdjson(part)).replace(/\\n/g, "\n");
                objs = wsExtractObjects(_asm2);
            } catch(eAa) { objs = null; }
            for (var oi = 0; objs && oi < objs.length; oi++) {
                var od = null;
                try { var ev = eval("(" + objs[oi] + ")"); if (ev && ev.datei != null) od = ev; } catch(eEv) {}
                if (!od) continue;
                var key = String(od.datei).toLowerCase();
                if (bs._seen[key]) continue;
                var mm2 = null;
                for (var mj = 0; mj < bs.mails.length; mj++) {
                    if (bs._used[mj] || bs.mails[mj].error) continue;
                    var fnL = String(bs.mails[mj].fileName).toLowerCase();
                    if (key === fnL || key.indexOf(fnL) >= 0 || fnL.indexOf(key) >= 0) { mm2 = bs.mails[mj]; bs._used[mj] = true; break; }
                }
                if (!mm2) { for (var mk = 0; mk < bs.mails.length; mk++) { if (!bs._used[mk] && !bs.mails[mk].error) { mm2 = bs.mails[mk]; bs._used[mk] = true; break; } } }
                if (!mm2) continue;
                bs._seen[key] = true;
                bs.streamProcessed.push({
                    msgPath: mm2.msgPath, fileName: mm2.fileName, datum: mm2.datum,
                    absName: mm2.absName, absMail: mm2.absMail, betreff: mm2.betreff,
                    anhangAlle: mm2.anhangAlle, data: od,
                    isReminder: od.ist_reminder === "ja",
                    klassifikation: od.klassifikation || "",
                    summary: (od.zusammenfassung || "").substr(0, 200)
                });
                wsLog("Vorgang " + bs.streamProcessed.length + "/" + bs._nMails + ": " +
                      (mm2.fileName.length > 42 ? mm2.fileName.substr(0,42)+"..." : mm2.fileName) +
                      " -> " + (od.klassifikation || "?"), "ok");
                wsProgress(bs.streamProcessed.length, bs._nMails);
            }
            try { fso.DeleteFile(sh2.partFile, true); } catch(e) {}
            try { fso.DeleteFile(sh2.doneFile, true); } catch(e) {}
            try { fso.DeleteFile(sh2.cookieFile, true); } catch(e) {}
            try { fso.DeleteFile(sh2.payloadFile, true); } catch(e) {}
            try { fso.DeleteFile(sh2.vbsPath, true); } catch(e) {}
            if (bs.streamProcessed.length === 0) {
                wsLog("DIAG: Antwort " + part.length + " Z., assembled " + _asm2.length +
                      " Z. Anfang: " + String(_asm2 || part).substr(0,300).replace(/\s+/g," "), "err");
                return wsBatchFail(bs, "Antwort erhalten, aber kein gueltiges Objekt erkannt - siehe DIAG/Log-Datei.");
            }
            wsLog("Antwort verarbeitet: " + bs.streamProcessed.length + "/" + bs._nMails + " Vorgänge", "head");
            return wsBatchFinish(bs, fso, bs.streamProcessed);
        }
    } catch(eT) {
        return wsBatchFail(bs, "Tick: " + (eT.message || "?"));
    }
    setTimeout(wsBatchTick, 400);
}

// Gemeinsamer Abschluss: TEMP-Cleanup + Conversation loeschen + Ergebnis weiter
function wsBatchFinish(bs, fso, processed) {
    for (var ci = 0; ci < bs.mails.length; ci++) {
        try {
            var mm = bs.mails[ci];
            for (var cp = 0; cp < mm.pdfPaths.length; cp++) { try { fso.DeleteFile(mm.pdfPaths[cp].path, true); } catch(e) {} }
            if (mm.tempDir && fso.FolderExists(mm.tempDir)) fso.DeleteFolder(mm.tempDir, true);
        } catch(e) {}
    }
    if (bs.combinedPdf) wsLog("Sammel-PDF bleibt im Ordner: " + bs.combinedPdf, "ok");
    try { fireDelete(bs.convId); } catch(e) {}
    wsProgress(state._wsMsgFiles.length + 2, state._wsMsgFiles.length + 2);
    wsLog((bs.combinedPdf ? "KOMBI-PDF" : "BATCH") + " fertig: " + processed.length + " Vorgänge erkannt.");
    var cb = bs.onDone; state._wsBatch = null;
    if (cb) cb(processed); else wsFinishDemo(processed);
}

// ---- Streaming-Antwort als Subprozess (MSXML async) -> waechst eine .part-
// Datei; die HTA pollt nicht-blockierend und verwertet fertige Objekte sofort.
function wsBuildStreamVbs() {
    var v = [];
    v.push("Option Explicit");
    v.push("Dim a, fso, ts, cookie, url, payloadFile, partFile, doneFile, errFile");
    v.push("Set a = WScript.Arguments");
    v.push("Dim cookieFile : cookieFile = a(0) : url = a(1) : payloadFile = a(2)");
    v.push("partFile = a(3) : doneFile = a(4) : errFile = a(5)");
    v.push("On Error Resume Next");
    v.push("Set fso = CreateObject(\"Scripting.FileSystemObject\")");
    v.push("Set ts = fso.OpenTextFile(cookieFile, 1, False, 0) : cookie = Trim(ts.ReadAll) : ts.Close");
    v.push("Dim re, xsrf : xsrf = \"\"");
    v.push("Set re = CreateObject(\"VBScript.RegExp\")");
    v.push("re.Pattern = \"(?:XSRF-TOKEN|CSRF-TOKEN|csrfToken|_csrf)=([^;]+)\" : re.IgnoreCase = True");
    v.push("If re.Test(cookie) Then xsrf = re.Execute(cookie)(0).SubMatches(0)");
    // Payload kommt jetzt als FSO-Unicode (UTF-16 LE + BOM) aus der HTA, weil
    // die HTA in der UNC-/Internet-Zone kein ADODB.Stream darf. Hier (lokaler
    // wscript-Prozess) ist ADODB.Stream erlaubt: UTF-16 lesen -> UTF-8-Bytes.
    v.push("Dim rdS : Set rdS = CreateObject(\"ADODB.Stream\")");
    v.push("rdS.Type = 2 : rdS.Charset = \"unicode\" : rdS.Open : rdS.LoadFromFile payloadFile");
    v.push("Dim pTxt : pTxt = rdS.ReadText : rdS.Close");
    v.push("If Len(pTxt) > 0 Then If AscW(Left(pTxt, 1)) = -257 Then pTxt = Mid(pTxt, 2)");
    v.push("Dim enS : Set enS = CreateObject(\"ADODB.Stream\")");
    v.push("enS.Type = 2 : enS.Charset = \"utf-8\" : enS.Open : enS.WriteText pTxt");
    v.push("enS.Position = 0 : enS.Type = 1 : If enS.Size >= 3 Then enS.Read 3");
    v.push("Dim body : body = enS.Read : enS.Close");
    // WinHttp (NICHT MSXML.XMLHTTP): erlaubt Cookie/Origin/Referer-Header
    // (XMLHTTP blockt diese als 'restricted' -> Worker scheiterte). Synchron,
    // EINMAL die volle Antwort schreiben - kein 350ms-Overwrite-Loop, der
    // gleichzeitig von der HTA gelesen wurde (Crash-Vektor entfernt).
    v.push("Dim x : Set x = CreateObject(\"WinHttp.WinHttpRequest.5.1\")");
    v.push("x.SetTimeouts 30000, 30000, 60000, 1200000");
    v.push("x.Open \"PUT\", url, False");
    v.push("On Error Resume Next : x.SetProxy 0 : On Error Resume Next");
    v.push("x.SetRequestHeader \"Content-Type\", \"application/json;charset=UTF-8\"");
    v.push("x.SetRequestHeader \"Accept\", \"*/*\"");
    v.push("x.SetRequestHeader \"Cookie\", cookie");
    v.push("If xsrf <> \"\" Then");
    v.push("    x.SetRequestHeader \"X-XSRF-TOKEN\", xsrf");
    v.push("    x.SetRequestHeader \"X-CSRF-TOKEN\", xsrf");
    v.push("End If");
    // Header-Paritaet mit setWinHttpHeaders (funktionierender Nicht-Stream-Pfad):
    // ohne Browser-User-Agent blockt das ERGO-Gateway den Request mit HTTP 403.
    v.push("x.SetRequestHeader \"User-Agent\", \"Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 Chrome/129 Safari/537.36\"");
    v.push("x.SetRequestHeader \"Accept-Language\", \"de-DE,de;q=0.9,en;q=0.8\"");
    v.push("x.SetRequestHeader \"Origin\", \"https://gpt.ergo.com\"");
    v.push("x.SetRequestHeader \"Referer\", \"https://gpt.ergo.com/\"");
    v.push("x.SetRequestHeader \"X-Requested-With\", \"XMLHttpRequest\"");
    v.push("Err.Clear");
    v.push("x.Send body");
    v.push("If Err.Number <> 0 Then WriteErr fso, errFile, \"send: \" & Err.Description : WScript.Quit");
    v.push("Dim st : st = 0");
    v.push("Err.Clear : st = x.Status");
    v.push("If Err.Number <> 0 Then WriteErr fso, errFile, \"status: \" & Err.Description : WScript.Quit");
    v.push("If st <> 200 Then WriteErr fso, errFile, \"HTTP \" & st : WScript.Quit");
    // Antwort als UTF-8 schreiben (Bytes -> Datei), dann done-Marker
    v.push("Dim rb : rb = x.ResponseBody");
    v.push("If Err.Number <> 0 Then WriteErr fso, errFile, \"body: \" & Err.Description : WScript.Quit");
    // Antwort-Bytes (UTF-8 vom Server) -> Text dekodieren, dann via FSO-Unicode
    // (UTF-16 LE + BOM) schreiben. Die HTA liest die .part-Datei mit FSO
    // (readTextFile) - in der UNC-/Internet-Zone ist dort kein ADODB.Stream
    // erlaubt; ADODB nur hier im lokalen wscript-Prozess.
    v.push("Dim dcS : Set dcS = CreateObject(\"ADODB.Stream\")");
    v.push("dcS.Type = 1 : dcS.Open : dcS.Write rb : dcS.Position = 0");
    v.push("dcS.Type = 2 : dcS.Charset = \"utf-8\"");
    v.push("Dim respTxt : respTxt = dcS.ReadText : dcS.Close");
    v.push("If Err.Number <> 0 Then WriteErr fso, errFile, \"decode: \" & Err.Description : WScript.Quit");
    v.push("Dim w : Set w = fso.CreateTextFile(partFile, True, True)");
    v.push("w.Write respTxt : w.Close");
    v.push("If Err.Number <> 0 Then WriteErr fso, errFile, \"write: \" & Err.Description : WScript.Quit");
    v.push("Dim df : Set df = fso.CreateTextFile(doneFile, True, False) : df.Write \"OK \" & st : df.Close");
    v.push("");
    v.push("Sub WriteErr(f, p, m)");
    v.push("    Dim o : Set o = f.CreateTextFile(p, True, False) : o.Write m : o.Close");
    v.push("End Sub");
    return v.join("\r\n");
}

function wsStreamAnswerStart(answerUrl, prompt, docIdsJson) {
    var shell = new ActiveXObject("WScript.Shell");
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var tmp = shell.ExpandEnvironmentStrings("%TEMP%");
    var st = String(new Date().getTime()) + "_" + Math.floor(Math.random()*1000000);
    var h = {
        cookieFile:  tmp + "\\ergo_str_" + st + "_c.txt",
        payloadFile: tmp + "\\ergo_str_" + st + "_p.bin",
        partFile:    tmp + "\\ergo_str_" + st + "_part.txt",
        doneFile:    tmp + "\\ergo_str_" + st + "_done.txt",
        errFile:     tmp + "\\ergo_str_" + st + "_err.txt",
        vbsPath:     tmp + "\\ergo_str_" + st + ".vbs"
    };
    wsLog("Stream-Start: schreibe Cookie...", "muted");
    try { var cf = fso.CreateTextFile(h.cookieFile, true, false); cf.Write(state.cookie); cf.Close(); } catch(e) {}
    wsLog("Stream-Start: baue Payload...", "muted");
    var payload = buildPayload(cleanForJson(prompt), docIdsJson || "[]");
    wsLog("Stream-Start: Payload " + Math.round(payload.length/1024) + " KB -> Datei...", "muted");
    try {
        // KEIN ADODB.Stream im HTA-Prozess: vom Netzlaufwerk (\\...) gestartet
        // liegt die HTA in der Internet-/UNC-Zone - dort ist ADODB.Stream als
        // "Datenquelle in einer anderen Domaene" gesperrt (FSO nicht). Payload
        // als FSO-Unicode (UTF-16 LE + BOM) schreiben; der VBS-Subprozess
        // (lokale Zone, ADODB erlaubt) liest UTF-16 und re-encodet nach UTF-8.
        writeTextFile(h.payloadFile, payload);
    } catch(eP) { wsLog("Stream-Start: Payload-Datei FEHLER: " + (eP.message||eP), "err"); }
    wsLog("Stream-Start: schreibe VBS-Worker...", "muted");
    try { var vf = fso.CreateTextFile(h.vbsPath, true, false); vf.Write(wsBuildStreamVbs()); vf.Close(); } catch(e) { wsLog("Stream-Start: VBS FEHLER: " + (e.message||e), "err"); }
    var cmd = 'wscript.exe //NoLogo //B "' + h.vbsPath + '" "' + h.cookieFile + '" "' +
              answerUrl + '" "' + h.payloadFile + '" "' + h.partFile + '" "' + h.doneFile + '" "' + h.errFile + '"';
    wsLog("Stream-Start: starte Subprozess...", "muted");
    shell.Run(cmd, 0, false);
    wsLog("Stream-Start: Subprozess läuft.", "muted");
    return h;
}

function wsBatchFail(bs, msg) {
    state._wsBatch = null;
    // Sammel-PDF bleibt liegen (im Ergebnis-Ordner) - auch bei Fehler.
    wsLog("BATCH-FEHLER: " + msg, "err");
    if (bs && bs.onDone) { bs.onDone([]); return; }
    wsShowError("Batch-Analyse fehlgeschlagen: " + msg);
    wsRestoreUi();
}

// ============================================================================
// CHUNKED-BATCH: N Mails in kleine Chunks (Default 4) splitten, jeder Chunk
// als kompakter Batch-Prompt in EINER eigenen Conversation, ALLE Chunks
// PARALLEL. 2026-Best-Practice-Kompromiss: begrenzter Kontext (kein
// "Lost in the Middle"), Parallel-Durchsatz, native PDFs (kein Word-Verlust).
// ============================================================================
var WS_CHUNK = 4;
var WS_KOMBI_WORKERS = 4;   // parallele Word-Worker fuer den Kombi-PDF-Bau

function wsRunChunked() {
    if (state._wsRunning) return;
    wsStartChunked(null);
}

function wsStartChunked(onDone) {
    if (state._wsMsgFiles.length === 0) return wsShowError("Keine Mails im Ordner");
    if (state.cookie.length < 50) return wsShowError("Cookie fehlt");
    if (!outlookApp) return wsShowError("Outlook nicht verbunden");

    state._wsRunning = true;
    var b;
    if ((b = document.getElementById("wsPlay")))     b.disabled = true;
    if ((b = document.getElementById("wsBatch")))    b.disabled = true;
    if ((b = document.getElementById("wsChunked")))  b.disabled = true;
    if ((b = document.getElementById("wsCombined"))) b.disabled = true;
    if ((b = document.getElementById("wsChunked"))) b.disabled = true;
    if ((b = document.getElementById("wsTest")))     b.disabled = true;
    if ((b = document.getElementById("wsPick")))     b.disabled = true;
    if ((b = document.getElementById("wsPickOutlook"))) b.disabled = true;
    if ((b = document.getElementById("wsClose")))    b.disabled = true;
    document.getElementById("wsProgressWrap").style.display = "block";
    if (!onDone) document.getElementById("wsLog").innerText = "";
    wsProgress(0, state._wsMsgFiles.length);

    var nMails = state._wsMsgFiles.length;
    var nChunks = Math.ceil(nMails / WS_CHUNK);
    wsShowInfo("CHUNKED-BATCH: " + nMails + " Mails in " + nChunks + " Chunks (je " +
               WS_CHUNK + "), alle Chunks PARALLEL...");
    wsLog("=== CHUNKED-BATCH: " + nMails + " Mails / " + nChunks + " Chunks a " + WS_CHUNK + " ===", "head");

    var slots = [];
    for (var ci = 0; ci < nChunks; ci++) {
        var from = ci * WS_CHUNK, to = Math.min(from + WS_CHUNK, nMails);
        var mails = [], allPdfs = [];
        for (var i = from; i < to; i++) {
            var mp = state._wsMsgFiles[i];
            wsLog("[Chunk " + (ci+1) + "] Lese: " + mp.substr(mp.lastIndexOf("\\")+1));
            var info = wsExtractMail(mp);
            mails.push(info);
            if (info.error) { wsLog("   FEHLER: " + info.error, "err"); continue; }
            for (var pj = 0; pj < info.pdfPaths.length; pj++) allPdfs.push(info.pdfPaths[pj]);
        }
        var prompt = wsBuildBatchPrompt(mails);
        slots.push({
            cidx: ci + 1, stage: "CREATING_CONV", mails: mails, allPdfs: allPdfs,
            prompt: prompt, convHttp: createConversationAsyncFire(prompt), convId: null,
            uploadHandles: [], docIds: [], docIdsJson: "[]",
            answerHttp: null, answerStart: 0, _hbAt: 0, error: null, processed: []
        });
    }
    state._wsChunkSlots = slots;
    state._wsChunkOnDone = onDone || null;
    state._wsChunkTotalMails = nMails;
    wsLog("Alle " + nChunks + " Chunk-Conversations gestartet - laufen parallel...");
    setTimeout(wsChunkTick, 250);
}

function wsChunkTick() {
    var slots = state._wsChunkSlots || [];
    if (!slots.length) return;
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var doneCount = 0, doneMails = 0;

    for (var k = 0; k < slots.length; k++) {
        var s = slots[k];
        if (s.stage === "DONE" || s.stage === "ERROR") { doneCount++; doneMails += s.mails.length; continue; }
        try {
            if (s.stage === "CREATING_CONV") {
                var cd = false;
                try { cd = s.convHttp.WaitForResponse(0); } catch(eW) {
                    s._cr = (s._cr||0)+1; if (s._cr > 12) { s.stage = "ERROR"; s.error = "Conv-Wait"; }
                    continue;
                }
                if (!cd) continue;
                var cs = 0, cr = "";
                try { cs = s.convHttp.Status; } catch(e) {}
                try { cr = s.convHttp.ResponseText; } catch(e) {}
                if (cs !== 200) { s.stage = "ERROR"; s.error = "Conv HTTP " + cs; continue; }
                s.convId = parseJsonStr(cr, "id");
                if (!s.convId) { s.stage = "ERROR"; s.error = "keine conversation_id"; continue; }
                if (s.allPdfs.length > 0) {
                    for (var pi = 0; pi < s.allPdfs.length; pi++) {
                        try { s.uploadHandles.push(uploadPdfStartAsync(s.convId, s.allPdfs[pi].path, s.allPdfs[pi].name)); } catch(eU) {}
                    }
                    s.uploadStart = new Date().getTime();
                    s.stage = "UPLOADING";
                } else { s.docIdsJson = "[]"; s.stage = "READY"; }
            }
            if (s.stage === "UPLOADING") {
                var allUp = true;
                for (var ui = 0; ui < s.uploadHandles.length; ui++) {
                    if (!fso.FileExists(s.uploadHandles[ui].resultPath)) { allUp = false; break; }
                }
                var el = new Date().getTime() - (s.uploadStart || 0);
                if (!allUp && el < 150000) continue;
                for (var ri = 0; ri < s.uploadHandles.length; ri++) {
                    try { uploadPdfReadResult(s.uploadHandles[ri]); if (s.uploadHandles[ri].docId) s.docIds.push(s.uploadHandles[ri].docId); } catch(e) {}
                }
                s.docIdsJson = s.docIds.length > 0 ? '["' + s.docIds.join('","') + '"]' : "[]";
                s.stage = "READY";
            }
            if (s.stage === "READY") {
                s.answerHttp = startAnswerAsync(s.convId, s.prompt, s.docIdsJson, 900000);
                s.answerStart = new Date().getTime();
                s.stage = "RUNNING";
                wsLog("Chunk " + s.cidx + ": Prompt gesendet (" + s.mails.length + " Mails)...");
            }
            if (s.stage === "RUNNING") {
                var elAns = new Date().getTime() - (s.answerStart || 0);
                if (elAns - (s._hbAt || 0) >= 20000) {
                    s._hbAt = elAns;
                    wsLog("Chunk " + s.cidx + ": warte (" + Math.round(elAns/1000) + "s)", "muted");
                }
                if (elAns > 1080000) { s.stage = "ERROR"; s.error = "Timeout >18min"; continue; }
                var ad = false;
                try { ad = s.answerHttp.WaitForResponse(0); } catch(eA) {
                    s._ar = (s._ar||0)+1; if (s._ar > 12) { s.stage = "ERROR"; s.error = "Answer-Wait"; }
                    continue;
                }
                if (!ad) continue;
                var ast = 0;
                try { ast = s.answerHttp.Status; } catch(e) {}
                if (ast && ast !== 200) { s.stage = "ERROR"; s.error = "HTTP " + ast; continue; }
                var aresp = "";
                try {
                    var rb = s.answerHttp.ResponseBody;
                    var rstm = new ActiveXObject("ADODB.Stream");
                    rstm.Type = 1; rstm.Open(); rstm.Write(rb); rstm.Position = 0;
                    rstm.Type = 2; rstm.Charset = "utf-8"; aresp = String(rstm.ReadText()); rstm.Close();
                } catch(eRb) { try { aresp = s.answerHttp.ResponseText; } catch(e) {} }
                var _rawA = jsonUnescape(extractAssistantFromNdjson(aresp)).replace(/\\n/g, "\n");
                var arr = wsParseJsonArray(_rawA);
                if (!arr) {
                    s.stage = "ERROR";
                    s.error = "JSON-Array nicht parsebar - LLM-Antwort: " + wsParseSnippet(_rawA);
                    continue;
                }
                for (var mi = 0; mi < s.mails.length; mi++) {
                    var m = s.mails[mi];
                    if (m.error) continue;
                    var d = null, fnLow = String(m.fileName).toLowerCase();
                    for (var qi = 0; qi < arr.length; qi++) {
                        var cand = String((arr[qi] && arr[qi].datei) || "").toLowerCase();
                        if (cand && (cand === fnLow || cand.indexOf(fnLow) >= 0 || fnLow.indexOf(cand) >= 0)) { d = arr[qi]; break; }
                    }
                    if (!d) d = arr[mi] || null;
                    if (!d) continue;
                    s.processed.push({
                        msgPath: m.msgPath, fileName: m.fileName, datum: m.datum,
                        absName: m.absName, absMail: m.absMail, betreff: m.betreff,
                        anhangAlle: m.anhangAlle, data: d,
                        isReminder: d.ist_reminder === "ja",
                        klassifikation: d.klassifikation || "",
                        summary: (d.zusammenfassung || "").substr(0, 200)
                    });
                }
                for (var ci2 = 0; ci2 < s.mails.length; ci2++) {
                    try {
                        var mm = s.mails[ci2];
                        for (var cp = 0; cp < mm.pdfPaths.length; cp++) { try { fso.DeleteFile(mm.pdfPaths[cp].path, true); } catch(e) {} }
                        if (mm.tempDir && fso.FolderExists(mm.tempDir)) fso.DeleteFolder(mm.tempDir, true);
                    } catch(e) {}
                }
                try { fireDelete(s.convId); } catch(e) {}
                s.stage = "DONE";
                wsLog("Chunk " + s.cidx + " fertig: " + s.processed.length + " Vorgänge.", "ok");
            }
        } catch(eT) {
            s.stage = "ERROR"; s.error = "Tick: " + (eT.message || "?");
        }
    }

    wsProgress(doneMails, state._wsChunkTotalMails || slots.length);

    if (doneCount >= slots.length) {
        var processed = [];
        for (var z = 0; z < slots.length; z++) {
            if (slots[z].stage === "ERROR") wsLog("Chunk " + slots[z].cidx + " FEHLER: " + slots[z].error, "err");
            for (var pz = 0; pz < slots[z].processed.length; pz++) processed.push(slots[z].processed[pz]);
        }
        var cb = state._wsChunkOnDone;
        state._wsChunkSlots = null; state._wsChunkOnDone = null;
        wsLog("CHUNKED-BATCH fertig: " + processed.length + " Vorgänge gesamt.", "ok");
        if (cb) cb(processed); else wsFinishDemo(processed);
        return;
    }
    setTimeout(wsChunkTick, 500);
}

// ============================================================================
// EXPERIMENT: ALLE Mails+PDFs in EINE kombinierte PDF (Word) mit klaren
// Dokument-Trennern, dann nur DIESE eine PDF hochladen + 1 Prompt (JSON-Array).
// Skaliert auf viele Mails (nicht auf 5 begrenzt). Word-PDF-Reflow ist bei
// Text-PDFs gut, bei Scans verlustbehaftet - daher als Experiment markiert.
// ============================================================================
function wsRunCombined() {
    if (state._wsRunning) return;
    wsStartCombined(null);
}

function wsBuildCombinedPrompt(mails) {
    var p = "";
    p += "Du bist ERGO-Innendienst-Sachbearbeiter (SHUK). Es wurde EINE einzige PDF ";
    p += "hochgeladen, die MEHRERE Vorgaenge nacheinander enthaelt.\n";
    p += "Jeder Vorgang ist klar markiert: er BEGINNT mit einer Zeile\n";
    p += "  '##### DOKUMENT-START ##### datei: <Dateiname>'\n";
    p += "und ENDET mit\n";
    p += "  '##### DOKUMENT-ENDE: <Dateiname> #####'.\n";
    p += "Dazwischen stehen Mail-Kopf, Mail-Text und die Anhaenge (jeweils zwischen ";
    p += "'----- ANHANG-START: <name> -----' und '----- ANHANG-ENDE: <name> -----').\n";
    p += "Behandle jeden Abschnitt als EIGENEN, unabhaengigen Vorgang. Vermische NICHTS ";
    p += "ueber die DOKUMENT-Grenzen hinweg.\n\n";
    p += "Reihenfolge der " + mails.length + " Dokumente in der PDF:\n";
    for (var i = 0; i < mails.length; i++) p += "  " + (i+1) + ". " + mails[i].fileName + "\n";
    p += "\nREGELN (strikt):\n";
    p += "1. Genau " + mails.length + " Objekte, Reihenfolge wie oben, Feld \"datei\" = EXAKTER Dateiname.\n";
    p += "2. Reminder/Erinnerung/Mahnung: NICHT 'Anfrage-Ruecksprache' - nach zugrunde ";
    p += "liegendem Vorgang klassifizieren (Bestandsuebertragung -> 'BUe-Vorgang'), ist_reminder='ja'.\n";
    p += "3. agentur_nummer / vermittler_nummer jeweils NUR reiner Nummern-Wert ohne Wort-Label, NICHT kombiniert.\n";
    p += "4. auftrag_datum IMMER TT.MM.JJJJ (nie ISO).\n";
    p += "5. maklerpool vs. eigentlicher Makler trennen (Finanzguru ueber Jung DMS -> ";
    p += "maklerpool='JDC / Jung, DMS & Cie.', makler_nachname='Finanzguru'; CHECK24 ueber ";
    p += "Fonds Finanz analog; Pool nur wenn wirklich belegt, sonst leer).\n";
    p += "6. geschaefts_typ STRENG: 'BUe einfacher Vertrag' nur bei GENAU EINER Vertragsnummer.\n";
    p += "7. Firmenkunde: kunde_vorname leer (nicht 'Firma').\n";
    p += "8. sonderfall: NUR Flottengeschaeft/Sondertarif wenn AUSDRUECKLICH so benannt. Ein ";
    p += "Sonderkonditions-Vorbehalt ist KEIN Sondertarif -> Kein Sonderfall (Vorbehalt -> mv_einschraenkungen).\n";
    p += "9. maklerpool LEER, wenn nicht eindeutig aus Mail/PDF/Signatur belegt - NICHT aus Absender-Domain raten.\n";
    p += "10. Anhaenge mit '[Scan - NICHT analysiert]': pdf_qualitaet='Scan', hinweis ";
    p += "'Scan-Anhang nicht analysiert - manuell pruefen', Felder die nur daraus kaemen leer/nicht_pruefbar.\n\n";
    p += "Antworte AUSSCHLIESSLICH mit EINEM gueltigen JSON-ARRAY (kein Markdown), GENAU ";
    p += mails.length + " Objekte. Echte deutsche Umlaute (ae->ä, oe->ö, ue->ü, ss->ß):\n";
    p += "[\n  {\n";
    p += '  "datei":"exakter Dateiname des Dokuments",\n';
    p += wsFieldLines();
    p += "  }\n  /* ... eines pro Dokument ... */\n]\n";
    return p;
}

// ============================================================================
// KOMBI-PDF SCHNELL: parallele Word-Worker (Map) + ein billiges Reduce.
// Phase 1 (parallel): K Worker-Subprozesse konvertieren je ihren Mail-Block
//   Word-PDF-Reflow -> .docx (der teure Teil, jetzt K-fach parallel, eigener
//   Word-Prozess je Worker; HTA bleibt waehrenddessen ansprechbar).
// Phase 2 (einmalig, billig): ein Word fuegt die .docx-Teile per InsertFile
//   verlustfrei zusammen -> EINE PDF (kein erneuter Reflow). Danach normale
//   Batch-Netzwerk-Pipeline (1 Upload + Kombi-Prompt).
// ============================================================================
function wsKombiSan(x) { return String(x == null ? "" : x).replace(/[\t\r\n]+/g, " "); }

function wsBuildKombiWorkerVbs() {
    var v = [];
    v.push("Dim args, fso, wd, doc, sel, ts, line, parts, src, bts, first, jobPath, outDocx, okPath, failMsg");
    v.push("Set args = WScript.Arguments");
    v.push("jobPath = args(0) : outDocx = args(1) : okPath = args(2) : failMsg = \"\"");
    v.push("Set fso = CreateObject(\"Scripting.FileSystemObject\")");
    v.push("On Error Resume Next");
    v.push("Set wd = CreateObject(\"Word.Application\")");
    v.push("If Err.Number <> 0 Then");
    v.push("    WriteOk fso, okPath, \"ERR:Word: \" & Err.Description");
    v.push("    WScript.Quit");
    v.push("End If");
    v.push("wd.Visible = False");
    v.push("wd.DisplayAlerts = 0");
    v.push("wd.AutomationSecurity = 3");
    v.push("Set doc = wd.Documents.Add()");
    v.push("Set sel = wd.Selection");
    v.push("Set ts = fso.OpenTextFile(jobPath, 1, False, -1)");
    v.push("first = True");
    v.push("Do While Not ts.AtEndOfStream");
    v.push("    line = ts.ReadLine");
    v.push("    If Len(line) > 0 Then");
    v.push("        parts = Split(line, vbTab)");
    v.push("        Select Case parts(0)");
    v.push("        Case \"META\"");
    v.push("            sel.EndKey 6");
    v.push("            If Not first Then sel.InsertBreak 7");
    v.push("            first = False");
    v.push("            sel.TypeText \"##### DOKUMENT-START ##### datei: \" & parts(1) & vbCr");
    v.push("            sel.TypeText \"Datum: \" & parts(2) & \" | Absender: \" & parts(3) & \" <\" & parts(4) & \"> | Betreff: \" & parts(5) & vbCr");
    v.push("            sel.TypeText \"----- MAIL-TEXT -----\" & vbCr");
    v.push("            If fso.FileExists(parts(6)) Then");
    v.push("                Set bts = fso.OpenTextFile(parts(6), 1, False, -1)");
    v.push("                If Not bts.AtEndOfStream Then sel.TypeText bts.ReadAll");
    v.push("                bts.Close");
    v.push("            End If");
    v.push("            sel.TypeText vbCr");
    v.push("        Case \"PDF\"");
    v.push("            sel.EndKey 6");
    v.push("            sel.TypeText \"----- ANHANG-START: \" & parts(2) & \" -----\" & vbCr");
    v.push("            ' KEIN Documents.Open + Content.Copy/Paste: die Zwischenablage");
    v.push("            ' ist global -> parallele Word-Prozesse kollidieren darauf");
    v.push("            ' (ein Worker wird dadurch um ein Vielfaches langsamer).");
    v.push("            ' InsertFile fuegt die PDF clipboard-frei direkt ein.");
    v.push("            Err.Clear");
    v.push("            sel.EndKey 6");
    v.push("            sel.InsertFile parts(1), , False");
    v.push("            If Err.Number <> 0 Then");
    v.push("                Err.Clear");
    v.push("                sel.EndKey 6");
    v.push("                sel.TypeText \"(Anhang konnte nicht eingelesen werden)\" & vbCr");
    v.push("            Else");
    v.push("                sel.EndKey 6");
    v.push("                sel.TypeText vbCr");
    v.push("            End If");
    v.push("            sel.EndKey 6");
    v.push("            sel.TypeText \"----- ANHANG-ENDE: \" & parts(2) & \" -----\" & vbCr");
    v.push("        Case \"ENDDOC\"");
    v.push("            sel.EndKey 6");
    v.push("            sel.TypeText \"##### DOKUMENT-ENDE: \" & parts(1) & \" #####\" & vbCr");
    v.push("        End Select");
    v.push("    End If");
    v.push("Loop");
    v.push("ts.Close");
    v.push("Err.Clear");
    v.push("doc.SaveAs2 outDocx, 16");
    v.push("If Err.Number <> 0 Then failMsg = \"SaveAs: \" & Err.Description");
    v.push("doc.Close 0");
    v.push("wd.Quit 0");
    v.push("If failMsg = \"\" Then WriteOk fso, okPath, \"OK\" Else WriteOk fso, okPath, \"ERR:\" & failMsg");
    v.push("");
    v.push("Sub WriteOk(f, p, txt)");
    v.push("    Dim o");
    v.push("    Set o = f.CreateTextFile(p, True, False)");
    v.push("    o.Write txt");
    v.push("    o.Close");
    v.push("End Sub");
    return v.join("\r\n");
}

function wsStartCombined(onDone) {
    if (state._wsMsgFiles.length === 0) return wsShowError("Keine Mails im Ordner");
    if (state.cookie.length < 50) return wsShowError("Cookie fehlt");
    if (!outlookApp) return wsShowError("Outlook nicht verbunden");

    state._wsRunning = true;
    var b;
    if ((b = document.getElementById("wsPlay")))     b.disabled = true;
    if ((b = document.getElementById("wsBatch")))    b.disabled = true;
    if ((b = document.getElementById("wsCombined"))) b.disabled = true;
    if ((b = document.getElementById("wsChunked")))  b.disabled = true;
    if ((b = document.getElementById("wsTest")))     b.disabled = true;
    if ((b = document.getElementById("wsPick")))     b.disabled = true;
    if ((b = document.getElementById("wsPickOutlook"))) b.disabled = true;
    if ((b = document.getElementById("wsClose")))    b.disabled = true;
    document.getElementById("wsProgressWrap").style.display = "block";
    if (!onDone) document.getElementById("wsLog").innerText = "";
    wsProgress(0, state._wsMsgFiles.length + 2);
    wsShowInfo("KOMBI-PDF (parallel): " + state._wsMsgFiles.length + " Mails ueber mehrere Word-Worker buendeln...");

    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var shell = new ActiveXObject("WScript.Shell");
    var tmp = shell.ExpandEnvironmentStrings("%TEMP%");
    var stamp = String(new Date().getTime()) + "_" + Math.floor(Math.random()*100000);

    // Mails auslesen (sequenziell, schnell - nur Outlook-Lesen + PDFs in TEMP)
    var mails = [];
    for (var i = 0; i < state._wsMsgFiles.length; i++) {
        var mp = state._wsMsgFiles[i];
        wsLog("[" + (i+1) + "/" + state._wsMsgFiles.length + "] Lese: " + mp.substr(mp.lastIndexOf("\\")+1));
        var info = wsExtractMail(mp);
        mails.push(info);
        if (info.error) wsLog("   FEHLER: " + info.error, "err");
    }

    // Ziel-Ordner (wie Excel/.msg), Sammel-PDF bleibt dort liegen
    var cOut = "";
    try {
        if (state._wsFolder) {
            cOut = state._wsFolder.replace(/\\+$/, "") + "\\_KI-Vorgaenge";
            if (!fso.FolderExists(cOut)) fso.CreateFolder(cOut);
        }
    } catch(eCo) { cOut = ""; }
    if (!cOut) {
        try { cOut = tmp + "\\ERGO-KI-Vorgaenge"; if (!fso.FolderExists(cOut)) fso.CreateFolder(cOut); }
        catch(eCo2) { cOut = tmp; }
    }
    var combinedPdf = cOut.replace(/\\+$/, "") + "\\Sammeldokument_" + stamp + ".pdf";

    // Worker-VBS einmal schreiben
    var vbsPath = tmp + "\\ergo_kombi_" + stamp + ".vbs";
    try { var vf = fso.CreateTextFile(vbsPath, true, false); vf.Write(wsBuildKombiWorkerVbs()); vf.Close(); }
    catch(eVbs) { state._wsRunning = false; return wsShowError("Worker-Skript nicht schreibbar: " + eVbs.message); }

    var nMails = mails.length;
    var nWorkers = Math.min(WS_KOMBI_WORKERS, nMails);
    if (nWorkers < 1) nWorkers = 1;

    // Last NICHT nach Mail-Anzahl, sondern nach PDF-BYTES verteilen: ein dicker
    // (Scan-)Vertrag dominiert die Word-Reflow-Zeit. LPT-Scheduling: groesste
    // Vorgaenge zuerst, jeweils dem aktuell leichtesten Worker zuweisen.
    var items = [];
    for (var mi0 = 0; mi0 < nMails; mi0++) {
        var m0 = mails[mi0];
        if (m0.error) continue;
        var sz = 200;
        for (var ps = 0; ps < m0.pdfPaths.length; ps++) {
            try { sz += fso.GetFile(m0.pdfPaths[ps].path).Size; } catch(eSz) { sz += 50000; }
        }
        items.push({ mi: mi0, m: m0, sz: sz });
    }
    items.sort(function(a, b) { return b.sz - a.sz; });
    var buckets = [], loads = [];
    for (var bi = 0; bi < nWorkers; bi++) { buckets.push([]); loads.push(0); }
    for (var it = 0; it < items.length; it++) {
        var lw = 0;
        for (var lj = 1; lj < nWorkers; lj++) if (loads[lj] < loads[lw]) lw = lj;
        buckets[lw].push(items[it]);
        loads[lw] += items[it].sz;
    }

    var parts = [];
    var spawnList = [];
    for (var w = 0; w < nWorkers; w++) {
        var bk = buckets[w];
        if (!bk.length) continue;
        var jobPath = tmp + "\\ergo_kombi_" + stamp + "_job" + w + ".txt";
        var docxPath = tmp + "\\ergo_kombi_" + stamp + "_part" + w + ".docx";
        var okPath = tmp + "\\ergo_kombi_" + stamp + "_part" + w + ".ok";
        try { fso.DeleteFile(okPath, true); } catch(e) {}
        var bodyFiles = [];
        var jobLines = [];
        for (var bj = 0; bj < bk.length; bj++) {
            var m = bk[bj].m, mi = bk[bj].mi;
            var bodyPath = tmp + "\\ergo_kombi_" + stamp + "_b" + mi + ".txt";
            try { var bf = fso.CreateTextFile(bodyPath, true, true); bf.Write(String(m.body || "(kein Text)")); bf.Close(); }
            catch(eB) { bodyPath = ""; }
            bodyFiles.push(bodyPath);
            jobLines.push(["META", wsKombiSan(m.fileName), wsKombiSan(m.datum), wsKombiSan(m.absName),
                           wsKombiSan(m.absMail), wsKombiSan(m.betreff), bodyPath].join("\t"));
            for (var pj = 0; pj < m.pdfPaths.length; pj++) {
                jobLines.push(["PDF", m.pdfPaths[pj].path, wsKombiSan(m.pdfPaths[pj].name)].join("\t"));
            }
            jobLines.push(["ENDDOC", wsKombiSan(m.fileName)].join("\t"));
        }
        try { var jf = fso.CreateTextFile(jobPath, true, true); jf.Write(jobLines.join("\r\n")); jf.Close(); }
        catch(eJ) { continue; }
        var cmd = 'wscript.exe //NoLogo //B "' + vbsPath + '" "' + jobPath + '" "' + docxPath + '" "' + okPath + '"';
        parts.push({ w: w, jobPath: jobPath, docxPath: docxPath, okPath: okPath,
                     bodyFiles: bodyFiles, count: bk.length,
                     mb: Math.round(loads[w]/104857.6)/10, status: null });
        spawnList.push({ cmd: cmd, w: w, count: bk.length, mb: Math.round(loads[w]/104857.6)/10 });
    }

    // Gestaffelter Start (~1.5s) -> kein gleichzeitiger Word/Normal.dotm-Ansturm
    (function spawnNext(k) {
        if (k >= spawnList.length) return;
        var s = spawnList[k];
        try { shell.Run(s.cmd, 0, false); } catch(eRun) {}
        wsLog("Worker " + (s.w+1) + " gestartet (" + s.count + " Mails, ~" + s.mb + " MB PDF)", "muted");
        setTimeout(function() { spawnNext(k+1); }, 1500);
    })(0);

    state._wsKombi = {
        mails: mails, parts: parts, combinedPdf: combinedPdf, onDone: onDone || null,
        vbsPath: vbsPath, startAt: new Date().getTime(), _hbAt: 0
    };
    wsLog("");
    wsLog(parts.length + " Word-Worker (Last nach PDF-Größe verteilt) - HTA bleibt ansprechbar...", "head");
    setTimeout(wsKombiPoll, 600);
}

function wsKombiPoll() {
    var kb = state._wsKombi;
    if (!kb) return;
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var done = 0;
    for (var i = 0; i < kb.parts.length; i++) {
        var p = kb.parts[i];
        if (p.status) { done++; continue; }
        if (fso.FileExists(p.okPath)) {
            var txt = "OK";
            try { var ts = fso.OpenTextFile(p.okPath, 1, false, 0); txt = ts.AtEndOfStream ? "OK" : ts.ReadAll(); ts.Close(); } catch(e) {}
            p.status = (String(txt).substr(0,3) === "ERR") ? "err" : "ok";
            if (p.status === "err") wsLog("Worker " + (p.w+1) + " Fehler: " + txt, "err");
            else wsLog("Worker " + (p.w+1) + " fertig (" + p.count + " Mails -> Teil-Docx).", "ok");
            done++;
        }
    }
    wsProgress(done, kb.parts.length + 1);

    var el = new Date().getTime() - kb.startAt;
    if (el - kb._hbAt >= 15000 && done < kb.parts.length) {
        kb._hbAt = el;
        wsLog("... Worker laufen (" + done + "/" + kb.parts.length + ", " + Math.round(el/1000) + "s)", "muted");
    }
    if (done < kb.parts.length) {
        if (el > 1200000) {   // 20 min Notbremse
            wsLog("Kombi-Worker-Timeout (>20min) - fahre mit fertigen Teilen fort.", "err");
        } else {
            return setTimeout(wsKombiPoll, 800);
        }
    }
    setTimeout(wsKombiReduce, 50);
}

function wsKombiReduce() {
    var kb = state._wsKombi;
    if (!kb) return;
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    wsLog("Füge Teil-Dokumente zu EINER PDF zusammen (verlustfrei, kein Reflow)...", "head");
    var rw = null;
    try {
        rw = new ActiveXObject("Word.Application");
        rw.Visible = false;
        try { rw.DisplayAlerts = 0; } catch(e) {}
        try { rw.AutomationSecurity = 3; } catch(e) {}
        var rdoc = rw.Documents.Add();
        var rsel = rw.Selection;
        var firstPart = true, added = 0;
        for (var i = 0; i < kb.parts.length; i++) {
            var p = kb.parts[i];
            if (p.status !== "ok" || !fso.FileExists(p.docxPath)) continue;
            rsel.EndKey(6);
            if (!firstPart) { try { rsel.InsertBreak(7); } catch(eBr) {} }
            rsel.InsertFile(p.docxPath);
            firstPart = false; added++;
        }
        if (added === 0) throw new Error("Kein Teil-Dokument erzeugt (alle Worker fehlgeschlagen?)");
        rdoc.SaveAs2(kb.combinedPdf, 17);   // 17 = wdFormatPDF
        rdoc.Close(0);
        rw.Quit(0); rw = null;
        if (!fso.FileExists(kb.combinedPdf)) throw new Error("Sammel-PDF wurde nicht erzeugt");
        wsLog("Sammel-PDF fertig (" + added + " Teile): " + kb.combinedPdf, "ok");
    } catch(eR) {
        try { if (rw) rw.Quit(0); } catch(e) {}
        wsKombiCleanup(kb);
        state._wsKombi = null;
        if (kb.onDone) { kb.onDone([]); return; }
        wsShowError("Kombi-PDF (Zusammenfuegen) fehlgeschlagen: " + (eR.message || eR));
        wsRestoreUi();
        return;
    }
    wsKombiCleanup(kb);

    // -> normale Batch-Netzwerk-Pipeline (1 Upload + Kombi-Prompt)
    var prompt = wsBuildCombinedPrompt(kb.mails);
    var bs = {
        stage: "CREATING_CONV", mails: kb.mails,
        allPdfs: [{ path: kb.combinedPdf, name: "Sammeldokument.pdf" }],
        // stream:false - Kombi laeuft wieder ueber den schnellen In-HTA-Async-
        // Pfad (startAnswerAsync) wie vor v2.04. Der Subprozess-Stream startet
        // pro Lauf einen kalten wscript+WinHttp-Prozess: im ERGO-Netz erneute
        // Proxy-Aufloesung/-Authentifizierung => deutlich langsamer als die
        // warme, schon authentifizierte In-HTA-Verbindung. Der v2.04-Crash
        // (staendiges Neu-Parsen der wachsenden .part-Datei) existiert hier
        // nicht: die Antwort wird EINMAL gelesen (In-Memory, kein Datei-/
        // Domaenen-Block) und EINMAL geparst.
        combinedPdf: kb.combinedPdf, prompt: prompt, stream: false,
        convHttp: createConversationAsyncFire(prompt), convId: null,
        uploadHandles: [], docIds: [], docIdsJson: "[]",
        answerHttp: null, startedAt: new Date().getTime(), onDone: kb.onDone
    };
    state._wsKombi = null;
    state._wsBatch = bs;
    wsLog("Lade Sammel-PDF hoch, 1 Conversation...");
    setTimeout(wsBatchTick, 200);
}

function wsKombiCleanup(kb) {
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    try { fso.DeleteFile(kb.vbsPath, true); } catch(e) {}
    for (var i = 0; i < kb.parts.length; i++) {
        var p = kb.parts[i];
        try { fso.DeleteFile(p.jobPath, true); } catch(e) {}
        try { fso.DeleteFile(p.okPath, true); } catch(e) {}
        try { fso.DeleteFile(p.docxPath, true); } catch(e) {}
        for (var bf = 0; bf < p.bodyFiles.length; bf++) { try { if (p.bodyFiles[bf]) fso.DeleteFile(p.bodyFiles[bf], true); } catch(e) {} }
    }
    // TEMP-PDFs der Mails aufraeumen
    for (var mi = 0; mi < kb.mails.length; mi++) {
        try {
            var mm = kb.mails[mi];
            for (var cp = 0; cp < mm.pdfPaths.length; cp++) { try { fso.DeleteFile(mm.pdfPaths[cp].path, true); } catch(e) {} }
            if (mm.tempDir && fso.FolderExists(mm.tempDir)) fso.DeleteFolder(mm.tempDir, true);
        } catch(e) {}
    }
}

// TESTMODUS: erst parallel, dann batch, dann Vergleichsdatei schreiben
function wsRunTest() {
    if (state._wsRunning) return;
    if (state._wsMsgFiles.length === 0) return wsShowError("Keine Mails im Ordner");
    if (state.cookie.length < 50) return wsShowError("Cookie fehlt");
    if (!outlookApp) return wsShowError("Outlook nicht verbunden");
    document.getElementById("wsLog").innerText = "";
    wsLog("=== TESTMODUS 1/3: PARALLEL ===", "head");
    wsStartParallel(function(par) {
        wsLog("");
        wsLog("=== TESTMODUS 2/3: BATCH (1 Prompt) ===", "head");
        state._wsRunning = false;
        wsStartBatch(function(bat) {
            wsLog("");
            wsLog("=== TESTMODUS 3/3: KOMBI-PDF ===", "head");
            state._wsRunning = false;
            wsStartCombined(function(comb) {
                wsLog("");
                wsLog("Schreibe Vergleichsdatei (alle 3 Modi)...", "head");
                wsWriteComparison(par, bat, comb);
                wsRestoreUi();
            });
        });
    });
}

// Vergleichsdatei: PARALLEL (P) vs. BATCH (B) vs. KOMBI-PDF (K), je Feld -
// zum Hochladen bei einer KI.
function wsWriteComparison(par, bat, comb) {
    var fso = new ActiveXObject("Scripting.FileSystemObject");
    var shell = new ActiveXObject("WScript.Shell");
    var outDir = "";
    try {
        if (state._wsFolder) {
            outDir = state._wsFolder.replace(/\\+$/, "") + "\\_KI-Vorgaenge";
            if (!fso.FolderExists(outDir)) fso.CreateFolder(outDir);
        }
    } catch(e) { outDir = ""; }
    if (!outDir) { try { outDir = shell.ExpandEnvironmentStrings("%TEMP%"); } catch(e) {} }

    function idx(arr) { var o = {}; for (var i=0;i<(arr||[]).length;i++) o[String(arr[i].fileName).toLowerCase()] = arr[i]; return o; }
    var pIdx = idx(par), bIdx = idx(bat), kIdx = idx(comb);
    var files = {}, k, src = [pIdx, bIdx, kIdx];
    for (var si = 0; si < src.length; si++) for (k in src[si]) if (src[si].hasOwnProperty(k)) files[k] = true;

    var fields = ["vorgangstyp","klassifikation","klassifikation_grund","ist_reminder","reminder_quelle",
        "nicht_neuer_vorgang_grund","maklerpool","makler_nachname","makler_vorname","agentur_nummer",
        "vermittler_nummer","auftrag_datum","kunde_nachname","kunde_vorname","kunde_nummer",
        "versicherungsnummer","sparte","geschaefts_typ","unterlagen_angefragt","unterlagen_liste",
        "sonderfall","anhang_typen","pdf_qualitaet","enthaelt_maklervollmacht","mv_vollumfaenglich",
        "mv_einschraenkungen","mv_status","unterschrift_kunde","unterschrift_makler","auf_vn_ausgestellt",
        "makler_namentlich_genannt","zusammenfassung","naechster_schritt","hinweis"];

    function norm(v){ return (v==null?"":String(v)).replace(/\s+/g," ").replace(/^\s+|\s+$/g,""); }

    var t = "ERGO Vorgang-Analyse - VERGLEICH: PARALLEL (P) vs. BATCH (B) vs. KOMBI-PDF (K)\r\n";
    t += "Erstellt: " + new Date().toLocaleString() + "\r\n";
    t += "Mails: " + (function(){var c=0,x;for(x in files)if(files.hasOwnProperty(x))c++;return c;})() +
         " | P-Treffer: " + (par?par.length:0) +
         " | B-Treffer: " + (bat?bat.length:0) +
         " | K-Treffer: " + (comb?comb.length:0) + "\r\n";
    t += "Frage an die pruefende KI: Wo unterscheiden sich die 3 Modi (P/B/K) inhaltlich je Feld? " +
         "Welcher Modus ist je Feld am plausibelsten und warum? Gibt es Vermischungen (falsche Mail-Zuordnung) " +
         "in B oder K? Welcher Modus ist insgesamt am verlaesslichsten?\r\n";
    t += "============================================================\r\n\r\n";

    var totalDiff = 0;
    for (k in files) {
        if (!files.hasOwnProperty(k)) continue;
        var pr = pIdx[k], br = bIdx[k], kr = kIdx[k];
        var name = (pr&&pr.fileName) || (br&&br.fileName) || (kr&&kr.fileName) || k;
        t += "##### DATEI: " + name + " #####\r\n";
        if (!pr) t += "  (in PARALLEL nicht vorhanden)\r\n";
        if (!br) t += "  (in BATCH nicht vorhanden)\r\n";
        if (!kr) t += "  (in KOMBI-PDF nicht vorhanden)\r\n";
        var pd = (pr&&pr.data)||{}, bd = (br&&br.data)||{}, kd = (kr&&kr.data)||{};
        for (var fi = 0; fi < fields.length; fi++) {
            var f = fields[fi];
            var pv = pd[f]==null?"":String(pd[f]);
            var bv = bd[f]==null?"":String(bd[f]);
            var kv = kd[f]==null?"":String(kd[f]);
            var diff = !(norm(pv)===norm(bv) && norm(bv)===norm(kv));
            if (diff) totalDiff++;
            t += (diff ? " * " : "   ") + f + "\r\n";
            t += "      P: " + pv + "\r\n";
            t += "      B: " + bv + "\r\n";
            t += "      K: " + kv + "\r\n";
        }
        t += "\r\n";
    }
    t += "============================================================\r\n";
    function dump(label, arr) {
        var s = "ROH-JSON " + label + ":\r\n";
        for (var a=0;a<(arr||[]).length;a++) s += arr[a].fileName + ": " + jsonStringifySafe(arr[a].data) + "\r\n";
        return s + "\r\n";
    }
    t += dump("PARALLEL", par) + dump("BATCH", bat) + dump("KOMBI-PDF", comb);

    var dt = new Date();
    function p2(n){ n=String(n); return n.length<2?"0"+n:n; }
    var stamp = String(dt.getFullYear()) + p2(dt.getMonth()+1) + p2(dt.getDate()) + "_" +
                p2(dt.getHours()) + p2(dt.getMinutes()) + p2(dt.getSeconds());
    var path = outDir.replace(/\\+$/, "") + "\\KI-Vergleich_P-B-K_" + stamp + ".txt";
    try {
        var f = fso.CreateTextFile(path, true, true); // Unicode (UTF-16) wegen Umlauten
        f.Write(t);
        f.Close();
        wsLog("Vergleichsdatei: " + path + " (" + totalDiff + " abweichende Felder gesamt)", "ok");
        wsShowSuccess("Testmodus fertig (Parallel + Batch + Kombi-PDF). <strong>" + totalDiff +
            "</strong> abweichende Felder. Vergleichsdatei im Ergebnis-Ordner &mdash; bei einer KI " +
            "hochladen, um die 3 Modi pr&uuml;fen zu lassen.");
        try { shell.Run('notepad.exe "' + path + '"', 1, false); } catch(eN) {}
    } catch(eW) {
        wsShowError("Vergleichsdatei konnte nicht geschrieben werden: " + (eW.message || eW));
    }
}

// Minimaler, robuster JSON-Stringifier (IE-JScript hat kein JSON.stringify)
function jsonStringifySafe(o) {
    if (o == null) return "null";
    var t = typeof o;
    if (t === "number" || t === "boolean") return String(o);
    if (t === "string") return '"' + o.replace(/\\/g,"\\\\").replace(/"/g,'\\"').replace(/[\r\n]+/g," ") + '"';
    if (o.length != null && t !== "string") {
        var a = [];
        for (var i=0;i<o.length;i++) a.push(jsonStringifySafe(o[i]));
        return "[" + a.join(",") + "]";
    }
    var parts = [];
    for (var k in o) if (o.hasOwnProperty(k)) parts.push('"' + k + '":' + jsonStringifySafe(o[k]));
    return "{" + parts.join(",") + "}";
}

</script>

<script language="VBScript">
' Liest eine Datei komplett: binary load via ADODB.Stream, verify size, return raw text
' decoded as UTF-16 LE. Macht ALLES in VBScript - keine JScript-VBArray-Konversion,
' die bei grossen Arrays Partial-Returns produziert.
Function ReadFileFullUtf16LE(path)
    Dim stm, fso, fileSize, byteCount, raw, i, sb, b1, b2
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(path) Then
        ReadFileFullUtf16LE = ""
        Exit Function
    End If
    fileSize = fso.GetFile(path).Size
    Set stm = CreateObject("ADODB.Stream")
    stm.Type = 1  ' Binary
    stm.Open
    stm.LoadFromFile path
    byteCount = stm.Size
    If byteCount <> fileSize Then
        stm.Close
        Err.Raise vbObjectError + 1, "ReadFileFullUtf16LE", "Stream.Size " & byteCount & " <> fileSize " & fileSize
    End If
    stm.Position = 0
    Dim byteArr
    byteArr = stm.Read
    stm.Close

    ' BOM erkennen
    Dim startIdx
    startIdx = 0
    If byteCount >= 2 Then
        If AscB(MidB(byteArr, 1, 1)) = 255 And AscB(MidB(byteArr, 2, 1)) = 254 Then
            startIdx = 2
        End If
    End If

    ' UTF-16 LE Byte-Paare zu Chars. MidB(byteArr, n, 1) liefert das n-te Byte (1-basiert).
    ' Wir bauen in 32k-Chunks, dann Join - vermeidet O(n^2) String-Concat.
    Dim chunks(), chunkCount, cur
    ReDim chunks(byteCount \ 65536 + 2)
    chunkCount = 0
    cur = ""
    For i = startIdx + 1 To byteCount - 1 Step 2
        b1 = AscB(MidB(byteArr, i, 1))
        b2 = AscB(MidB(byteArr, i + 1, 1))
        cur = cur & ChrW(b1 + b2 * 256)
        If Len(cur) >= 32768 Then
            chunks(chunkCount) = cur
            chunkCount = chunkCount + 1
            cur = ""
        End If
    Next
    If Len(cur) > 0 Then
        chunks(chunkCount) = cur
        chunkCount = chunkCount + 1
    End If
    ReDim Preserve chunks(chunkCount - 1)
    ReadFileFullUtf16LE = Join(chunks, "")
End Function

' Kanonisches Pattern (Eric Lippert / MS Learn): JScript kann SafeArrays NICHT
' zurueck zu COM marshalen. Wenn ein VBScript-Helper ein Array baut und zurueck-
' gibt, sieht JScript es als IDispatch-Wrapper - Excel.Range.Value akzeptiert das
' aber schreibt leere Zellen.
'
' Loesung: das Assignment passiert INNERHALB von VBScript. JScript reicht die
' Range als IDispatch + den TSV-String rein, VBScript baut das 2D-Array UND
' macht "rng.Value = arr" intern. So bleibt das SafeArray nie ausserhalb von
' VBScript/COM.
Sub FillRangeFromTsv(rng, tsv, rowSep, colSep, nRows, nCols)
    Dim lines, parts, arr(), i, j
    lines = Split(tsv, rowSep)
    ReDim arr(nRows - 1, nCols - 1)
    For i = 0 To nRows - 1
        If i <= UBound(lines) Then
            parts = Split(lines(i), colSep)
            For j = 0 To nCols - 1
                If j <= UBound(parts) Then
                    arr(i, j) = parts(j)
                Else
                    arr(i, j) = ""
                End If
            Next
        End If
    Next
    rng.Value = arr   ' Assignment passiert INNERHALB VBScript - SafeArray bleibt nie in JScript
End Sub

' Legacy-Helper, bleibt fuer Per-Row-Fallback erhalten
Function TsvToVbArray(tsv, sep)
    TsvToVbArray = Split(tsv, sep)
End Function
</script>

<!-- ======================== WORKSHOP-OVERLAY ======================== -->
<style>
#workshopOverlay {
    position: fixed; top: 0; left: 0; right: 0; bottom: 0;
    background: #ffffff;
    z-index: 9999;
    overflow-y: auto;
    display: none;
    font-family: 'Segoe UI', Tahoma, sans-serif;
}
#workshopOverlay .ws-wrap {
    max-width: 720px; margin: 0 auto; padding: 60px 40px;
}
#workshopOverlay .ws-close {
    position: absolute; top: 20px; right: 24px;
    background: #ffffff; border: 1px solid #e5e7eb; color: #6b7280;
    padding: 8px 16px; border-radius: 8px; cursor: pointer;
    font-size: 13px; font-weight: 500; font-family: inherit;
}
#workshopOverlay .ws-close:hover { background: #f3f4f6; color: #1f2937; }
#workshopOverlay .ws-header { text-align: center; margin-bottom: 50px; }
#workshopOverlay .ws-logo {
    display: inline-flex; align-items: center; justify-content: center;
    width: 64px; height: 64px; background: #c8102e; border-radius: 16px;
    margin-bottom: 24px; color: #fff; font-size: 22px; font-weight: 700;
}
#workshopOverlay .ws-header h1 { font-size: 28px; font-weight: 700; color: #111827; margin-bottom: 8px; }
#workshopOverlay .ws-sub { font-size: 15px; color: #6b7280; }
#workshopOverlay .ws-card {
    background: #ffffff; border: 1px solid #e5e7eb; border-radius: 14px;
    padding: 32px; margin-bottom: 24px; box-shadow: 0 1px 3px rgba(0,0,0,0.02);
}
#workshopOverlay .ws-step-num {
    display: inline-flex; align-items: center; justify-content: center;
    width: 28px; height: 28px; background: #f3f4f6; color: #4b5563;
    border-radius: 50%; font-weight: 600; font-size: 13px; margin-right: 12px;
}
#workshopOverlay .ws-step-label {
    font-size: 14px; font-weight: 600; color: #1f2937;
    display: flex; align-items: center; margin-bottom: 16px;
}
#workshopOverlay .ws-folder-display {
    display: flex; align-items: center; padding: 14px 16px;
    background: #f9fafb; border: 1px solid #e5e7eb; border-radius: 10px;
    font-size: 13px; color: #4b5563; margin-bottom: 12px; min-height: 50px;
}
#workshopOverlay .ws-folder-display .ws-icon { margin-right: 12px; font-size: 18px; color: #c8102e; }
#workshopOverlay .ws-folder-path { flex: 1; word-break: break-all; }
#workshopOverlay .ws-folder-path.ws-empty { color: #9ca3af; font-style: italic; }
#workshopOverlay button.ws-btn-folder {
    background: #ffffff; color: #1f2937; border: 1.5px solid #d1d5db;
    padding: 12px 20px; border-radius: 10px; font-size: 14px; font-weight: 500;
    cursor: pointer; font-family: inherit;
}
#workshopOverlay button.ws-btn-folder:hover { background: #f3f4f6; border-color: #9ca3af; }
#workshopOverlay button.ws-btn-play {
    width: 100%; padding: 24px 32px; background: #c8102e; color: #fff;
    border: none; border-radius: 14px; font-size: 18px; font-weight: 600;
    cursor: pointer; font-family: inherit; margin-bottom: 24px;
    display: flex; align-items: center; justify-content: center;
}
#workshopOverlay button.ws-btn-play:hover {
    background: #a30d24;
}
#workshopOverlay button.ws-btn-play:disabled {
    background: #d1d5db; cursor: not-allowed;
}
#workshopOverlay .ws-play-icon { margin-right: 12px; font-size: 22px; }
#workshopOverlay .ws-info-grid { display: flex; gap: 12px; margin-top: 16px; }
#workshopOverlay .ws-info-tile {
    flex: 1; padding: 16px; background: #f9fafb; border-radius: 10px;
    border: 1px solid #e5e7eb; text-align: center;
}
#workshopOverlay .ws-info-tile .ws-num {
    font-size: 24px; font-weight: 700; color: #c8102e; display: block;
}
#workshopOverlay .ws-info-tile .ws-lbl { font-size: 12px; color: #6b7280; margin-top: 4px; }
#workshopOverlay .ws-status {
    padding: 16px 20px; border-radius: 10px; font-size: 14px;
    margin-bottom: 16px; display: none;
}
#workshopOverlay .ws-status.ws-info { background: #eff6ff; border: 1px solid #bfdbfe; color: #1e40af; display: block; }
#workshopOverlay .ws-status.ws-success { background: #f0fdf4; border: 1px solid #bbf7d0; color: #15803d; display: block; }
#workshopOverlay .ws-status.ws-error { background: #fef2f2; border: 1px solid #fecaca; color: #b91c1c; display: block; }
#workshopOverlay .ws-progress-wrap { display: none; margin-bottom: 16px; }
#workshopOverlay .ws-progress-bar {
    height: 6px; background: #f3f4f6; border-radius: 3px; overflow: hidden;
}
#workshopOverlay .ws-progress-fill { height: 100%; background: #c8102e; width: 0%; }
#workshopOverlay .ws-progress-text { font-size: 13px; color: #6b7280; margin-top: 8px; }
#workshopOverlay .ws-log {
    background: #0f172a; border: 1px solid #1e293b; border-radius: 10px;
    padding: 10px 12px; font-size: 12px; color: #cbd5e1;
    max-height: 260px; overflow-y: auto; display: none; margin-top: 16px;
}
#workshopOverlay .ws-ll {
    display: flex; gap: 10px; align-items: flex-start;
    padding: 3px 8px; border-radius: 5px; border-left: 3px solid transparent;
    margin: 1px 0; line-height: 1.45;
}
#workshopOverlay .ws-ll .ws-llt {
    color: #64748b; font-family: 'Consolas','Courier New',monospace;
    font-size: 11px; flex: 0 0 auto; padding-top: 1px;
    /* margin-right statt flex-gap: MSHTA/Trident kennt flexbox 'gap' nicht,
       sonst klebt die Uhrzeit am Log-Text (21:04:03Lade...). */
    margin-right: 12px;
}
#workshopOverlay .ws-ll .ws-llm {
    font-family: 'Segoe UI', Tahoma, sans-serif; white-space: pre-wrap;
    word-break: break-word; flex: 1;
}
#workshopOverlay .ws-ll-info  { background: rgba(255,255,255,0.02); }
#workshopOverlay .ws-ll-info  .ws-llm { color: #e2e8f0; }
#workshopOverlay .ws-ll-ok    { background: rgba(34,197,94,0.10);  border-left-color: #22c55e; }
#workshopOverlay .ws-ll-ok    .ws-llm { color: #86efac; }
#workshopOverlay .ws-ll-err   { background: rgba(239,68,68,0.12);  border-left-color: #ef4444; }
#workshopOverlay .ws-ll-err   .ws-llm { color: #fca5a5; font-weight: 600; }
#workshopOverlay .ws-ll-muted .ws-llm { color: #64748b; font-style: italic; }
#workshopOverlay .ws-ll-head  { background: rgba(200,16,46,0.14); border-left-color: #c8102e; }
#workshopOverlay .ws-ll-head  .ws-llm { color: #fda4af; font-weight: 700; letter-spacing: .03em; }
#workshopOverlay .ws-footer { text-align: center; color: #9ca3af; font-size: 11px; margin-top: 40px; }
</style>

<div id="workshopOverlay">
    <button id="wsClose" class="ws-close" onclick="closeWorkshopMode()">&larr; zur&uuml;ck</button>
    <div class="ws-wrap">
        <div class="ws-header">
            <div class="ws-logo">KI</div>
            <h1>ERGO Vorgang-Analyse</h1>
            <div class="ws-sub">Workshop-Demo &middot; Mails im Ordner analysieren und beschriften</div>
        </div>

        <div class="ws-card">
            <div class="ws-step-label"><span class="ws-step-num">1</span>Ordner mit Demo-Mails w&auml;hlen</div>
            <div id="wsCookieState" class="ws-status" style="display:none;"></div>
            <div class="ws-folder-display">
                <span class="ws-icon">&#128193;</span>
                <span class="ws-folder-path ws-empty" id="wsFolderPath">Noch kein Ordner gew&auml;hlt</span>
            </div>
            <div style="display:flex;gap:8px;flex-wrap:wrap;">
                <button class="ws-btn-folder" id="wsPick" onclick="wsPickFolder()"
                        title="Bereits gespeicherte .msg-Dateien aus einem Ordner einlesen">
                    &#128193; Ordner w&auml;hlen...
                </button>
                <button class="ws-btn-folder" id="wsPickOutlook" onclick="wsPickOutlookFolder()"
                        title="Outlook-Ordner im Postfach ausw&auml;hlen - alle Mails darin werden als .msg in einen lokalen Ordner exportiert (Originalbetreff = Dateiname) und direkt als Workshop-Input verwendet."
                        style="border-color:#0078d4;color:#0078d4;font-weight:600;">
                    &#128231; Outlook-Ordner exportieren...
                </button>
            </div>
            <div class="ws-info-grid" id="wsInfoGrid" style="display:none;">
                <div class="ws-info-tile">
                    <span class="ws-num" id="wsNumMsgs">0</span>
                    <div class="ws-lbl">.msg-Dateien gefunden</div>
                </div>
            </div>
        </div>

        <div class="ws-card">
            <div class="ws-step-label"><span class="ws-step-num">2</span>Analyse starten</div>
            <div id="wsStatusInfo" class="ws-status ws-info"></div>
            <div id="wsStatusSuccess" class="ws-status ws-success"></div>
            <div id="wsStatusError" class="ws-status ws-error"></div>
            <div class="ws-progress-wrap" id="wsProgressWrap">
                <div class="ws-progress-bar"><div class="ws-progress-fill" id="wsProgressFill"></div></div>
                <div class="ws-progress-text" id="wsProgressText">0 von 0</div>
            </div>
            <div id="wsSkipRow" onclick="wsToggleSkip()" style="display:table;width:100%;background:#f0fdf4;border:1px solid #bbf7d0;border-radius:10px;padding:12px 14px;margin-bottom:12px;cursor:pointer;font-size:13px;color:#1f2937;box-sizing:border-box;">
                <div style="display:table-cell;width:34px;vertical-align:top;">
                    <span id="wsSkipBox" style="display:inline-block;width:22px;height:22px;border-radius:5px;background:#16a34a;border:1px solid #15803d;color:#fff;text-align:center;line-height:21px;font-weight:700;font-size:15px;">&#10003;</span>
                </div>
                <div style="display:table-cell;vertical-align:top;line-height:1.5;">
                    <strong>Scan-/Foto-PDFs &uuml;berspringen (schnell)</strong> &mdash; PDFs ohne Textebene
                    werden nicht analysiert, sondern als <em>&bdquo;Scan &ndash; manuell pr&uuml;fen&ldquo;</em>
                    markiert. Massiv schneller (kein Word-Reflow / kein OCR-Upload f&uuml;r Scans).
                </div>
            </div>
            <input type="checkbox" id="wsSkipScans" checked style="display:none;">
            <div style="background:#fff7ed;border:1px solid #fed7aa;border-radius:10px;padding:12px 14px;margin-bottom:12px;font-size:13px;color:#1f2937;box-sizing:border-box;">
                <div style="font-weight:600;margin-bottom:6px;color:#9a3412;">Forward an Zielpostfach (optional)</div>
                <input type="email" id="wsForwardTo" placeholder="z.B. zielpostfach@firma.de (leer = nicht weiterleiten)"
                       style="width:100%;padding:8px 10px;border:1px solid #fed7aa;border-radius:6px;font-size:13px;font-family:inherit;box-sizing:border-box;background:#fff;">
                <div style="margin-top:6px;font-size:11px;color:#7c2d12;line-height:1.4;">
                    Wenn gesetzt, wird jede angereicherte Mail nach dem Speichern automatisch per Outlook-Forward
                    an diese Adresse geschickt. Outlook fragt evtl. 1x &laquo;Zugriff zulassen&raquo; - Haken setzen,
                    bestaetigen, l&auml;uft danach durch. <strong>Wichtig:</strong> die urspr&uuml;ngliche
                    Umleitungs-Regel im Posteingang deaktivieren, sonst landet das Ziel-Postfach jede Mail doppelt.
                </div>
            </div>
            <button class="ws-btn-play" id="wsPlay" onclick="wsRunDemo()" disabled>
                <span class="ws-play-icon">&#9654;</span><span>Analyse starten</span>
            </button>
            <div class="ws-log" id="wsLog"></div>
        </div>

        <div class="ws-footer">Datenfluss bleibt lokal &middot; ErgoGPT-Backend &middot; Vorgang-Analyse v2.11</div>
    </div>
</div>

</body>
</html>