Set outl = CreateObject("Outlook.Application")
        Set Mail = outl.CreateItem(olMailItem)
        Mail.Subject = "Angebotsnummer " & Sheets("AG-Team").Range("F" & _
          rngZelle.Row).Value
        Mail.Body = "Projektnummer: " & Sheets("AG-Team").Range("D" & _
        rngZelle.Row).Value & vbNewLine & vbNewLine & "Das Angebot mit der" & _
        "Nummer " & Sheets("AG-Team").Range("F" & Target.Row).Value & " ist" & _
        "geschrieben." & vbNewLine & vbNewLine & "Grüße vom AG-Team"
        Mail.To = Range("E" & rngZelle.Row).Value & "@de.festo.com"
        Mail.cc = ""
        'Mail.Attachments.Add activesheet
        Mail.Attachments.Add "C:\Documents and Settings\blas\My" & _
          "Documents\AG-TEAM\Excel Liste HMT.xls"
        Mail.display
        'Mail.Send
        Set outl = Nothing
        Set Mail = Nothing