Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Button1.Click
 
If CheckBox21.Checked = True Then
		        System.Diagnostics.Process.Start("Q:\GRP-0158\HMT-Desktop\Outlook" & _
  "Vorlagen\Komponentenangebot Fa. Festo 1.oft")
		End if
 
End sub

olMail.Attachments.Add(AA & c1)