Userform TreeView - Drag and Drop files from Explorer and Outlook attachements

[kpasa]

I have a userform with a TreeView being used as a "Drag and Drop" file input. The goal is to have the userform automatically accept that file and copy it to a specified folder.
So far i have this code in my userform_activate:

TreeView1.OLEDropMode = ccOLEDropManual
TreeView1.OLEDragMode = ccOLEDropManual

And then the 'Private Sub TreeView1_OLEDragDrop' event

Private Sub TreeView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim StrPath As String
    StrPath = Data.Files(1)
    MsgBox StrPath
End Sub

For this proof of concept, I have it only displaying the file's path. I will eventually get to the rest of the code. So far it works fine with a file from File Explorer.

My problem is that I often am filing attachments from outlook emails. But when try to drag an attachment over, i get the following error:
"Run-time error '461': Specified format doesn't match format of data"

Any thoughts on how I can address this error?

 

[RedBeard]

MSDN provides the following: Specified format doesn't match format of data (Error 461)

 

[kpasa]

So..any recommendations on how to address this error?

 

[kpasa]

I found an example written in VB. I am not experienced in VB enough to translate that into my VBA project. Anybody have suggestions on how to use it?

Handling Drag and Drop of Email Attachments

 

[John_w]

Another one you might like to try is "Get dropped attachments from Outlook messages" at Namespace Edanmo - Visual Basic 6. You will also need OLELIB.TLB at the top of that page.