Drag and Drop aus Outlook

[Gironymo (Gast)]

Hallo allerseits, ich hab hier ein kleines Problem.

Ich arbeite mit VB6 (ja, ich weiß, dass es .NET gibt, aber das Projekt
ist nun mal VB6) und ich soll eine Funktion einbauen, mit der man von
Outlook aus per Drag and Drop eine Mail oder zumindest einen Anhang in
einen Ordner speichern kann (ähnlich wie im Explorer)

Mit kopieren und Einfügen kann ich schon zumindest einen Anhang
speichern. Ganze Mail (sollen als .msg gespeichert werden)
funktionieren leider nocht nicht.
Der Unterschied zwischen Drag and Drop und Copy and Paste ist, dass
beim Kopieren die Daten aus der Zwischenablage gelesen werden können,
was aber dei D&D nicht funktioniert.
Unter VB.NET bekomm ich den Anhang im Dataobject und kann das mit
FileContents als MemoryString auslesen. Unter VB6 geht das aber leider
nicht. Es gibt im DataObject keine Daten mit dem Format
"FileContents".

Ich werke jetzt seit drei Tagen an dem Problem, das Internet kenn ich
auch schon auswendig ... kann mir vielleicht jemand von euch helfen?

Markus

[arc (Gast)]

Soetwas wie unten funktioniert in VB6 nicht?

dim o as Outlook.Application = GetObject(, "Outlook.Application")

im DragDrop-Handler

dim item as Outlook.MailItem
for each item in o.ActiveExplorer.Selection()
  item.SaveAs("...")
next

[Gironymo (Gast)]

Doch, das funktioniert in VB6 schon, aber das möchte ich nicht
verwenden, da das Ganze auch mit Mozilla und Netscape funktionieren
soll. Ich weiß zwar nicht wie die das machen, aber wenn möglich möchte
ich keinen Verweis auf ein externes Programm haben ...

Das Problem ist, dass diese Application schon sehr viele im Einsatz
haben und ich nicht weiß, was Die verwenden.
Außerdem kann es bei manchen Installationen zu Problemen kommen und
rate mal, wer dann den Support machen muss ;o)