Outlook e-mails (.msg) read as text; required label languages; installer script order fix

Author: willowdev-code

CHANGELOG.md

@@ -13,6 +13,10 @@ Screenshots and documents for Claude, D365 labels, checks before testing, ready
 - `ado_create_tree`: a tree of work items from an indented list, previewed, one undo for all of it.
 - `ado_metrics`: velocity per sprint, cycle and lead time, what is in progress longest.
 - `ado_changes file=a;b;c`: several diffs in one call.
+- Outlook e-mails (.msg) attached to work items are read: subject, sender, recipients, date, the files attached to the
+  e-mail and its text (plain, or HTML turned into text).
+- Required label languages per connection (`adolens config --connection <c> --label-languages "en-US, pl"`, or the
+  settings menu): `ado_review` and `ado_label` report missing texts only in those languages.
 - Prompts (ready commands in Claude Desktop "+" and Claude Code "/"): verify, explain, story, sprint, refine, test, wiki,
   label, dev_start, dev_pr, dev_build, dev_why - each runs its skill, no skill upload needed.
 - Skills `po-refine`, `po-test`, `po-wiki`, `dev-start`, `dev-pr`, `dev-build`, `dev-why`; `po-verify`, `po-explain`

README.md

@@ -214,11 +214,11 @@ What each MCP tool answers, when Claude should reach for it, and the CLI command
 | `ado_wiki_write` | `create` a page, `append` / `prepend` to it, or `replace` it with the version from the last full read — a page changed by someone else in the meantime is never overwritten; optional change comment | release notes, keeping docs current | `adolens wiki-write "Team/Release notes" --file notes.md --mode append` |
 | `ado_tests` | the tests of work items (ids) or of a sprint's requirements and bugs: their Test Cases with the latest outcome per plan, suite and configuration (who, when), items without tests; `detail=full` adds the steps | "is it tested", sprint review | `adolens tests 123`, `adolens tests` (current sprint) |
 | `ado_test_create` | Test Cases for a work item from markdown (`## title`, steps `1. action => expected`), linked as tested-by, in the item's area and iteration; `plan` + `suite` (id or name) add them to a suite | turning acceptance criteria into tests | `adolens test-create 123 --file cases.md --plan R1 --suite Login` |
-| `ado_attachments` | the files of a work item and the screenshots pasted into its text or comments; `file` shows an image to Claude or gives the text of a Word, Excel or text file; `add` attaches a local file | specifications and e-mails attached to items, "look at the screenshot" | `adolens attachments 123`, `adolens attachments 123 --file 2` |
+| `ado_attachments` | the files of a work item and the screenshots pasted into its text or comments; `file` shows an image to Claude or gives the text of a Word, Excel, Outlook e-mail (.msg) or text file; `add` attaches a local file | specifications and e-mails attached to items, "look at the screenshot" | `adolens attachments 123`, `adolens attachments 123 --file 2` |
 | `ado_create_tree` | a tree of work items from an indented list (`- Feature: …`, children indented, `\| description`, `@person`), under an existing item if given; previewed first, one undo removes it all | breaking a feature into requirements and tasks | — |
 | `ado_metrics` | done items and estimate per finished sprint (velocity), cycle and lead time (median, 85%), what is in progress longest | "are we getting faster", planning | `adolens metrics --sprints 6` |
 | `ado_label` | a D365 message pasted as seen (values in place of %1 %2 … are fine) or `@File:Id`: the label, its text in every language (missing ones flagged) and the objects, X++ methods, fields and controls using it | "where does this error come from" | `adolens label "Item 1234: received 12, on hand 5"` |
-| `ado_review` | checks of a change, or of every change of a work item and its tasks, before testing: work item linked, labels added or used exist in every language, X++ messages from labels, no TODO left | before moving to test, PR review | `adolens review 523`, `adolens review --item 123` |
+| `ado_review` | checks of a change, or of every change of a work item and its tasks, before testing: work item linked, labels added or used exist in every required language (`config --label-languages`), X++ messages from labels, no TODO left | before moving to test, PR review | `adolens review 523`, `adolens review --item 123` |
 | `ado_my_day` | since the previous working day (or `since`): where you were mentioned (all projects), your items and followed items changed by others, pull requests waiting for your review | the start of the day | `adolens myday --since 3d` |
 | `ado_search` | one search over work items (full text, with the field that matched), wiki pages and code (Git and TFVC, X++ objects named), grouped; a part that is not available (e.g. Code Search not installed) is reported and the rest still answers | "how does X work", "where is Y" | `adolens search "credit limit" --scope work;wiki` |
 | `ado_file` | a file by TFVC path, Git path + repo, or just its name (found through Code Search); X++ objects as their list of methods, `part` shows one method; `history=true`: who changed it, when, through which pull request and for which work items | "what does this object do", "why is it like this" | `adolens file CreditCheck.xml --part validate`, `adolens file CreditCheck.xml --history` |

README.pl.md

@@ -217,11 +217,11 @@ Na co odpowiada każde narzędzie MCP, kiedy Claude powinien po nie sięgnąć i
 | `ado_wiki_write` | `create` — nowa strona, `append` / `prepend` — dopisanie, `replace` — zastąpienie z wersją z ostatniego pełnego odczytu (strony zmienionej w międzyczasie przez kogoś innego nigdy nie nadpisze); opcjonalny komentarz zmiany | notatki wydania, aktualna dokumentacja | `adolens wiki-write "Team/Release notes" --file notes.md --mode append` |
 | `ado_tests` | testy work itemów (id) albo wymagań i błędów sprintu: ich Test Case'y z ostatnim wynikiem w każdym planie, zestawie i konfiguracji (kto, kiedy), elementy bez testów; `detail=full` dodaje kroki | „czy to przetestowane”, przegląd sprintu | `adolens tests 123`, `adolens tests` (bieżący sprint) |
 | `ado_test_create` | Test Case'y dla work itemu z markdownu (`## tytuł`, kroki `1. akcja => oczekiwany wynik`), podpięte jako tested-by, w obszarze i iteracji elementu; `plan` + `suite` (id albo nazwa) dodają je do zestawu | kryteria akceptacji zamienione w testy | `adolens test-create 123 --file przypadki.md --plan R1 --suite Logowanie` |
-| `ado_attachments` | pliki work itemu i zrzuty ekranu wklejone w jego treść lub komentarze; `file` pokazuje obraz Claude'owi albo daje tekst pliku Word, Excel lub tekstowego; `add` dołącza plik z dysku | specyfikacje i maile przy elementach, „zobacz zrzut” | `adolens attachments 123`, `adolens attachments 123 --file 2` |
+| `ado_attachments` | pliki work itemu i zrzuty ekranu wklejone w jego treść lub komentarze; `file` pokazuje obraz Claude'owi albo daje tekst pliku Word, Excel, maila Outlooka (.msg) lub tekstowego; `add` dołącza plik z dysku | specyfikacje i maile przy elementach, „zobacz zrzut” | `adolens attachments 123`, `adolens attachments 123 --file 2` |
 | `ado_create_tree` | drzewo work itemów z listy z wcięciami (`- Feature: …`, dzieci wcięte, `\| opis`, `@osoba`), opcjonalnie pod istniejącym elementem; najpierw podgląd, jedno cofnięcie usuwa całość | rozbicie feature'a na wymagania i taski | — |
 | `ado_metrics` | zrobione elementy i szacunek w zakończonych sprintach (prędkość), czas realizacji (mediana, 85%), co najdłużej w toku | „czy przyspieszamy”, planowanie | `adolens metrics --sprints 6` |
 | `ado_label` | komunikat D365 wklejony tak, jak widać na ekranie (z wartościami zamiast %1 %2 …) albo `@Plik:Id`: etykieta, jej tekst w każdym języku (brakujące oznaczone) i obiekty, metody X++, pola i kontrolki, które jej używają | „skąd ten błąd” | `adolens label "Towar 1234: przyjęto 12, stan 5"` |
-| `ado_review` | sprawdzenie zmiany albo wszystkich zmian work itemu i jego tasków przed testami: powiązany work item, etykiety we wszystkich językach, komunikaty X++ z etykiet, brak TODO | przed przekazaniem do testów, przegląd PR | `adolens review 523`, `adolens review --item 123` |
+| `ado_review` | sprawdzenie zmiany albo wszystkich zmian work itemu i jego tasków przed testami: powiązany work item, etykiety we wszystkich wymaganych językach (`config --label-languages`), komunikaty X++ z etykiet, brak TODO | przed przekazaniem do testów, przegląd PR | `adolens review 523`, `adolens review --item 123` |
 | `ado_my_day` | od poprzedniego dnia roboczego (albo `since`): gdzie cię oznaczono (wszystkie projekty), twoje i obserwowane elementy zmienione przez innych, pull requesty czekające na twój przegląd | początek dnia | `adolens myday --since 3d` |
 | `ado_search` | jedno wyszukiwanie po work itemach (pełny tekst, z polem, w którym znaleziono), stronach wiki i kodzie (Git i TFVC, z nazwami obiektów X++), pogrupowane; niedostępna część (np. brak Code Search) jest zgłaszana, reszta odpowiada | „jak działa X”, „gdzie jest Y” | `adolens search "limit kredytowy" --scope work;wiki` |
 | `ado_file` | plik po ścieżce TFVC, ścieżce Git + repo albo samej nazwie (szukanej przez Code Search); obiekty X++ jako lista metod, `part` pokazuje jedną metodę; `history=true`: kto zmieniał, kiedy, w którym pull requeście i dla jakich work itemów | „co robi ten obiekt”, „dlaczego tak działa” | `adolens file CreditCheck.xml --part validate`, `adolens file CreditCheck.xml --history` |

packaging/inno/ado-lens.iss

@@ -209,30 +209,6 @@ begin
   RegWriteExpandStringValue(HKCU, 'Environment', 'Path', Kept);
 end;
 
-var
-  RemoveUserData: Boolean;
-
-{ Before the files go: ask whether to remove the stored PATs and the local data (default: keep them), and sign out
-  with the program while it is still there. After: take the program folder off the PATH and delete the data. }
-procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
-var
-  Code: Integer;
-begin
-  if CurUninstallStep = usUninstall then
-  begin
-    RemoveUserData := not UninstallSilent and
-      (MsgBox(CustomMessage('RemoveData'), mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES);
-    if RemoveUserData then
-      Exec(ExpandConstant('{app}\bin\adolens.exe'), 'logout --all', '', SW_HIDE, ewWaitUntilTerminated, Code);
-    RemoveCodeSkills;
-  end
-  else if CurUninstallStep = usPostUninstall then
-  begin
-    RemoveFromPath(ExpandConstant('{app}\bin'));
-    if RemoveUserData then DelTree(ExpandConstant('{localappdata}\ado-lens'), True, True, True);
-  end;
-end;
-
 function HasClaudeCode: Boolean;
 begin
   Result := DirExists(ExpandConstant('{%USERPROFILE}\.claude'));
@@ -301,6 +277,31 @@ begin
   end;
 end;
 
+var
+  RemoveUserData: Boolean;
+
+{ Before the files go: ask whether to remove the stored PATs and the local data (default: keep them), and sign out
+  with the program while it is still there. After: take the program folder off the PATH and delete the data. }
+procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep);
+var
+  Code: Integer;
+begin
+  if CurUninstallStep = usUninstall then
+  begin
+    RemoveUserData := not UninstallSilent and
+      (MsgBox(CustomMessage('RemoveData'), mbConfirmation, MB_YESNO or MB_DEFBUTTON2) = IDYES);
+    if RemoveUserData then
+      Exec(ExpandConstant('{app}\bin\adolens.exe'), 'logout --all', '', SW_HIDE, ewWaitUntilTerminated, Code);
+    RemoveCodeSkills;
+  end
+  else if CurUninstallStep = usPostUninstall then
+  begin
+    RemoveFromPath(ExpandConstant('{app}\bin'));
+    if RemoveUserData then DelTree(ExpandConstant('{localappdata}\ado-lens'), True, True, True);
+  end;
+end;
+
+
 function SettingsFile: String;
 begin
   Result := ExpandConstant('{localappdata}\ado-lens\adolens.json');

src/AdoLens/Attachments.cs

@@ -78,7 +78,7 @@ void From(string? html, string where)
         if (list.Count == 0) return ($"{head}: no attachments and no pasted images", null);
         if (string.IsNullOrWhiteSpace(file))
             return ($"{head}: {list.Count} file(s)\n" + string.Join('\n', list.Select((a, i) => $"{i + 1}. {a.Name}{Size(a.Size)}{(a.Comment is { Length: > 0 } c ? $" - {c}" : "")}")) +
-                    "\nfile=<name or number> reads one: documents as text (Word, Excel, text), images are shown.", null);
+                    "\nfile=<name or number> reads one: documents as text (Word, Excel, e-mail, text), images are shown.", null);
 
         var pick = int.TryParse(file, out var n) && n >= 1 && n <= list.Count ? list[n - 1]
             : list.FirstOrDefault(a => a.Name.Equals(file.Trim(), StringComparison.OrdinalIgnoreCase))
@@ -117,6 +117,8 @@ void From(string? html, string where)
                     return Word(bytes);
                 case ".xlsx" or ".xlsm":
                     return Excel(bytes);
+                case ".msg":
+                    return OutlookMsg.Read(bytes);
                 case ".txt" or ".md" or ".csv" or ".json" or ".xml" or ".log" or ".sql" or ".cs" or ".xpp" or ".yml" or ".yaml" or ".html" or ".htm":
                     return Encoding.UTF8.GetString(bytes).TrimStart('\uFEFF');
             }

src/AdoLens/Cli.cs

@@ -30,6 +30,7 @@ config          show or change settings
                             --default-connection <name>  --mode po|dev|full  --usage-log true|false
                             --show-tokens true|false  --add-toolset <set>  --remove-toolset <set>  --confirm-above <n>
                             --language pl|en|auto (settings console and installer texts)
+                            --connection <c> --label-languages "en-US, pl"|all  (languages review and label require)
           status          configuration, connection check, metadata and Claude registrations
                             --connection <name>  --offline  --quiet
           register        add / update the 'ado-lens' MCP server in Claude Desktop and Claude Code
@@ -238,7 +239,8 @@ public int Connections()
             var pat = CredentialStore.Read(name) is not null ? "PAT stored" : "no stored PAT";
             Console.WriteLine($"{(name.Equals(settings.DefaultConnection, StringComparison.OrdinalIgnoreCase) ? "*" : " ")} {name,-16} " +
                               $"https://dev.azure.com/{c.Organization}  project {c.Project ?? "-"}  team {c.Team ?? "-"}  ({pat})" +
-                              (c.Environments.Count > 0 ? $"\n  {"",-16} environments: {string.Join(", ", c.Environments.Select(e => $"{e.Key} = {e.Value}"))}" : ""));
+                              (c.Environments.Count > 0 ? $"\n  {"",-16} environments: {string.Join(", ", c.Environments.Select(e => $"{e.Key} = {e.Value}"))}" : "") +
+                (c.LabelLanguages.Count > 0 ? $"\n  {"",-16} label languages: {string.Join(", ", c.LabelLanguages)}" : ""));
         }
         return 0;
     }
@@ -263,9 +265,15 @@ public int Config()
                     changed = true;
                 }
                 while (cl.Opt("remove-env") is { } r) { conn.Environments.Remove(r.Trim()); changed = true; }
+                if (cl.Opt("label-languages") is { } ll)
+                {
+                    conn.LabelLanguages = SplitLanguages(ll);
+                    changed = true;
+                }
             }
-            else if (cl.Peek("project") is not null || cl.Peek("team") is not null || cl.Peek("env") is not null || cl.Peek("remove-env") is not null)
-                throw new ArgumentException("--project / --team / --env need --connection <name>");
+            else if (cl.Peek("project") is not null || cl.Peek("team") is not null || cl.Peek("env") is not null || cl.Peek("remove-env") is not null
+                     || cl.Peek("label-languages") is not null)
+                throw new ArgumentException("--project / --team / --env / --label-languages need --connection <name>");
             if (cl.Opt("default-connection") is { } d)
             {
                 if (!settings.Connections.ContainsKey(d)) throw new ArgumentException($"no connection named '{d}'");
@@ -723,6 +731,7 @@ async Task<int> SetupMenuAsync()
             Console.WriteLine(Ui.T("  4. Remove a connection", "  4. Usuń połączenie"));
             Console.WriteLine(Ui.T("  5. Status (is everything working)", "  5. Status (czy wszystko działa)"));
             Console.WriteLine(Ui.T("  6. Language: Polish / English", "  6. Język: polski / angielski"));
+            Console.WriteLine(Ui.T("  7. Required label languages (checks of D365 changes)", "  7. Wymagane języki etykiet (kontrola zmian D365)"));
             var choice = Prompt(Ui.T("Choice (Enter = done): ", "Wybór (Enter = koniec): "));
             switch (choice?.Trim())
             {
@@ -762,10 +771,30 @@ async Task<int> SetupMenuAsync()
                     settings.Save(SettingsPath);
                     Ui.Polish = settings.Language == "pl" || settings.Language is null && Ui.Polish;
                     break;
+                case "7":
+                    var cn = PickConnection(settings);
+                    if (cn is null) break;
+                    var now = settings.Connections[cn].LabelLanguages;
+                    Console.WriteLine(Ui.T($"  now: {(now.Count == 0 ? "all languages of the label files" : string.Join(", ", now))}",
+                                           $"  teraz: {(now.Count == 0 ? "wszystkie języki plików etykiet" : string.Join(", ", now))}"));
+                    var langs = Prompt(Ui.T("  languages every label must have, e.g. en-US, pl ('all' = every one, Enter = keep): ",
+                                            "  języki, które musi mieć każda etykieta, np. en-US, pl ('all' = wszystkie, Enter = bez zmian): "));
+                    if (!string.IsNullOrWhiteSpace(langs))
+                    {
+                        settings.Connections[cn].LabelLanguages = SplitLanguages(langs);
+                        settings.Save(SettingsPath);
+                        Console.WriteLine(Ui.T("  saved", "  zapisane"));
+                    }
+                    break;
             }
         }
     }
 
+    /// <summary>"en-US, pl" → [en-US, pl]; "all" or empty → [] (every language required).</summary>
+    static List<string> SplitLanguages(string text) =>
+        text.Trim().Equals("all", StringComparison.OrdinalIgnoreCase) ? []
+            : text.Split([',', ';', ' '], StringSplitOptions.RemoveEmptyEntries | StringSplitOptions.TrimEntries).Distinct(StringComparer.OrdinalIgnoreCase).ToList();
+
     string? PickConnection(Settings settings)
     {
         var names = settings.Connections.Keys.ToList();

src/AdoLens/CommandLine.cs

@@ -23,7 +23,7 @@ public sealed partial class CommandLine
         ["pr"] = ["connection=", "project=", "repo=", "list=", "detail="],
         ["pipeline"] = ["connection=", "project=", "definition=", "branch=", "top=", "detail="],
         ["changes"] = ["connection=", "repo=", "file=", "detail="],
-        ["config"] = ["env=", "remove-env=", "connection=", "default-connection=", "project=", "team=", "mode=", "usage-log=", "add-toolset=", "remove-toolset=", "confirm-above=", "show-tokens=", "language="],
+        ["config"] = ["env=", "remove-env=", "connection=", "default-connection=", "project=", "team=", "mode=", "usage-log=", "add-toolset=", "remove-toolset=", "confirm-above=", "show-tokens=", "language=", "label-languages="],
         ["item"] = ["connection=", "include=", "detail="],
         ["query"] = ["connection=", "project=", "wiql=", "query=", "top="],
         ["create"] = ["connection=", "project=", "type=", "title=", "description=", "criteria=", "assign=", "parent=", "iteration=", "area=", "tags=", "state=", "field=", "template="],

src/AdoLens/Labels.cs

@@ -137,6 +137,8 @@ public static async Task<string> FindAsync(Lens lens, string? connection, string
             {
                 var content = await ReadAsync(client, lf, ct);
                 var value = content is null ? null : Parse(content).GetValueOrDefault(id);
+                // A language the connection does not require is left out when the label has no text in it.
+                if (value is null && !session.Config.LabelLanguageRequired(lf.Language)) continue;
                 sb.AppendLine($"  {lf.Language}: {(value is null ? "MISSING" : Formatting.Collapse(value, 200))}");
             }
             sb.AppendLine("  used in:");