Drag'n'Drop de mail Outlook dans Delphi

Question

Bonjour à tous,

Je suis a la recherche d'une solution permettant de faire du drag'n'drop de mail de Outlook vers une application Delphi, que l'ont pourrai identifier a partir de l'id du mail, vous avez des suggestions ?

Cordialement,

FREY Lucas

mimi320 · Answer

procedure qui sera appelé
var
  outlookSel    : Variant;
  i: integer;
  Outlook, MailItem: OLEVariant;
begin
try
      Outlook := GetActiveOleObject('Outlook.Application');
    except
      Outlook := CreateOleObject('Outlook.Application');
    end;
    outlookSel := Outlook.ActiveExplorer.Selection;

for i := 1 to outlookSel.Count do begin
       MailItem := Outlook.ActiveExplorer.Selection[i];
       MessageName :=MailToDrop.Strings[i-1];
       MailItem.SaveAs(ciblePath+MessageName+'.msg');
end;
end;
// c'est complet, mais c'est une bonne piste
pour avoir l'effet visuel que ça Drag n drop, j'ai utilisé les componants de Anders Melander (http://melander.dk/)

Bonne chance et il faut pas baisse pas les bras! C'est faisable!

Mimi 320

Drag'n'Drop de mail Outlook dans Delphi

1 réponse

Votre réponse

Discussions similaires