Version 2.3.9.5

Global_Indexer/ClassFileDrop.vb

@@ -120,22 +120,24 @@ Public Class ClassFileDrop
                     'Sonderzeichen entfernen
                     subj = ClassFilehandle.InvalidCharacters(subj)
                     'hardcode a destination path for testing
-                    Dim strFile As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
-                    strFile = strFile.Replace("?", "")
-                    strFile = strFile.Replace("!", "")
-                    strFile = strFile.Replace("%", "")
-                    strFile = strFile.Replace("$", "")
-                    LOGGER.Info(">> Drop of msg - File:" & strFile)
+                    Dim oFilename As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
+                    oFilename = oFilename.Replace("?", "")
+                    oFilename = oFilename.Replace("!", "")
+                    oFilename = oFilename.Replace("%", "")
+                    oFilename = oFilename.Replace("$", "")
+                    LOGGER.Info(">> Drop of msg - File:" & oFilename)
                     Try
-                        myobj.SaveAs(strFile)
+                        myobj.SaveAs(oFilename)
                     Catch ex As Exception
                         LOGGER.Error(ex)
-                        MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
-                        Return False
+                        MsgBox("Die Email konnte aufgrund einer Sicherheitseinstellung im Outlook nicht abgelegt werden! " &
+                               "Bitte wenden Sie sich an Ihren Administrator, " &
+                               "um den programmatischen Zugriff auf Outlook zuzulassen. " &
+                               "Weitere Informationen finden Sie im Log.", MsgBoxStyle.Critical, "Global Indexer")
                     End Try
 
                     ReDim Preserve files_dropped(i)
-                    files_dropped(i) = "|OUTLOOK_MESSAGE|" & strFile
+                    files_dropped(i) = "|OUTLOOK_MESSAGE|" & oFilename
                 Next
                 Return True
                 'Drop eines Outlook Attachments

Global_Indexer/My Project/AssemblyInfo.vb

@@ -15,7 +15,7 @@ Imports System.Runtime.InteropServices
 <Assembly: AssemblyCompany("Digital Data")> 
 <Assembly: AssemblyProduct("Global Indexer")>
 <Assembly: AssemblyCopyright("Copyright © 2021")>
-<Assembly: AssemblyTrademark("2394")>
+<Assembly: AssemblyTrademark("2395")>
 
 <Assembly: ComVisible(False)> 
 
@@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("2.3.9.4")>
+<Assembly: AssemblyVersion("2.3.9.5")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
 
 <Assembly: NeutralResourcesLanguageAttribute("")>