'Dokumente zusammenfügen durch ankreuzen
    '##########################################################################
    ' ##########################################################
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
 
        Dim oMerge As New cMergePDF
        Dim Fils As New ArrayList
        Dim strFiles() As String
        Dim t1 as String
        Dim AA As String
 
        Dim ausgabedatei As String
 
 
        'Outlook
        '######################################################################
        ' ###
        Dim Outlook As Object
        Dim olMail As Microsoft.Office.Interop.Outlook.MailItem
        Outlook = CreateObject("Outlook.Application")
        Dim a As Integer
        '######################################################################
        ' #####
 
 
 
        'Variable bestimmen
        AA = "Q:\GRP-0158\Eilteam\Angebot_Anhang\pdf-Dokumente nach CD\"
        t1 = "DGE-ZR-RF_Zahnriemenachse_Rollenführung.pdf"
 
        ausgabedatei = "C:\Temp\PDF-Dokumente zum Angebot.pdf"
 
 
 
        If RadioButton1.Checked = True Then
 
 
            If Me.CheckBox1.Checked = True Then Fils.Add(AA & t1) 'DGE-RF
 
            For idx As Integer = 0 To Fils.Count - 1
                ReDim Preserve strFiles(idx)
                strFiles(idx) = Fils(idx)
                oMerge.MergePdfFiles(strFiles, ausgabedatei)
            Next
 
 
            olMail = Outlook.CreateItem(a)
            olMail.Subject = "Komponentenangebot Fa. Festo"
            olMail.Body = "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 & vbNewLine & vbNewLine '& BB
 
 
            olMail.Attachments.Add("C:\Temp\PDF-Dokumente zum Angebot.pdf")
 
            olMail.To = ""
            olMail.CC = ""
 
            olMail.Display()
            Outlook = Nothing
            olMail = Nothing
 
 
 
 
        End If
 
End Sub