Hallo Zusammen,
ich habe folgendes Problem zu lösen: Es sollen nur "markierte" Emailhänge per Drag and Drop in einen Windows-Explorer-Ordner kopiert werden, wenn die Anhänge auf eine Windowsform per Drag and Drop gezogen werden.
Mit folgendem Code können alle Anhänge der Email verschoben werden.
In diesem Beispiel werden die Dateien natürlich immer nach C:\Test\ kopiert.
Hat jemand eine Idee, wie ich nur die markierten Emailanhänge per Drag and Drop kopieren kann und nicht nur immer alle?
Für eine kurze Info wäre ich jeden dankbar.
ich habe folgendes Problem zu lösen: Es sollen nur "markierte" Emailhänge per Drag and Drop in einen Windows-Explorer-Ordner kopiert werden, wenn die Anhänge auf eine Windowsform per Drag and Drop gezogen werden.
Mit folgendem Code können alle Anhänge der Email verschoben werden.
Quellcode
- Private Sub Form1_DragOver(sender As Object, e As DragEventArgs) Handles MyBase.DragOver
- e.Effect = DragDropEffects.Copy
- End Sub
- Private Sub Form1_DragDrop(sender As Object, e As DragEventArgs) Handles MyBase.DragDrop
- Dim OL As Microsoft.Office.Interop.Outlook.Application = CType(GetObject(, "Outlook.Application"), Application)
- Dim olc As Microsoft.Office.Interop.Outlook.MailItem
- olc = OL.ActiveExplorer.Selection.Item(1)
- Dim attach As Attachment
- For Each attach In olc.Attachments
- attach.SaveAsFile("c:\test\" & attach.FileName)
- Next attach
- End Sub
In diesem Beispiel werden die Dateien natürlich immer nach C:\Test\ kopiert.
Hat jemand eine Idee, wie ich nur die markierten Emailanhänge per Drag and Drop kopieren kann und nicht nur immer alle?
Für eine kurze Info wäre ich jeden dankbar.