| 

.NET C# Java Javascript Exception

2
Hallo @All,
ich habe ein "kleines" Problem.
Ich bearbeite in einem DragDrop-Event Daten, die ich aus Outlook in ein RTF-Control ziehe.

Da ich nach dem Bearbeiten nicht möchte, das Outlook die Daten noch mal (unbearbeitet) in das RTF-Control einfügt, setze ich e.Effects = DragDropEffects.None.

Das klappt auch ganz gut bei Word, bei PDF usw.
Außer bei Outlook. Das quittiert ein e.Effects = DragDropEffects.None mit einem Fehler "Fehler beim Ausführen der Operation.".
Setze ich es auf .Copy oder .Link gibt es keine Probleme. (Außer das dann durch das DragAndDrop die bearbeiteten Daten nochmals unbearbeitet eingefügt werden.)
BeispielCode (Sorry für die Formatierung):
Private Sub RichTextBox1_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragEnter
'* Hier passiert erstmal noch nix
e.effects = DragDropEffects.Copy
End Sub

Private Sub RichTextBox1_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles RichTextBox1.DragDrop
e.Effect = DragDropEffects.Copy
mySetDataMSG2RTFDropMessage(e) '<--- die eigentliche
' Bearbeitung der Daten
' und das Einfügen der
' bearbeiteten Daten in die
' Richtextbox1
'*** Hier gibt es das Problem
e.Effect = DragDropEffects.None
End SubPrivate

Sub mySetDataMSG2RTFDropMessage(
_data As System.Windows.Forms.DragEventArgs)
Dim _MsgName As String = ""
Dim _objOLApp As New Microsoft.Office.Interop.Outlook.Application
If IsNothing(_objOLApp.ActiveExplorer) Then Exit Sub
Dim _lauf As Integer
For Each _OlItem As Microsoft.Office.Interop.Outlook.MailItem
In _objOLApp.ActiveExplorer.Selection
_lauf += 1
_MsgName = myCheckFileName("Mail-" & _lauf.ToString & ".msg")
_MsgName = IO.Path.Combine(Globalvars.TempVerzeichnis, _MsgName)
If FileIO.FileSystem.FileExists(_MsgName) Then
FileIO.FileSystem.DeleteFile(_MsgName)
End If
_OlItem.SaveAs(_MsgName, Microsoft.Office.Interop.Outlook.OlSaveAsType.olMSG)
RichTextBox1.Text = RichTextBox1.Text & vbcrlf & _MsgNam
Next
_objOLApp.Quit()
End Sub


Falsch
So brauche ich das

Gibt es eine Möglichkeit ohne e.Effects auf None zu setzen, den DragAndDrop-Vorgang abzubrechen ohne das Outlook meckert ?

Danke im Voraus

Frank
News:
23.09.2013
TOP TECHNOLOGIES CONSULTING GmbH