Kundenblatt, kundenuebersicht, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -3675,9 +3675,9 @@ Public Class frmMDM_USTVAntrag
             End Select
 
             Dim path As String = PDFInvoicesPath(posID)
-            If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez)
+            Dim fileInfo As New FileInfo(path)
+            If path <> "" Then Mail.Attachments.Add(path, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez & fileInfo.Extension)
 
-            'NOCH DEAKTIVIERT
             If vbYes = MsgBox("Möchten Sie die Positionsliste an die Mail hinzufügen?", vbYesNoCancel) Then
 
                 Dim spedBuch As New cSpeditionsbuch(USTV_ANTRAG.FilialenNr, USTV_ANTRAG.AbfertigungsNr, 0)
@@ -3685,13 +3685,15 @@ Public Class frmMDM_USTVAntrag
                 If Not spedBuch.ErfassungsNr = "" Then
 
                     Dim pathPosList As String = generatePOSListe(spedBuch, posID, False)
-
-                    If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS)
+                    If pathPosList <> "" Then
+                        Dim fileInfoPos As New FileInfo(pathPosList)
+                        If pathPosList <> "" Then Mail.Attachments.Add(pathPosList, Microsoft.Office.Interop.Outlook.OlAttachmentType.olByValue,, Attachmens_Bez_POS & fileInfoPos.Extension)
+                    End If
 
                 End If
 
 
-            End If
+                End If
 
 
             Dim TextHTML = ""
@@ -3700,6 +3702,10 @@ Public Class frmMDM_USTVAntrag
                 Mail.HTMLBody = TextHTML
             End If
 
+            Mail.To = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdress(AD.AdressenNr, "Rechnung an")
+            Mail.CC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressCC(AD.AdressenNr, "Rechnung an")
+            Mail.BCC = VERAG_PROG_ALLGEMEIN.cKundenKontakte.getMailAdressBCC(AD.AdressenNr, "Rechnung an")
+
             Mail.Display()
             Me.Cursor = Cursors.Default
         Catch ex As Exception