Drop Termine aus Outlook

[bcvs]

Hallo zusammen,

hat schon mal jemand Termine mit DropMaster von Raize Software aus Outlook gedropped?

Ich nutze diese Komponente für Drag/Drop von Mails und Attachments aus Outlook. Das funktioniert ganz gut. Nur zu den Terminen gibts es keine Doku.

Weiß jemand, wie das geht?

[himitsu]

Du kannst das entsprechende IDropTarget-Interface selber implementieren (viel Spaß damit)

Und Doku ... ja, die ist sehr gut
Im Notfall einfach den Empfang aktivieren und schauen ob man in den Daten ein Format erkennt.



Aber mir war so, als wenn diese Komponenten auch dafür etwas hatten.
(dachte es mal gelesen zu haben)

Hast du mal die Demos durchgesehen?

[add] www.raize.com/DevTools/DropMaster/Examples.asp => OutlookTest2

[bcvs]

Ja, jetzt habe ich die Demos gefunden. Das OutlookTest2, was man da herunterladen kann, ist nur die exe, deshalb kam ich da nicht weiter.

Ich habe aber jetzt gesehen, dass bei den mitinstallierten Demos der Quellcode dabei ist. Da werde ich jetzt mal weiter schauen.

[himitsu]

Zumindestens könnte man bei der EXE ausprobieren, ob Diese auch einen Termin entgegennimmt.

Gut, wenn sie das nicht macht, dann hätte es auch heißen können, daß es zumindestens nur nicht in dieser Demo eingebaut wurde.

[bcvs]

Für die Nachwelt und weil man zu diesem Thema nur sehr wenig im Netz findet:

In dem DropMaster-Demo werden die Termine anhand ihres Textes identifiziert, was natürlich bei mehreren gleich benannten Terminen nicht funktioniert.

Deshalb habe ich es jetzt so gelöst, dass ich im Drop-Event nach erfolgter Prüfung, ob ein Termin gedropped wurde, einfach die in Outlook selektierten Elemente auslese, denn wenn die gerade erst gedrag/dropped wurden, sind sie auch noch selektiert.

D2007

Delphi-Quellcode:

var
  Outlook: OleVariant;
  Count:integer;
  Termin:OleVariant;
  dt:TDropTermin;     // meine Termin-Klasse
  fItems:TObjectList; // meine Termin-Liste

  // ...
  try
    Outlook := GetActiveOleObject('Outlook.Application');
    Count:=Outlook.ActiveExplorer.Selection.Count;
    for i := 1 to Count do begin
      Termin:= Outlook.ActiveExplorer.Selection[i];
      dt:=TDropTermin.Create;
      dt.fTerminTitel:=Termin.Subject;
      dt.fStartTime  :=Termin.Start;
      dt.fEndTime    :=Termin.End;
      dt.fBemerk     :=Termin.Body;
      dt.fKategorie  :=Termin.Categories;
      fItems.add(dt);
    end;
  finally
    Outlook := unassigned;
  end;