Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
        Dim Outlook As Object
        'Dim mail As Object
        Dim olMail As Microsoft.Office.Interop.Outlook.MailItem
        'olMail = olApp.CreateItem(olMailItem)
        Outlook = CreateObject("Outlook.Application")
        'mail = Outlook.CreateItem(olMailItem)
        olMail = Outlook.CreateItem(olMailItem)
        olMail.Subject = ""
        olMail.Body = "Projektnummer: "
        olMail.To = ""
        olmail.cc = ""
        'Mail.Attachments.Add activesheet
        olMail.Attachments.Add("C:\Documents and Settings\blas\My" & _
          "Documents\AG-TEAM\Excel Liste HMT.xls")
        olMail.Display()
        'Mail.Send
        Outlook = Nothing
        olMail = Nothing
    End Sub