AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS24112015

Browse Source
This commit is contained in:
SchreiberM
2015-11-24 11:13:04 +01:00
parent 80247e18dd
commit ad1308fe18
47 changed files with 5379 additions and 1570 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
Global_Indexer/ClassDragDrop.vb
View File

@@ -18,7 +18,7 @@ Public Class ClassDragDrop
files_dropped(i) = "@DROPFROMFSYSTEM@" & MyFiles(i)
' ListBox1.Items.Add(MyFiles(i))
Next
Return files_dropped
Return True
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then
Dim oApp
Try
@@ -41,13 +41,22 @@ Public Class ClassDragDrop
End If
'hardcode a destination path for testing
Dim strFile As String = IO.Path.Combine(Path.GetTempPath, (subj + ".msg").Replace(":", ""))
strFile = strFile.Replace("?", "")
strFile = strFile.Replace("!", "")
strFile = strFile.Replace("%", "")
strFile = strFile.Replace("$", "")
ClassLogger.Add(">> Drop of msg - File:" & strFile, False)
Try
myobj.SaveAs(strFile)
Catch ex As Exception
MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try
myobj.SaveAs(strFile)
ReDim Preserve files_dropped(i)
files_dropped(i) = "@OUTLOOK_MESSAGE@" & strFile
Next
Return files_dropped
Return True
'Drop eines Outlook Attachments
ElseIf (e.Data.GetDataPresent("aryFileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then
'// the first step here is to get the stbFileName
@@ -99,7 +108,7 @@ Public Class ClassDragDrop
ReDim Preserve files_dropped(0)
files_dropped(0) = "@OUTLOOK_ATTACHMENT@" & strOutFile
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
Return files_dropped
Return True
Else
ClassLogger.Add(">> Attachment File from Outlook could not be created", False)
End If
@@ -108,6 +117,7 @@ Public Class ClassDragDrop
End If
Catch ex As Exception
MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
Return False
End Try