getDocumentByUrl and extractFile problem

I need to get images from a website, the filenames are structured so i want to loop through the URL’s to the images and download them into a separate database.

Code i done is

Dim webdoc As NotesDocument

Dim xmlAttach As NotesEmbeddedObject

Set webdoc=db.Getdocumentbyurl(“http://www.test.com/test1.gif”, True)

Set xmlAttach = webDoc.GetAttachment(“test1.gif”)

xmlAttach.ExtractFile(“c:\temp\test.gif”)

When debugging in notes i get the obeject XmlAttach with properties filesize, name, type=1454, but when i get to extractfile i get this error “Notes error: Invalid or nonexistent document”.

I also save the webdoc and can verify i have the $File field but the type of that says “Attached”, the code says type OtherObject, so i cant seem to get a handle to it to extract. Is this even possible to do?

Best regards

Thomas