Private Sub Button1_Click_1(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)
        Dim a As Integer
 
        Dim c1 As String
        Dim AA As String
 
        AA = "Q:\GRP-0158\Eilteam\Angebot_Anhang\pdf-Dokumente nach CD\"
        c1 = "DFM-B_Z1_mit_Zwischenstellung.pdf"
 
 
        olMail = Outlook.CreateItem(a)
        olMail.Subject = "Angebot"
        olMail.Body = "Guten Tag"
 
 
        'Anhänge 
        ' erstellen############################################################
        ' #####################
 
        If CheckBox21.Checked = True Then olMail.Attachments.Add(AA & c1)
 
        olMail.To = ""
        olMail.CC = ""
 
        olMail.Display()
        Outlook = Nothing
        olMail = Nothing
 
 
        Me.Close()
 
End Sub