FileOpen(1, sFile, OpenMode.Output, OpenAccess.Write, _
              OpenShare.LockWrite)
            Print(1, " ")
            FileClose(1)

File.Delete(sFile)

    Function EmailVersand(ByVal DateiName As String) As Boolean
 
        EmailVersand = False
 
        Dim Nachrichtentext As String = "Email-Übertragung eines Datensatzes"
        Dim AntwortMailAdresse As String = "Antwortmailadresse"
 
        Dim Message As New System.Net.Mail.MailMessage()
        Message.IsBodyHtml = False
        Message.BodyEncoding = Encoding.GetEncoding("iso-8859-1")
        Message.From = New MailAddress(AntwortMailAdresse, AntwortMailAdresse)
        Message.Subject = "Betreff"
        Message.Body = Nachrichtentext$
 
        Message.To.Add(New MailAddress("Mailadresse", "Empfängername"))
 
        Message.Attachments.Add(New Mail.Attachment(DateiName))
 
        Dim MailClient As New Net.Mail.SmtpClient("smtp.server")
        MailClient.Credentials = New NetworkCredential("Adresse", "Betreff")
 
        MailClient.DeliveryMethod = SmtpDeliveryMethod.Network
 
        Try
 
            MailClient.Send(Message)
            EmailVersand = True
 
        Catch ex As Exception
            MsgBox("Beim senden der Daten ist ein Fehler aufgetreten!" & vbCrLf _
              & _
                   "Sie können alle nicht versendeten Daten auch zu einem " & _
                   vbCrLf & _
                   "späteren Zeitpunkt über den Menüpunkt" & vbCrLf & _
                   """DATEN SENDEN"" gesammelt verschicken.")
        Finally
 
        End Try
 
    End Function

EALA FREYA FRESENA