Übersetzungen ergänzt

EnvelopeGenerator.Form/frmMain.vb

@@ -1,18 +1,13 @@
 Imports DevExpress.Utils.Extensions
-Imports DevExpress.XtraSplashScreen
 Imports DevExpress.XtraCharts
+Imports DevExpress.XtraGrid
+Imports DevExpress.XtraGrid.Views.Grid
+Imports DevExpress.XtraSplashScreen
 Imports DigitalData.GUIs.Common
 Imports DigitalData.Modules.Base
-Imports DigitalData.Modules.Config
-Imports DigitalData.Modules.Database
 Imports DigitalData.Modules.Logging
 Imports EnvelopeGenerator.Common
 Imports EnvelopeGenerator.Common.My
-Imports DevExpress.Charts.Native
-Imports DevExpress.XtraGrid.Views.Grid
-Imports DevExpress.XtraGrid
-Imports System.Globalization
-Imports System.Threading
 
 Public Class frmMain
     Private ReadOnly LogConfig As LogConfig
@@ -278,7 +273,7 @@ Public Class frmMain
             Dim oReceiver As EnvelopeReceiver = oView.GetRow(oView.FocusedRowHandle)
             Process.Start($"mailto:{oReceiver.Email}")
         Else
-            MsgBox("Bitte wählen Sie einen Empfänger aus dem Reiter Empfänger aus.", MsgBoxStyle.Information, Text)
+            MsgBox(Resources.Envelope.Please_select_a_recipient_from_the_Recipients_tab, MsgBoxStyle.Information, Text)
         End If
     End Sub
 
@@ -291,14 +286,14 @@ Public Class frmMain
         Dim oDocument = oEnvelope.Documents.FirstOrDefault()
 
         If oDocument Is Nothing Then
-            MsgBox("Der Umschlag enthält keine Dokumente.", MsgBoxStyle.Exclamation, Text)
+            MsgBox(Resources.Envelope.The_envelope_does_not_contain_any_documents, MsgBoxStyle.Exclamation, Text)
             Exit Sub
         End If
 
         Try
             Process.Start(oDocument.Filepath)
         Catch ex As Exception
-            MsgBox("Dokument konnte nicht geöffnet werden!", MsgBoxStyle.Critical, Text)
+            MsgBox(Resources.Envelope.Document_could_not_be_opened, MsgBoxStyle.Critical, Text)
             Logger.Error(ex)
         End Try
     End Sub