Ik heb een form met deze code:
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim File
On Error GoTo err_
If Data.GetFormat(vbCFFiles) Then
For Each File In Data.Files
Debug.Print File
Next
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectNone
End If
Exit Sub
err_:
Resume Next
End Sub
Wanneer ik vanuit windows verkenner hierop een bestandje sleept wordt het herkend als een file en kan dan verwerkt worden. De bedoeling is echter dat ik vanuit een email (de bijlage) erop kan slepen waarna deze bijlage verder verwerkt wordt.
Alleen dit werkt niet, iemand een suggestie?
Private Sub Form_OLEDragDrop(Data As DataObject, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim File
On Error GoTo err_
If Data.GetFormat(vbCFFiles) Then
For Each File In Data.Files
Debug.Print File
Next
Effect = vbDropEffectCopy
Else
Effect = vbDropEffectNone
End If
Exit Sub
err_:
Resume Next
End Sub
Wanneer ik vanuit windows verkenner hierop een bestandje sleept wordt het herkend als een file en kan dan verwerkt worden. De bedoeling is echter dat ik vanuit een email (de bijlage) erop kan slepen waarna deze bijlage verder verwerkt wordt.
Alleen dit werkt niet, iemand een suggestie?
Yesterday Is History. Today Is A Gift. Tomorrow Is Mystery