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

add EMAIL_ATTMT_INDEX column

Browse Source
This commit is contained in:
Jonathan Jenne 2023-10-09 14:54:48 +02:00
parent d493cf1b5f
commit def648aa53
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
App/EmailProfiler.Common/clsWorkEmail.vb
View File

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