olMail = Outlook.CreateItem(a)
        olMail.Subject = "Komponentenangebot Fa. Festo"
        'olMail.BodyFormat = Global.Outlook.OlBodyFormat.olFormatHTML
        olMail.HTMLBody = "<FONT SIZE='11pt' FACE=""MetaPlusLF"">" & "Guten" & _
          "Tag Herr ," & vbNewLine & vbNewLine & "anbei erhalten Sie wie" & _
          "telefonisch besprochen das gewünschte Angebot über die Komponenten." _
          & vbNewLine & vbNewLine & "Haben Sie Fragen zum Angebot oder zur" & _
          "Technik rufen Sie mich bitte an." & vbNewLine & vbNewLine & _
          vbNewLine & "Mit freundlichen Grüßen" & vbNewLine & vbNewLine & _
          My.User.Name.Substring(My.User.Name.IndexOf("")) & vbNewLine & _
          vbNewLine & vbNewLine & ""