Dim message As New MailMessage("von@irgenwo1.de", "an@irgendwo2.de", _
          "Test", "Senden mit Attachment")
        Dim emailClient As New SmtpClient("smtp.wasweissich.de")
        Dim file As String
        file = "C:\test.jpg"
        Try
            message.Attachments.Add(New Attachment(file))
            MessageBox.Show("richtig")
        Catch ex As Exception
            MessageBox.Show("falsch: " & ex.Message)
            Return
        End Try
        Try
            emailClient.Send(message)
            MessageBox.Show("Mail erfolgreich verschickt")
        Catch ex As Exception
            MessageBox.Show("Fehler beim versenden: " & ex.Message)
        End Try