Dim wc As New Net.WebClient
        wc.Credentials = New Net.NetworkCredential("BENUTZERNAME", "KENNWORT")
        Dim link As Uri = New Uri( _
          "https://red002.mail.emea.microsoftonline.com/owa/attachment.ashx?at" & _
          "ach=1&id=RgAAAAC%2fMT3fJgmqToGZmL0Jdm%2bOBwBSutrf5y5uRrf9GcLn4DvoAA" & _
          "oy6qSAABSutrf5y5uRrf9GcLn4DvoAAEHFLRQAAAJ&attid0=EACGsfO8RyfzSIdDjj" & _
          "BVHeP&attcnt=1")
 
        wc.DownloadFile(link, "Test.pdf")