in einem VB 6.0-Projekt empfange ich in einem Drop-Event E-Mails, die
ein Juser aus Outlook herübergezogen hat, mit folgendem Ereignis:
Private Sub lvOrdner_OLEDragDrop(Data As MSComctlLib.DataObject,
Effect As Long, Button As Integer, Shift As Integer, x As Single, y As
Single)
End Sub
Wir kann ich aus dem Data-Objekt jetzt die E-Mails rauskriegen?
Meistens sind sie identisch mit der olApp.ActiveExplorer.Selection,
aber das ist nicht zuverlässig.
Jochen
Hallo Jochen,
welche Funktionen/Eigenschaften bietet denn das DataObject? Daraus müßte es
doch ersichtlich sein.
--
Viele Gruesse
Michael Bauer - MVP Outlook
Category Manager - Kategorien verwalten & gemeinsam nutzen:
SAM - Der Sendekonto-Manager:
<http://www.vboffice.net/product.html?lang=de>
>> Hallo Jochen,
>>
>> welche Funktionen/Eigenschaften bietet denn das DataObject? Daraus müßte es
>> doch ersichtlich sein.
>
> Wenn ich das wüsste!! Data.GetData(cccftext) gibt, wenn ich 3 Mails
> ausgewählt habe, z.B. folgendes zurück:
>
> Erhalten Von Betreff Größe
> 11:16 Karin K** Hockey-Punktspiel am 25.4.2010 15 KB
> 11:05 Karin K*** WG: Informationen 823 KB
> 10:19 Joachim Granzow WG: AW: www.lufthansa.com - Vielen Dank für
> Ihre Buchung! Buchungscode: 5NRNQ3 115 KB
>
> Ich kriege also zuverlässig Empfangszeit, Betreff und Größe der
> gezogenen Mails. Bloß - unter einer eindeutigen Identifizierung
> verstehe ich etwas anderes!
>
> Jochen
Ob es in einem anderen Format mehr Infos gibt, weiß ich auch nicht.
Wann reicht Dir der Inhalt aus Explorer.Selection nicht aus?
Ich weiß z.B. gar nicht, ob es überhaupt was aus Outlook war, was da
fallen gelassen wurde.
Dateien und Urls kann ich beim Drop erkennen, aber falls versicht
wird, das was anderes reinzuschieben, würde ich sonst gnadenlos die
Outlook-Selektion verarbeiten...
Zugegebenermaßen erhält meine ursprüngliche Fragestellung jetzt eine
etwas andere Richtung...
Jochen
Vielleicht kannst Du dazu über die Win32 API nachverfolgen, welches Fenster
gerade aktiv ist. Wenn der Explorer das letzte vor dem DragDrop-Ereignis
war, sollte das die Quelle der Daten sein.
--
Viele Gruesse
Michael Bauer - MVP Outlook