Drag&Drop aus neuem Outlook

[Redeemer]

Damit kriege ich weder aus Outlook (classic) 365 noch Outlook 2016 irgendwas (weder Mails noch Anhänge). Dateien aus dem Explorer nimmt er. Ich habe keinen Filter drin, denn Outlook (classic) 365 liefert immer noch MSG. Mein bisheriges Outlook-Drag-and-Drop aus der Melander-Suite geht aber mit Outlook (classic) 365 nicht.

Wo ist eigentlich die vollständige Dokumentation von Jedi? Ich arbeite gerade das erste Mal damit.

[himitsu]

Doku?
Das ist doch selbsterklärend.



Explorer nutzt CF_FILENAMES (je ANSI und Unicode) mit optionalem CF_FILEDESCRIPTOR
Thunderbird CF_HDROP mit STGMEDIUM-Record, wo eine Liste zu TempFiles drin ist
Outlook nutzt CF_HDROP mit IStream
und das neue Outlook nutzt CF_HDROP mit IDataObjectAsyncCapability (bzw. eigentich IAsyncOperation)

[dummzeuch]

Zitat von Redeemer:

Wo ist eigentlich die vollständige Dokumentation von Jedi?

LOL

Die gab es noch nie, auch damals nicht, als das Projekt noch deutlich mehr aktive Mitglieder hatte. Du kannst bei Delphi-Bibliotheken inzwischen schon froh sein, dass es noch Updates gibt, über Doku denkt keiner mehr nach.

Der ursprüngliche Ansatz liegt hier:

https://wiki.delphi-jedi.org

Allerdings würde es mich nicht wunder, wenn dort keiner mehr die Zugangsdaten hätte.

Wie immer bei Open Source Projekten: Wer Doku schreiben möchte, darf sich gerne anbieten.

[jbg]

So, ich habe ein paar Minuten zeit gehabt und die Drag-and-Drop-Component-Suite etwas angeschaut. Eigentlich könnte die alles. Es ist nur nicht alles zusammengebaut.

Zuerst muss die Klasse TOutlookDataFormat um das Clipboard-Format TFileClipboardFormat erweitert werden und die Dateinamen, die per async. HDROP rein kommen, in einer Files-Stringliste abgelegt werden. Das macht die folgende DataFormat-Klasse.
Man könnte das auch direkt in TOutlookDataFormat einbauen, aber so geht das auch, ohne Änderungen am Originalcode.

Delphi-Quellcode:

type
  TNewAndClassicOutlookDataFormat = class(TOutlookDataFormat)
  private
    FFiles: TUnicodeStrings;
  protected
    class procedure RegisterCompatibleFormats; override;
  public
    constructor Create(AOwner: TDragDropComponent); override;
    destructor Destroy; override;
    function Assign(Source: TClipboardFormat): Boolean; override;
    function AssignTo(Dest: TClipboardFormat): Boolean; override;
    procedure Clear; override;

    property Files: TUnicodeStrings read FFiles;
  end;

{ TNewAndClassicOutlookDataFormat }

class procedure TNewAndClassicOutlookDataFormat.RegisterCompatibleFormats;
begin
  inherited RegisterCompatibleFormats;
  RegisterDataConversion(TFileClipboardFormat, 1); // New Outlook (WebApp)
end;

function TNewAndClassicOutlookDataFormat.Assign(Source: TClipboardFormat): Boolean;
begin
  if Source is TFileClipboardFormat then
  begin
    FFiles.Assign(TFileClipboardFormat(Source).Files);
    Result := True;
  end
  else
    Result := inherited Assign(Source);
end;

function TNewAndClassicOutlookDataFormat.AssignTo(Dest: TClipboardFormat): Boolean;
begin
  if Dest is TFileClipboardFormat then
  begin
    TFileClipboardFormat(Dest).Files.Assign(FFiles);
    Result := True;
  end
  else
    Result := inherited AssignTo(Dest);
end;

constructor TNewAndClassicOutlookDataFormat.Create(AOwner: TDragDropComponent);
begin
  inherited Create(AOwner);
  FFiles := TUnicodeStringList.Create;
end;

destructor TNewAndClassicOutlookDataFormat.Destroy;
begin
  FFiles.Free;
  inherited Destroy;
end;

procedure TNewAndClassicOutlookDataFormat.Clear;
begin
  FFiles.Clear;
  inherited Clear;
end;

Dann muss man diese Klasse registrieren:

Delphi-Quellcode:

initialization
  TNewAndClassicOutlookDataFormat.RegisterDataFormat;

Dann muss man an der TDropEmptyTarget Komponente die Eigenschaft "AllowAsyncTransfer" auf True stellen und beim DataFormatAdapter die "DataFormatClass"-Eigenschaft auf "TNewAndClassicOutlookDataFormat" setzen.

Delphi-Quellcode:

DropEmptyTarget1.AllowAsyncTransfer := True; // Required for the "New Outlook" to receive EML filenames
DataFormatAdapterOutlook.DataFormatClass := TNewAndClassicOutlookDataFormat;
DataFormatAdapterOutlook.Enabled := True; // Setting DataFormClass disables the DataFormat

Jetzt kann man im OnDrop-Ereignis die Dateinamen empfangen:

Delphi-Quellcode:

OutlookDataFormat := DataFormatAdapterOutlook.DataFormat as TNewAndClassicOutlookDataFormat;
if OutlookDataFormat.Files.Count > 0 then // "New Outlook"
begin
  // Handle *.eml files
  for I := 0 to OutlookDataFormat.Files.Count - 1 do
  begin
    if SameText('.eml', ExtractFileExt(OutlookDataFormat.Files[I])) then
    begin
      Eml := TIdMessage.Create(nil);
      try
        Eml.LoadFromFile(OutlookDataFormat.Files[I]);
        // ...
      finally
        Eml.Free;
      end;
    end;
  end;
end
else
begin
  // Handle "Classic Outlook" *.msg files
  OutlookDataFormat.Messages.LockSession;
  for I := 0 to OutlookDataFormat.Messages.Count - 1 do
    // ...
end;

Um das "Bestätigen des Downloads" im New Outlook kommt man aber nicht herum, da es sich technisch dort um einen Download handelt. Und EML-Dateien "gefährlich" sind.

[stalkingwolf]

Hallo zusammen,

vielen dank für die Infos und den Link+Beispiel von Jedi werde ich mir die Tage einmal anschauen.

Classic Outlook funktioniert bei uns einwandfrei. Gesamte Email oder einzelne Datei.
Nun wechseln die Leute aber reihenweise ( teils gezwungen ) auf das neue Outlook und dann jammern sie herum.
Weg über Desktop geht, weil wir auch vollen EML Support haben, aber direkt ist halt nicht.

Das es wohl wegen der Bestätigung dazu komme habe ich mir schon gedacht. Das ist natürlich für den Anwender ätzend.

[Redeemer]

Erstmal Danke Andreas. Das Problem war aber ein ganz anderes, denn wir kriegen auch bei Outlook (classic) 365 weiterhin Messages und keine Files: Ich lade beim Erhalt von Messages MAPI32. Das scheitert mit "unbekannter Fehler". Wir haben mit Outlook 365 auf Office x64 gewechselt. Und ich brauche irgendwie MAPI, um die Message-Streams zu speichern, oder? Ohne gestartetes MAPI meldet Outlook (classic) nämlich einen Netzwerk- oder Verbindungsfehler (Danke für nichts!) und mein Programm nimmt keine DnD-Aktionen mehr an ("No"-Mauszeiger). Beim Beenden meldet mein Programm eine Zugriffsverletzung und nicht freigegebene Objekte.

Outlook (classic) x86 installiert. Funktioniert wie eh und je. Beim Ablegen von Anhängen, die keine Nachrichten sind, passiert auch bei Outlook (classic) x86 weiterhin absolut gar nichts, da ich weder ein Outlook- noch ein FileDataFormat kriege. TOutlookDataFormat zu benutzen erfordert wegen MAPI wohl dieselbe Bittigkeit bei Outlook. (Mit einer Ausnahme, die aber für uns irrelevant ist.)

Outlook (new) funktioniert hingegen unabhängig von der Bittigkeit. Ich könnte mir vorstellen, dass das der Grund gewesen ist, warum man bei Outlook (new) von MAPI auf asynchrone Dateien wechselt. Dafür braucht man übrigens deine Klasse nicht. Man kann einfach das Standard-FileDataFormat benutzen und AllowAsyncTransfer im EmptyDropTarget anmachen. (Auf AllowAsyncTransfer wäre ich aber ohne Andreas' Post nie gekommen.) Dann kriegt man aus Outlook (new) sowohl Nachrichten als auch - und das ist neu! - Nicht-Nachrichten-Anhänge.
Das Standard-FileDataFormat war bei mir nämlich zusätzlich drin und zusammen mit deiner Klasse haben dann beide für dieselbe Datei (inkl. Mail) getriggert.

Jetzt fragt sich noch, wie das bei beiden Outlooks jeweils mit OLE ist.

[Redeemer]

Nachtrag dann noch: OLE funktioniert mit Outlook (classic) unabhängig von der Bittigkeit und mit Outlook (new) überhaupt nicht.