'Download einer PDF aus dem Internet als PDF
    '##########################################################################
    ' ###
    Public Sub Button12_MouseUp(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.MouseEventArgs) Handles Button12.MouseUp
 
        If e.Button = Windows.Forms.MouseButtons.Right Then
            Dim sURL As String = _
              "https://xdki.festo.com/xdki/data/doc_de/PDF/DE/DGE-ZR_DE.PDF"
            Dim PDF_Datei As String
            PDF_Datei = "DGE-ZR_DE.PDF"
            Dim sLocalFile As String = PDF_Datei
            Dim sLocalPath As String = "C:\Temp"
 
            DownloadItem(sURL, sLocalFile, sLocalPath)
        End If
    End Sub

'Download
    '##########################################################################
    ' ###
    Private WithEvents MyClient As Net.WebClient
    Private Sub DownloadItem(ByVal sURL As String, ByVal strFile As String, _
      ByVal strFolder As String)
        MyClient = New Net.WebClient
        'ProgressBar1.Value = 0
        MyClient.DownloadFileAsync(New Uri(sURL), IO.Path.Combine(strFolder, _
          strFile))
    End Sub
    Private Sub MyClient_DownloadProgressChanged(ByVal sender As Object, ByVal _
      e As System.Net.DownloadProgressChangedEventArgs) Handles _
      MyClient.DownloadProgressChanged
        'ProgressBar1.Maximum = e.TotalBytesToReceive
        'ProgressBar1.Value = e.BytesReceived
    End Sub
    Public Sub MyClient_DownloadFileCompleted(ByVal sender As Object, ByVal e _
      As _
      System.ComponentModel.AsyncCompletedEventArgs) Handles _
      MyClient.DownloadFileCompleted
        'ProgressBar1.Value = 0
        MessageBox.Show("Die Datei wurde erfolgreich heruntergeladen nach" & _
          "C:\Temp", _
          "Dateidownload", MessageBoxButtons.OK, MessageBoxIcon.Information)
 
        'Outlook
        '######################################################################
        ' ###
        Dim Outlook As Object
        Dim olMail As Microsoft.Office.Interop.Outlook.MailItem
        Outlook = CreateObject("Outlook.Application")
        Dim a As Integer
 
        olMail = Outlook.CreateItem(a)
        olMail.Subject = "Notiz"
 
        olMail.BodyFormat = _
          Microsoft.Office.Interop.Outlook.OlBodyFormat.olFormatHTML
        olMail.HTMLBody = "<div style='font-size:11pt; font-family: MetaPlusLF;" & _
        "'>" & _
        "Guten Tag Herr, <br> <br> anbei anbei erhalten Sie wie telefonisch" & _
        "besprochen die gewünschte Dokumentation. <br> <br> Haben Sie Fragen" & _
        "zur Technik rufen Sie mich bitte an. <br> <br> Weitere Dokumentationen" & _
        "finden Sie auch auf unserer Homepage:" & _
        "www.festo.com/pnf/de_de/products/catalog <br> <br> Mit freundlichen" & _
        "Grüßen" & _
        "</div>"
 
        olMail.To = "Bitte Adresse eintragen"
        olMail.CC = ""
 
        olMail.Attachments.Add("C:\Temp\" & PDF_Datei)
 
        olMail.Display()
        Outlook = Nothing
        olMail = Nothing
 
    End Sub