D
DraguVaso
Hi,
I want my application to Paste Outlook 97 Attachements with the ClipBoard or
something likE that. Unfortunately the ClipBoard treats Outlook-Attachements
otherwise than 'normal' Files (they aren't seen as DataFormats.FileDrop), so
I'm not able to Paste these Attachements.
The working routine for 'normal' files is like this:
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.FileDrop) Then
Dim clipbrd As String() =
DirectCast(iData.GetData(DataFormats.FileDrop), String())
Dim i As Integer
For i = 0 To clipbrd.Length - 1
File.Copy(clipbrd(i), strNewDirFile)
Next
End If
Does anybody knows how to do this for Outlook-Attachements?
Thanks a lot,
Pieter
I want my application to Paste Outlook 97 Attachements with the ClipBoard or
something likE that. Unfortunately the ClipBoard treats Outlook-Attachements
otherwise than 'normal' Files (they aren't seen as DataFormats.FileDrop), so
I'm not able to Paste these Attachements.
The working routine for 'normal' files is like this:
Dim iData As IDataObject = Clipboard.GetDataObject()
If iData.GetDataPresent(DataFormats.FileDrop) Then
Dim clipbrd As String() =
DirectCast(iData.GetData(DataFormats.FileDrop), String())
Dim i As Integer
For i = 0 To clipbrd.Length - 1
File.Copy(clipbrd(i), strNewDirFile)
Next
End If
Does anybody knows how to do this for Outlook-Attachements?
Thanks a lot,
Pieter