Public Function Mail_versenden(ByVal Betreff As String, ByVal Text As String)
Try
            Dim msgMail As New MailMessage
            With msgMail
                .To = An
                .Cc = Kopie
                .From = Absender
                .Subject = Betreff
                .Body = Text
                'SmtpMail.SmtpServer.Insert(0, "server.firma.local")
                SmtpMail.SmtpServer = "server.firma.local"
            End With
            SmtpMail.Send(msgMail)
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Fehler beim Mail-Versand", _
              MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
End Sub