Public Property excelPath() As String
        Get
            Dim Windir As String = Environment.GetFolderPath( _
              Environment.SpecialFolder.System)
            Windir = Path.GetFullPath(Windir & "../../../")
            Return Windir
        End Get
        Set(ByVal Value As String)
            excelPath = Value
        End Set
    End Property
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim message As New System.Web.Mail.MailMessage
        message.From = "Claudi<xyz@web.de>"
        message.BodyFormat = System.Web.Mail.MailFormat.Html
        message.Body = "test"
        message.To = "lpinter@web.de"
        message.Subject = "Testmail"
        System.Web.Mail.SmtpMail.SmtpServer = "deinMailserverhier"
        message.Attachments.Add(New MailAttachment(excelPath & "test.xls"))
        System.Web.Mail.SmtpMail.Send(message)
    End Sub

LP

--