Using msg As New MailMessage("daves@meinefirma.de", _
          "daves@meinefirma.de", "Just a test", "Here's the data!"),
          att As New Attachment("F:\Test\bild.tmp"),
          client As New SmtpClient("UnserExchangeServer")
            msg.Attachments.Add(att)
            client.UseDefaultCredentials = True
            Try
                client.Send(msg)
            Catch ex As Exception
                MsgBox(ex.ToString())
            End Try
        End Using

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist