diff --git a/initATLASAufschubkonten/frmStartOptions.vb b/initATLASAufschubkonten/frmStartOptions.vb
index dbdc6d4..11547cc 100644
--- a/initATLASAufschubkonten/frmStartOptions.vb
+++ b/initATLASAufschubkonten/frmStartOptions.vb
@@ -316,10 +316,13 @@ Public Class frmStartOptions
                     VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
 
                     If von.Contains("@q8.com") Or betreff.Contains("IDSPRD: Platts Price Report") Then
-                        importFileFromIDSMailAnhang(pfad, betreff)
+                        '---------------------IDS----------------------
+                        'importFileFromIDSMailAnhang(pfad, betreff)
                     ElseIf von.Contains("@miccustoms.com") Or betreff.Contains("FORWARDING EMAIL | BEZUGSNUMMER") Or betreff = "Report nctsTransDeclGuarantees generated successfully" Then
-                        importFileFromMICMailAnhang(pfad, betreff)
+                        '---------------------MIC----------------------
+                        'importFileFromMICMailAnhang(pfad, betreff)
                     Else
+                        '---------------------DAKOSY----------------------
                         importFileFromDyMailAnhang(pfad, betreff)
                     End If
                 End If
@@ -647,15 +650,16 @@ Public Class frmStartOptions
                         Dim SPEDBUCH_TMP As VERAG_PROG_ALLGEMEIN.cSpeditionsbuch = Nothing
                         If cDHF_Anhaenge.docID > 0 AndAlso cDHF_Anhaenge.LRN <> "" Then
                             Select Case row("MsgTyp")
-                                Case "EZ922"
+                                Case "EZ922" 'STEUERBESCHEID
                                     DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
                                     sql.doSQL("Update Speditionsbuch SET [DokumentId_Steuerbeleg]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_Steuerbeleg] is null", "FMZOLL")
+                                    doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
                                 Case "TR109"
                                     DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "NCTS", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
                                     sql.doSQL("Update Speditionsbuch SET [DokumentId_VBD]='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND [DokumentId_VBD] is null", "FMZOLL")
                                     ' BEREITSTELLUNG DER DATEN AN FREMDSYSTEME
                                     cVERAG_out_ncts.copyFileFTP_VERAGncts_EZOLL(cDHF_Anhaenge.AnmID)
-
+                                    doMailZollbeleg(destFull, "VBD", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
                                 Case "EZ923" ' STB/ABD
                                     Select Case row("VorgangID")
                                         Case "AF" ' --> AUSFUHR --> ABD
@@ -670,6 +674,7 @@ Public Class frmStartOptions
 
                                             DAKOSY_Worker.cZOLL_IMPORT.EZOLLImport(cDHF_Anhaenge.LRN, "EZA", SPEDBUCH_TMP) 'Versucht den SpedBucheintrag, falls noch nicht vorhanden
                                             sql.doSQL("Update Speditionsbuch SET DokumentId_Mitteilung='" & cDHF_Anhaenge.docID & "' WHERE AtlasBezNrEZA='" & cDHF_Anhaenge.LRN & "' AND DokumentId_Mitteilung is null", "FMZOLL")
+                                            doMailZollbeleg(destFull, "STB", SPEDBUCH_TMP.SendungID, cDHF_Anhaenge.LRN)
 
                                     End Select