feat(postfach): crm@perinco.de lesend anbinden, Kontakte aus Mails

Spiegelt das Vertriebspostfach ueber Microsoft Graph ins CRM. Aus jeder Mail
entstehen Kontakt-Vorschlaege, und jede Mail laesst sich an Opportunities und
Kontakte haengen.

Uebernommen ist die Idee aus dem Altsystem KeepTrack, nicht die Umsetzung:

- Delta Query statt "$filter=isRead eq false" mit anschliessendem PATCH. Damit
  genuegt die Anwendungsberechtigung Mail.Read, es braucht keinen Schreibzugriff
  auf das Postfach, und eine vorher in Outlook geoeffnete Mail geht nicht
  verloren. Der Fortschritt liegt als delta_link in der Datenbank und ueberlebt
  Neustarts; ein Lauf ist gedeckelt und fortsetzbar.
- Tenant- und Client-ID kommen aus der .env, nicht aus dem Browser. Im
  Altsystem konnte jeder Angemeldete das Server-Secret gegen einen fremden
  Tenant verwenden.
- Kontaktdaten werden aus den Graph-Feldern und der Signatur gelesen, ohne
  Sprachmodell. Mailinhalte verlassen den Server nicht.
- Ein Vorschlag ohne E-Mail-Adresse wird nicht mit einer erfundenen Adresse
  angelegt, sondern bleibt zur Durchsicht liegen. Ist die Adresse schon als
  Kontakt vorhanden, werden nur leere Felder ergaenzt.
- Mails haengen als eigene Verknuepfung an Opportunity und Kontakt, nicht als
  Text im Notizfeld - loesbar und mehrfach moeglich.
- Fremdes Mail-HTML wird serverseitig entschaerft und in einem iframe mit
  sandbox="" gezeigt. Externe Bilder sind per CSP gesperrt, damit das Oeffnen
  dem Absender nichts meldet.
- Der Verbindungstest prueft Anmeldung und tatsaechlichen Postfachzugriff und
  benennt den wahrscheinlichen Grund. Der alte Test holte nur ein Token.

Fehlen die MS_*-Werte, startet das CRM normal; die Einstellungen nennen die
fehlende Variable. Neue Tabellen: crm_mail_messages, crm_mail_links,
crm_mail_contact_candidates, crm_mail_sync_state, crm_settings.

Uebernommene Kontakte tragen source = 'Mail'; die Kontaktliste hat dafuer einen
Herkunftsfilter.

Nicht enthalten: Senden, Antworten, Weiterleiten, Anhaenge und die automatische
Zuordnung zu Opportunities.

npm test im Verzeichnis server prueft Kontaktextraktion und Graph-Client
(47 Pruefungen, ohne Framework und ohne Datenbank).

Co-Authored-By: Claude Opus 5 (1M context) <noreply@anthropic.com>

server/src/settings.js

@@ -0,0 +1,62 @@
+import { pool } from './db.js';
+
+/*
+ * Allgemeine CRM-Einstellungen (Tabelle crm_settings) als Schluessel/Wert.
+ *
+ * Absichtlich getrennt von den Scanner-Einstellungen: der Scanner hat seine
+ * eigene Datenbank und sein eigenes Setting-Modell. Und absichtlich ohne
+ * Geheimnisse - Zugangsdaten fuer Microsoft 365 stehen ausschliesslich in der
+ * .env, damit ein Datenbank-Dump keine Secrets enthaelt.
+ *
+ * Alle Werte liegen als Text in der Datenbank, auch Zahlen und Schalter. Die
+ * Helfer unten wandeln beim Lesen.
+ */
+
+/** Einzelnen Wert lesen; `fallback`, wenn der Schluessel fehlt. */
+export async function getSetting(key, fallback = null) {
+  const [rows] = await pool.query('SELECT value FROM crm_settings WHERE key_name = ? LIMIT 1', [key]);
+  return rows[0] ? rows[0].value : fallback;
+}
+
+/**
+ * Mehrere Werte auf einmal, aufgefuellt mit den Vorgaben. `defaults` ist
+ * gleichzeitig die Liste der erlaubten Schluessel.
+ */
+export async function getSettings(defaults) {
+  const keys = Object.keys(defaults);
+  if (keys.length === 0) return {};
+
+  const [rows] = await pool.query(
+    `SELECT key_name, value FROM crm_settings WHERE key_name IN (${keys.map(() => '?').join(', ')})`,
+    keys
+  );
+
+  const result = { ...defaults };
+  for (const row of rows) {
+    // Ein leerer Eintrag soll nicht die Vorgabe ueberschreiben.
+    if (row.value !== null && row.value !== '') result[row.key_name] = row.value;
+  }
+  return result;
+}
+
+/** Wert setzen (anlegen oder ueberschreiben). */
+export async function setSetting(key, value) {
+  await pool.query(
+    `INSERT INTO crm_settings (key_name, value) VALUES (?, ?)
+     ON DUPLICATE KEY UPDATE value = VALUES(value)`,
+    [key, value === null || value === undefined ? null : String(value)]
+  );
+}
+
+/** `'true'` gilt als an, alles andere als aus. */
+export function asBool(value, fallback = false) {
+  if (value === undefined || value === null || value === '') return fallback;
+  return String(value) === 'true' || String(value) === '1';
+}
+
+/** Zahl mit Grenzen; ausserhalb oder unlesbar heisst Vorgabe. */
+export function asInt(value, fallback, { min = -Infinity, max = Infinity } = {}) {
+  const parsed = Number.parseInt(String(value ?? ''), 10);
+  if (!Number.isFinite(parsed)) return fallback;
+  return Math.min(max, Math.max(min, parsed));
+}