diff --git a/VERAGAddIn/frmAvisoFormularAnfügen.vb b/VERAGAddIn/frmAvisoFormularAnfügen.vb
index 15ff663..e6e1192 100644
--- a/VERAGAddIn/frmAvisoFormularAnfügen.vb
+++ b/VERAGAddIn/frmAvisoFormularAnfügen.vb
@@ -103,9 +103,6 @@ Public Class frmAvisoFormularAnfuegen
         UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
         vollmachtId = UsrCntlKundenZollVollmachten1.vmId
 
-        'MsgBox("Dokument wurde gespeichert!")
-        'Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & UsrCntlKundenZollVollmachten1.vollmachtartId, "", "", Bezeichnung, KdNr)
-        'Dim path = DS.uploadDataToDATENSERVER("")
         Close()
 
 
diff --git a/VERAGAddIn/rbnVERAG.vb b/VERAGAddIn/rbnVERAG.vb
index 62a6ea9..8145c2c 100644
--- a/VERAGAddIn/rbnVERAG.vb
+++ b/VERAGAddIn/rbnVERAG.vb
@@ -144,6 +144,7 @@ Public Class AVISO_Mail_Functions
                     saveMail(mailItem, AvisoId, Bezeichnung,, SendungsId, Art)
                     saveAttachment(ATTACHMENTS_LIST, AvisoId, SendungsId, Art, BezAnhang)
                 ElseIf pdf_mail = "PDF_DATENSERVER" Then
+                    saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung,, Art)
                     saveAttachmentOnDatenserver(ATTACHMENTS_LIST, AvisoId, Art, BezAnhang)
                 ElseIf pdf_mail = "ONLYMAIL_DATENSERVER" Then
                     saveMailOnDatenserver(mailItem, AvisoId, Bezeichnung,, Art)
@@ -404,8 +405,6 @@ Public Class AVISO_Mail_Functions
                     Dim DS As New VERAG_PROG_ALLGEMEIN.cDATENSERVER("DOKUMENTE", "VOLLMACHTEN", "VMID_" & AvisoId, "", "", Bezeichnung)
                     Dim path = DS.uploadDataToDATENSERVER(fi.FullName)
 
-                    'If AVISO.frmSendungAnhangImport.getFileTypeValid(fi.Extension, typ) Then
-                    '    AVISO.frmSendungAnhangImport.saveToDS(AvisoId, Bezeichnung, ATT, Art, typ, ,,, If(SendungsId > 0, SendungsId, Nothing))
                 Next
             End If
         Catch ex As Exception