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

Compare commits

base: AppStd:37e61b91f0c69a8ce66272505c21aa46343369ad
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign
...
compare: AppStd:a8531bc454950b7878b038877edff3163176de22
Branches Tags
AppStd:master AppStd:Design AppStd:Limilabs AppStd:Redesign

2 Commits
37e61b91f0 ... a8531bc454

Author SHA1 Message Date
Jonathan Jenne
a8531bc454 Version 2.3.9.5 2021-04-07 16:29:08 +02:00
Jonathan Jenne
645ca1b893 Improve error message for outlook error 2021-04-07 16:28:44 +02:00
2 changed files with 14 additions and 12 deletions
Expand all files Collapse all files

22
Global_Indexer/ClassFileDrop.vb
View File

@@ -120,22 +120,24 @@ Public Class ClassFileDrop
'Sonderzeichen entfernen 'Sonderzeichen entfernen
subj = ClassFilehandle.InvalidCharacters(subj) subj = ClassFilehandle.InvalidCharacters(subj)
'hardcode a destination path for testing 'hardcode a destination path for testing
Dim strFile As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg") Dim oFilename As String = IO.Path.Combine(Path.GetTempPath, subj + ".msg")
strFile = strFile.Replace("?", "") oFilename = oFilename.Replace("?", "")
strFile = strFile.Replace("!", "") oFilename = oFilename.Replace("!", "")
strFile = strFile.Replace("%", "") oFilename = oFilename.Replace("%", "")
strFile = strFile.Replace("$", "") oFilename = oFilename.Replace("$", "")
LOGGER.Info(">> Drop of msg - File:" & strFile) LOGGER.Info(">> Drop of msg - File:" & oFilename)
Try Try
myobj.SaveAs(strFile) myobj.SaveAs(oFilename)
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
MsgBox("Error in Save Email2Tempfile" & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Die Email konnte aufgrund einer Sicherheitseinstellung im Outlook nicht abgelegt werden! " &
Return False "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 End Try
ReDim Preserve files_dropped(i) ReDim Preserve files_dropped(i)
files_dropped(i) = "|OUTLOOK_MESSAGE|" & strFile files_dropped(i) = "|OUTLOOK_MESSAGE|" & oFilename
Next Next
Return True Return True
'Drop eines Outlook Attachments 'Drop eines Outlook Attachments

4
Global_Indexer/My Project/AssemblyInfo.vb
View File

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