kleiner Änderungen bei AddIn-Vollmachten

VERAGAddIn/frmAvisoFormularAnfügen.vb

@@ -12,7 +12,6 @@ Public Class frmAvisoFormularAnfuegen
     Public vollmachtId As Integer = -1
     Dim vollmachtartId As Integer = -1
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
-    Dim KUNDE As VERAG_PROG_ALLGEMEIN.cKunde = Nothing
     Public SendungsId = -1
     Public Bezeichnung = ""
     Public PDF_MAIL = ""
@@ -38,9 +37,7 @@ Public Class frmAvisoFormularAnfuegen
 
         KdSearchBox.initKdBox(Me)
         initAttachment()
-        If hasAnhaenge Then
-            pbAnhaenge.Visible = True
-        End If
+        If hasAnhaenge Then pbAnhaenge.Image = My.Resources.pdf
 
 
     End Sub
@@ -97,8 +94,11 @@ Public Class frmAvisoFormularAnfuegen
 
         If Not hasAnhaenge Then
 
-            If Not vbYes = MsgBox("Die Email besitzt keinen Anhang! Soll die Email denoch gespeichert werden?", vbYesNoCancel) Then Exit Sub
-
+            If Not vbYes = MsgBox("Diese Email besitzt keinen Anhang!" & vbCrLf & "Soll die Email denoch gespeichert werden?", vbYesNoCancel) Then
+                Close()
+                DialogResult = DialogResult.None
+                Exit Sub
+            End If
         End If
         UsrCntlKundenZollVollmachten1.btnNeu_Click(sender, e)
         vollmachtId = UsrCntlKundenZollVollmachten1.vmId
@@ -131,5 +131,7 @@ Public Class frmAvisoFormularAnfuegen
         dgvAnhaenge.ClearSelection()
     End Sub
 
+    Private Sub pbMail_Click(sender As Object, e As EventArgs)
 
+    End Sub
 End Class