Sub test()
     Dim watcher As New FileSystemWatcher()
     watcher.Path = "c:\testpfad"
     watcher.Filter = "*.zip"
     AddHandler watcher.Created, AddressOf OnCreated	
     watcher.EnableRaisingEvents = True
End Sub
 
Private Shared Sub OnChanged(ByVal source As Object, ByVal e As _
  FileSystemEventArgs)
 
        Dim message As Message = New Message
        message.From = New Mailbox("<<Absender-Adresse>>", "My Name")
        message.To.Add("("<<Empfänger-Adresse>>", "John Smith")
        message.Subject = "Test"
        message.Body = "This is a message with an attachment."
        message.ContentType = New ContentType("text", "plain", "utf-8")
        message.ContentTransferEncoding = _
          ContentTransferEncoding.QuotedPrintable
 
‘ Zeile, bei der bei großen Dateien der Fehler geworfen wird…
        message.Attachments.Add(e.FullPath)
 
        Dim client As SmtpClient = New SmtpClient("<<server>>")
 
         client.Connect()
         client.Send(message)
         client.Disconnect()
End Sub