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

Fix Filedrop

Browse Source
This commit is contained in:
Jonathan Jenne 2021-07-07 11:31:22 +02:00
parent 69554d7fbd
commit a581d8c81a
1 changed files with 44 additions and 45 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Global_Indexer/ClassFileDrop.vb
View File

@ -91,7 +91,8 @@ Public Class ClassFileDrop
LOGGER.Info("Attachment File from Outlook could not be created") LOGGER.Info("Attachment File from Outlook could not be created")
End If End If
End If End If
ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then End If
If e.Data.GetDataPresent("FileGroupDescriptor") Then
Dim oApp As Outlook.Application Dim oApp As Outlook.Application
Try Try
oApp = New Outlook.Application() oApp = New Outlook.Application()
@ -140,8 +141,6 @@ Public Class ClassFileDrop
Next Next
Return True Return True
'Drop eines Outlook Attachments 'Drop eines Outlook Attachments
Else
Return False
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Error in Drop-File" & vbNewLine & ex.Message, MsgBoxStyle.Critical)