aviso

Aviso/Anhänge/frmSendungAnhangImport.vb

@@ -653,7 +653,8 @@ Public Class frmSendungAnhangImport
 
     Public Function ExtractPdfPages_NEW(ByVal SourceFile As String, ByVal TargetFile As String, pagesToExtract As List(Of Integer)) As Boolean 'ITEXTSHARP
         Try
-            Dim impPage As iTextSharp.text.pdf.PdfImportedPage = Nothing
+            Dim impPage As itextsharp.text.pdf.PdfImportedPage = Nothing
+            If SourceFile.Contains(" ") Then SourceFile = SourceFile
             Dim Reader As New iTextSharp.text.pdf.PdfReader(SourceFile)
             If Not TargetFile.ToLower.EndsWith(".pdf") Then TargetFile = TargetFile & ".pdf"
             Dim srcDoc As New iTextSharp.text.Document() 'Reader.GetPageSizeWithRotation(0))