Option Explicit On
 
Public Class Form1
 
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Dim sURL As String = _
        "https://xdki.festo.com/xdki/data/doc_de/PDF/DE/DGE-ZR_DE.PDF"
        Dim sLocalFile As String = "DGE-ZR_DE.PDF"
        Dim sLocalPath As String = "C:\Temp"
        DownloadItem(sURL, sLocalFile, sLocalPath)
    End Sub
 
    'Download
    '##########################################################################
    ' ###
    Private WithEvents MyClient As Net.WebClient
    Private MyPDFFile As String = ""
 
    Private Sub DownloadItem(ByVal sURL As String, ByVal strFile As String, _
      ByVal strFolder As String)
        MyPDFFile = IO.Path.Combine(strFolder, strFile)
        MyClient = New Net.WebClient
        'Form4.ProgressBar1.Value = 0
        MyClient.DownloadFileAsync(New Uri(sURL), MyPDFFile)
    End Sub
 
 
End Class

Public Sub MyClient_DownloadFileCompleted(ByVal sender As Object, ByVal e As _ 
      System.ComponentModel.AsyncCompletedEventArgs) Handles _ 
      MyClient.DownloadFileCompleted 
        Form4.ProgressBar1.Value = 0 
        Form4.Close() 
        '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 = "Dokumentation zum Angebot" 
 
        olMail.HTMLBody = "<div style='font-size:11pt; font-family: MetaPlusLF;" & _
          "'>" & _ 
        "Guten Tag Herr , <br> <br> 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: <a href=" & _
        "http://www.festo.com/pnf/de_de/products/catalog> Unser" & _
        "Produktkatalog</a> <br> <br> <B>Projektdaten: </B> <br>" & _
        "Projektnummer: XXXXXX-A <br> Angebotsnummer: XXXXXXXXXX <br> <br>  Mit" & _
        "freundlichen Grüßen <br> <br>" & _ 
        "</div>" 
 
        olMail.To = "" 
        olMail.CC = "" 
        olMail.Attachments.Add(MyPDFFile) 
        olMail.Display() 
        Outlook = Nothing 
        olMail = Nothing 
 
    End Sub