Public Sub Send_Status_EMail()
        '#### E-MAIL NACHRICHT VERSENDEN
        Try
            'Den E-Mail-Body erzeugen durch zusammensetzten unterschiedlicher 
            ' DB-Strings
            My.Settings.vBody = My.Settings.vMeldung &  " - LKW-KZ: " & _
              My.Settings.vLKW_KZ &  " - SENDUNG: " & My.Settings.vSendung & 
                       " - Start-Zeit: " & My.Settings.vStartzeit.ToString & "" & _
                       "- End-Zeit: " & My.Settings.vEndezeit.ToString &  " - 
AUFTRAGGEBER: " & My.Settings.vAuftraggeber.ToString &  " - _
Sendungs-EMPFAENGER: " & My.Settings.vEmpfaenger_Ladung.ToString &  " 
- Telematik-LOG-ID: " & My.Settings.vCG_LOG_ID.ToString & " - _
E-Mail-Sende-Zeit: " & My.Computer.Clock.LocalTime
 
            ' Neue Nachricht erzeugen
            Dim message As New MailMessage(My.Settings.vFrom, _
              My.Settings.vEmpfaenger, My.Settings.vBetreff, My.Settings.vBody)
            ' create and add the attachment(s) */
            'Attachment attachment = new Attachment("sample.doc",
            '                        MediaTypeNames.Application.Octet)
            '        Message.Attachments.Add(Attachment)
            With message
                .IsBodyHtml = True
            End With
 
            'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
            Dim emailClient As New SmtpClient(My.Settings.vSMTP)
            'Email mit Authentifizierung
            Dim SMTPUserInfo As New System.Net.NetworkCredential( _
              My.Settings.vUSer, My.Settings.vPasswort) ', My.Settings.vDomain)
            emailClient.UseDefaultCredentials = False
            emailClient.Port = 25
            emailClient.Credentials = SMTPUserInfo
 
            '*Die E-Mail versenden */
            emailClient.Send(message)
 
        Catch ex As Exception
            BtnMeldung.BackColor = Color.Red
            BtnMeldung.Text = "Fehler beim Versenden der Status E-Mail:" & _
              vbNewLine & vbNewLine & ex.Message.ToString
 
        End Try
    End Sub