Compare commits

..

2 Commits

Author SHA1 Message Date
Jonathan Jenne
e3860795d0 Version 2.11.0.0 2023-10-09 14:55:30 +02:00
Jonathan Jenne
def648aa53 add EMAIL_ATTMT_INDEX column 2023-10-09 14:54:48 +02:00
2 changed files with 9 additions and 7 deletions

View File

@@ -13,7 +13,7 @@ Imports System.Runtime.InteropServices
<Assembly: AssemblyCompany("")> <Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("DigitalData.EMLProfiler")> <Assembly: AssemblyProduct("DigitalData.EMLProfiler")>
<Assembly: AssemblyCopyright("Copyright © 2023")> <Assembly: AssemblyCopyright("Copyright © 2023")>
<Assembly: AssemblyTrademark("2.10.0.3")> <Assembly: AssemblyTrademark("2.11.0.0")>
<Assembly: ComVisible(False)> <Assembly: ComVisible(False)>
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.10.0.3")> <Assembly: AssemblyVersion("2.11.0.0")>
<Assembly: AssemblyFileVersion("2.10.0.0")> <Assembly: AssemblyFileVersion("2.11.0.0")>

View File

@@ -713,7 +713,7 @@ Public Class clsWorkEmail
If oFileLenth > 2 Then If oFileLenth > 2 Then
_Logger.Info(String.Format("Attachment saved to [{0}]", oAttachmentFilePath)) _Logger.Info(String.Format("Attachment saved to [{0}]", oAttachmentFilePath))
'INSERT_HISTORY_FB(CURRENT_MAIL_MESSAGE_ID, oAttachment.SafeFileName) 'INSERT_HISTORY_FB(CURRENT_MAIL_MESSAGE_ID, oAttachment.SafeFileName)
InsertAttachmentHistoryEntry(pCurrentMail, pCurrentMail.MessageId, oAttachment.SafeFileName) InsertAttachmentHistoryEntry(pCurrentMail, pCurrentMail.MessageId, oAttachment.SafeFileName, oAttachmentFileName)
oAttachmentCount += 1 oAttachmentCount += 1
Else Else
_Logger.Warn($"##!! oFileLenth for AttachmentObjects is <2 !!##") _Logger.Warn($"##!! oFileLenth for AttachmentObjects is <2 !!##")
@@ -798,7 +798,7 @@ Public Class clsWorkEmail
Return _DB_MSSQL.ExecuteNonQuery(ins) Return _DB_MSSQL.ExecuteNonQuery(ins)
End Function End Function
Private Function InsertAttachmentHistoryEntry(pCurrentMail As MailContainer, pMessageId As String, pFileName As String) As Boolean Private Function InsertAttachmentHistoryEntry(pCurrentMail As MailContainer, pMessageId As String, pFileName As String, pNewFileName As String) As Boolean
If IsNothing(_DB_MSSQL) Then If IsNothing(_DB_MSSQL) Then
_Logger.Info("INSERT_HISTORY_FB: _DB_MSSQL is nothing ") _Logger.Info("INSERT_HISTORY_FB: _DB_MSSQL is nothing ")
Return False Return False
@@ -812,7 +812,8 @@ Public Class clsWorkEmail
EMAIL_SUBJECT, EMAIL_SUBJECT,
EMAIL_DATETIME, EMAIL_DATETIME,
EMAIL_BODY, EMAIL_BODY,
EMAIL_ATTMT EMAIL_ATTMT,
EMAIL_ATTMT_INDEX
) VALUES " & ) VALUES " &
$"('{CurrentMailProcessName}'," & $"('{CurrentMailProcessName}'," &
$"'{pMessageId}'," & $"'{pMessageId}'," &
@@ -820,7 +821,8 @@ Public Class clsWorkEmail
$"'{pCurrentMail.SubjectOriginal}'," & $"'{pCurrentMail.SubjectOriginal}'," &
$"'{pCurrentMail.Mail.Date}'," & $"'{pCurrentMail.Mail.Date}'," &
$"'{CURRENT_MAIL_BODY_ALL}'," & $"'{CURRENT_MAIL_BODY_ALL}'," &
$"'{pFileName}')" $"'{pFileName}'," &
$"'{pNewFileName}')"
_DB_MSSQL.ExecuteNonQuery(ins) _DB_MSSQL.ExecuteNonQuery(ins)
End If End If