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

MS_13.10.2015

Browse Source
This commit is contained in:
SchreiberM
2015-10-13 15:42:01 +02:00
parent b050f2d543
commit c74e5434b9
30 changed files with 6236 additions and 922 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
app/DD-Record-Organiser/ClassDragDrop.vb
View File

@@ -28,6 +28,7 @@ Public Class ClassDragDrop
End If
If e.Data.GetDataPresent("FileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then
Console.WriteLine(">> FileGroupDescriptor/FileContents")
If LogErrorsOnly = False Then ClassLogger.Add(">> FileGroupDescriptor/FileContents", False)
'// the first step here is to get the stbFileName
'// of the attachment and
@@ -77,6 +78,7 @@ Public Class ClassDragDrop
If (finTemp.Exists = True) Then
'MsgBox("Attachment File from Outlook created:" & vbNewLine & strOutFile)
' lblFile.Text += "Attachment File from Outlook created" + Environment.NewLine
Console.WriteLine(">> Drop of a mailattachment - File")
ReDim Preserve files_dropped(0)
files_dropped(0) = "@OUTLOOK_ATTMNT@" & strOutFile
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False)
@@ -89,6 +91,7 @@ Public Class ClassDragDrop
End If
If e.Data.GetDataPresent("FileGroupDescriptor") Then
Console.WriteLine(">> FileGroupDescriptor")
If LogErrorsOnly = False Then ClassLogger.Add(">> Drop of OutlookMessage", False)
'supports a drop of a Outlook message
Dim myobj As Object