diff --git a/app/.vs/windream-Result-Handler/v16/Server/sqlite3/storage.ide-shm b/app/.vs/windream-Result-Handler/v16/Server/sqlite3/storage.ide-shm
new file mode 100644
index 0000000..cb10e61
Binary files /dev/null and b/app/.vs/windream-Result-Handler/v16/Server/sqlite3/storage.ide-shm differ
diff --git a/app/.vs/windream-Result-Handler/v16/Server/sqlite3/storage.ide-wal b/app/.vs/windream-Result-Handler/v16/Server/sqlite3/storage.ide-wal
new file mode 100644
index 0000000..284e39f
Binary files /dev/null and b/app/.vs/windream-Result-Handler/v16/Server/sqlite3/storage.ide-wal differ
diff --git a/app/ClassWMResulthandler/My Project/AssemblyInfo.vb b/app/ClassWMResulthandler/My Project/AssemblyInfo.vb
index 50282c0..5608f97 100644
--- a/app/ClassWMResulthandler/My Project/AssemblyInfo.vb	
+++ b/app/ClassWMResulthandler/My Project/AssemblyInfo.vb	
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' übernehmen, indem Sie "*" eingeben:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("2.0.0.1")>
+<Assembly: AssemblyVersion("2.1.0.0")>
 <Assembly: AssemblyFileVersion("1.0.0.0")>
diff --git a/app/ClassWMResulthandler/clsProfil.vb b/app/ClassWMResulthandler/clsProfil.vb
index 299a85b..6810622 100644
--- a/app/ClassWMResulthandler/clsProfil.vb
+++ b/app/ClassWMResulthandler/clsProfil.vb
@@ -162,6 +162,8 @@ Public Class clsProfil
                                     Dim CountExportedDoc As Integer = 0
                                     clsCURRENT.PROFILE_HandledFiles = Nothing
                                     Dim oFileRunNo As String
+                                    Dim oGesamtFiles As Integer
+                                    oGesamtFiles = windreamSucheErgebnisse.Count
                                     Dim oCountDocs As Integer = 0
                                     For Each WMdok As WMObject In windreamSucheErgebnisse
                                         oCountDocs += 1
@@ -174,8 +176,8 @@ Public Class clsProfil
 
                                                     Dim Email_Empfänger = DR_PR_JB.Item("STRING1")
                                                     Logger.Debug("Email_Empfänger: " & Email_Empfänger)
-                                                    Dim Email_Betreff = DR_PR_JB.Item("STRING2")
-                                                    Logger.Debug("Email_Betreff: " & Email_Betreff)
+                                                    Dim oEmail_Betreff = DR_PR_JB.Item("STRING2")
+                                                    Logger.Debug("Email_Betreff: " & oEmail_Betreff)
                                                     Dim Email_Body = DR_PR_JB.Item("STRING3")
                                                     Logger.Debug("Email_Body: " & Email_Body)
                                                     Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
@@ -227,10 +229,11 @@ Public Class clsProfil
                                                             Logger.Debug("Email_Empfänger: " & Email_Empfänger)
                                                         End If
 
-                                                        Email_Betreff = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Betreff)
+                                                        oEmail_Betreff = _dateiverarbeitung.REGEX_REPLACE(WMdok, oEmail_Betreff)
                                                         Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
+                                                        oEmail_Betreff = $"{oEmail_Betreff} [eMail {oCountDocs} von {oGesamtFiles}]"
 
-                                                        If _email.Email_Send(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, oAttachment) = True Then
+                                                        If _email.Email_Send(oEmail_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, oAttachment) = True Then
                                                             FileJobSuccessful = True
                                                         Else