Drag&Drop Outlook

[HolgerX]

Hmm..

Kannst Du nicht die DropSource bearbeiten, wenn das Drag aufgerufen wird?

Dann könntest Du die besagte Datei, mit dem 'richtigen' Namen, in den Temp Folder kopieren und dann die dortige Datei zum 'Droppen' übergeben.
Ähnlich mache ich es bei einem selbst geschriebenen EMail-Viewer, wenn ich die Anhänge in ein Explorer Fenster ziehe..

[oakley]

Hallo Holger,

ja das hatte ich auch schon gedacht aber was passiert wenn die Dateien etwas größer sind, dauert das nicht zu lange mit dem Umbenennen.

LG

Mirko

[HolgerX]

Hmm..

Auch wenn die max. Größe des EMail-Anhanges wohl nicht mehr 5/10 MB limitiert ist, solltest Du besser keine hundert MB und mehr per EMail verschicken. Deshalb sollte der gesamte Anhang max 5-10 MB sein und diese sollten schnell genug kopiert werden können.

Der Empfänger wird es Dir danken, wenn er nicht gleich diverse MB runter laden muss...

Bei meinem EMail-Viewer hatte ich die Anhänge in der .EML bereits beim Öffnen der Datei im temp abgelegt.

Wenn Du größere Dateien hast, dann kannst Du diese (mit Upload-Dialog) auch auf einem Share Hoster hochladen und dann per Drop den Link an Outlook übergeben.

[himitsu]

Wir nutzen die DropMaster-Komponente von Rize.

Delphi-Quellcode:

procedure TMyDragSource.ExecuteFileDrag(FileSaveName, AlternateFileName: array of string);
var
  SL:   TStringList;
  i:    Integer;
  Data: AnsiString;
begin
  SL := TStringList.Create;
  try
    CustomFormatData.Clear;
    for i := 0 to High(FileSaveName) do
      if (i <= High(AlternateFileName)) and (AlternateFileName[i] <> '') then
        SL.Add(ExtractFileName(AlternateFileName[i]))
      else
        SL.Add(ExtractFileName(FileSaveName[i]));
    CustomFormatData.AddFormat(DMFileGroupDescriptorFormatName, FileGroupDescriptorFromFileList('', SL));
    for i := 0 to High(FileSaveName) do begin
      with TFileStream.Create(FileSaveName[i], fmOpenRead or fmShareDenyWrite) do
        try
          SetLength(Data, Size);
          if Data <> '' then
            ReadBuffer(Data[1], Size);
        finally
          Free;
        end;
      CustomFormatData.AddFormatEx('FileContents', Data, TYMED_HGLOBAL, i);
      CustomFormatData.Items[CustomFormatData.Count - 1].AllowTrailingNull := False;
    end;
    Execute;
  finally
    SL.Free;
  end;
end;

Dafür hatte ich mir mal eine Prozedur geschieben, um den Drag-Vorgang zu initialisieren.

Das Drag und Drop der WinAPI kennt mehrere Modi, einmal Dateiname als Quelle und anderseits ein Stream als Quelle, mit zusätzlichem Namen.
Das Prinzip sollte sich auch mit anderen D&D-Komponenten umsetzen lassen.


Mein einziges Problem war, dass das Drag&Drop der VCL nicht mit dem des Windows kompatibel sind und ich nicht gleichzeitig in einer Gridkomponente Zeilen per Delphi-Drag&Drop umsortieren kann und gleichzeitig das auch als Drag-Quelle nach Extern nutzen kann.
Als Drop-Ziel ist beides zusammen möglich.

[Redeemer]

Ich würde die Datei auch kurzzeitig kopieren/umbenennen. Umbenennen ist von der Größe unabhängig.
Kleiner Hinweis noch: Outlook benötigt nach dem Hinzufügen des Anhangs die Datei selbst nicht mehr. Sie kann also entsprechend schnell zurückbenannt bzw. gelöscht werden und die Mail wird trotzdem richtig verschickt.

Wenn himitsus Lösung wie gewünscht funktioniert, wäre das vorzuziehen.

[oakley]

Hallo zusammen,

also ich habe es gemacht wie Holger und Redeemer es vorgeschlagen haben.
Funktioniert perfekt.
Danke.

LG

Mirko