Dateien per Drag & Drop aus Outlook | Herbers Excel-Forum

Forumthread: Dateien per Drag & Drop aus Outlook

Dateien per Drag & Drop aus Outlook

22.01.2010 21:15:21

Marko

Hallo,
ich habe bei der Suche nach einer Drag & Drop Lösung von Dateien in eine ListBox
im Archiv folgenden Beitrag aus dem Jahr 2006 gefunden.
https://www.herber.de/forum/archiv/800to804/t800851.htm


Option Explicit
Const vbDropEffectNone = 0
Const vbDropEffectCopy = 1
Const vbDropEffectMove = 2
Const vbCFFiles = 15
Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As  _
Integer, Shift As Integer, x As Single, y As Single)
Dim i%
If Data.GetFormat(vbCFFiles) Then
For i = 1 To Data.Files.Count
Debug.Print Data.Files(i)
Next
End If
End Sub
Private Sub ListView1_OLEDragOver(Data As MSComctlLib.DataObject, Effect As Long, Button As  _
Integer, Shift As Integer, x As Single, y As Single, State As Integer)
Effect = vbDropEffectCopy
End Sub

Funktioniert alles prima und die Dateien lassen sich auch problemlos aus dem Explorer
sowie aus allen möglichen Anwendungen (inkl. Outlook Express) droppen.
Ich möchte aber die Dateien aus einer Email (Outlook2003) ziehen.
Mit der oben erwähnten Lösung funktioniert das leider nicht.
Es wird zwar beim Droppen das Drop-Event ausgelöst, aber das Data Object/Files
bleibt leer ( Specified format doesen't match format of data ) und ich kann nicht auf
die Datei zugreifen.
Hat jemand eine Idee wie das aussehen muss, so dass man auch aus eine Outlook Mail
eine Datei in eine ListBox ziehen kann ?
Danke für Eure Hilfe.
Gruss
Marko

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Dateien per Drag & Drop aus Outlook

23.01.2010 19:07:30

Marko

AW: Dateien per Drag & Drop aus Outlook

23.01.2010 19:07:30

Marko

Hallo,
ich hab dann nochmal gegoogled und folgendes gefunden.
http://www.codeguru.com/internet/EmailDragNDrop.shtml
Das Problem scheint dann doch etwas komplizierter zu sein als erwartet. Auf alle Fälle übersteigt das dann doch meine Kenntnisse und Fähigkeiten. Zumindest weiss ich jetzt warum es nicht funktioniert.
Aber vielleicht hilfts mal jemandem weiter. Ich muss mir dann 'ne andere weniger elegante Lösung einfallen lassen.
Gruss
Marko

Infobox / Tutorial

Dateien per Drag & Drop aus Outlook in Excel nutzen

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Um Dateien per Drag & Drop aus Outlook in Excel zu nutzen, kannst du die folgenden Schritte befolgen:

Öffne Microsoft Excel und erstelle ein neues Arbeitsblatt.
Aktiviere die Entwicklertools: Gehe zu „Datei“ > „Optionen“ > „Menüband anpassen“ und aktiviere die „Entwicklertools“.
Füge ein Steuerelement hinzu: Wähle in der Gruppe „Steuerelemente“ die „ListBox“ aus und ziehe sie auf dein Arbeitsblatt.
Öffne den VBA-Editor: Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.

Füge den folgenden Code ein in das entsprechende Modul deiner ListBox:

Option Explicit
Const vbDropEffectNone = 0
Const vbDropEffectCopy = 1
Const vbCFFiles = 15

Private Sub ListBox1_OLEDragDrop(Data As MSForms.DataObject, Effect As Long)
   Dim i As Long
   If Data.GetFormat(vbCFFiles) Then
       For i = 1 To Data.Files.Count
           ListBox1.AddItem Data.Files(i)
       Next i
   End If
End Sub

Private Sub ListBox1_OLEDragOver(Data As MSForms.DataObject, Effect As Long)
   Effect = vbDropEffectCopy
End Sub

Speichere dein Projekt und verlasse den VBA-Editor.
Ziehe eine E-Mail von Outlook in die ListBox in Excel.

Beachte, dass „drag and drop“ aus Outlook möglicherweise nicht bei allen E-Mail-Clients oder Versionen funktioniert, insbesondere wenn du Outlook 2003 verwendest.

Häufige Fehler und Lösungen

Drag & Drop funktioniert nicht mehr in Outlook:
- Stelle sicher, dass die E-Mail im richtigen Format vorliegt. Outlook kann Probleme mit bestimmten Dateiformaten haben.
Das Data Object/Files bleibt leer:
- Dies kann darauf hinweisen, dass das Drag & Drop-Format nicht unterstützt wird. Versuche, die E-Mail im Textformat zu ziehen.
Outlook Mail Drag & Drop funktioniert nicht:
- Überprüfe die Einstellungen in Outlook. Manchmal könnten Sicherheitsrichtlinien das Drag & Drop verhindern.

Alternative Methoden

Falls die Drag & Drop-Funktionalität nicht wie gewünscht funktioniert, gibt es alternative Methoden:

Manuelles Kopieren: Öffne die E-Mail in Outlook, kopiere die Datei und füge sie in Excel ein.
VBA-Makro: Erstelle ein VBA-Makro, das die Dateien aus einem bestimmten Ordner in Excel importiert.

Praktische Beispiele

Einfaches Beispiel: Ziehe eine E-Mail mit einem Anhang in die ListBox. Der Anhang sollte automatisch hinzugefügt werden.

Erweiterte Nutzung: Erstelle ein Makro, das nicht nur den Dateinamen, sondern auch den Dateipfad in eine andere Zelle in Excel einfügt.

Private Sub ListBox1_OLEDragDrop(Data As MSForms.DataObject, Effect As Long)
   Dim i As Long
   If Data.GetFormat(vbCFFiles) Then
       For i = 1 To Data.Files.Count
           Cells(i, 1).Value = Data.Files(i) ' Fügt den Dateipfad in die erste Spalte ein
       Next i
   End If
End Sub

Tipps für Profis

Verwende die richtige Excel-Version: Drag & Drop funktioniert am besten in neueren Versionen von Excel. Bei älteren Versionen (z.B. Excel 2003) kann es Einschränkungen geben.
Testen in verschiedenen Umgebungen: Manchmal kann die IT-Sicherheitseinstellung in deinem Unternehmen die Drag & Drop-Funktionalität beeinträchtigen. Teste die Funktion auf einem anderen Computer.
Fehlerprotokollierung: Füge Protokollierung in dein VBA-Makro ein, um Fehler beim Drag & Drop zu verfolgen und zu beheben.

FAQ: Häufige Fragen

1. Warum funktioniert Drag & Drop aus Outlook nicht?
Drag & Drop funktioniert möglicherweise nicht aufgrund von Sicherheitsrichtlinien oder inkompatiblen Dateiformaten.

2. Wie kann ich Drag & Drop in Excel aktivieren?
Aktiviere die Entwicklertools in Excel und füge das entsprechende VBA-Skript hinzu, um die Funktion zu ermöglichen.

3. Gibt es Einschränkungen bei der Verwendung von Drag & Drop?
Ja, die Funktion kann je nach Outlook-Version und den verwendeten E-Mail-Clients variieren. Es wird empfohlen, die neueste Version zu verwenden.

Beliebteste Forumthreads (12 Monate)