Przypisanie Zdjecia z HTML do Kontaktu [VBA]

[OShon]

Jezlei chodzi o zapisanie z dysku to nie problem
ale jezeli mam dyspozytorium miniaturowych zdjęć [JPG] użytkowników na stronie internettowej to jakiego parametru użyś do zapisu zdjecia w kontakcie 2003

jezeli to możliwe prosze o pomoc

[michu]

Obrazek dodaje się do kontaktu przy pomocy funkcji AddPicture, ale musi on znajdować się na dysku lokalnym lub w otoczeniu sieciowym. Nie można dodać obrazka, znajdującego się na serwerze internetowym.

[OShon]

czyli nie ma funkcji dzieki której można pobrać zdjecie do kontrolki a potem przypisać do kontaktu ?

[michu]

Możesz pobrać zdjęcie z serwera WWW przy pomocy obiektu MSXML2.XMLHTTP, zapisać je na dysku, a potem przypisać do kontaktu. Poniżej skrypt, który pobiera obrazek z serwera WWW i zapisuje na dysku:

Kod: Zaznacz cały

Sub DownloadPic()

    Dim oRequest
    Set oRequest = CreateObject("MSXML2.XMLHTTP")
    oRequest.open "GET", "http://www.outlook.pl/images/c2publicfolders.gif", False
    oRequest.send
   
    Set adoStrm = CreateObject("ADODB.Stream")
    adoStrm.Type = 1 'adTypeBinary
    adoStrm.Mode = 3 'adModeReadWrite
    adoStrm.open
    adoStrm.Write oRequest.responseBody
    adoStrm.SaveToFile "C:\c2publicfolders.gif"
    adoStrm.Close

End Sub


[Shon Oskar]

Instrukcja bardzo fajna jednakże zarejestrowana jako trojan ;]
FSecure oraz Kacperski wykrywają ją jako Trojan-Downloader.JS.gen
http://www.europe.f-secure.com/cgi-bin/AT-Wdescssearch.cgi?search=Trojan-Downloader

wiadomo ze jest to tylko heurystyczne (?) porównanie ale lamer może sie przestraszyć....

jeżeli jest jakaś inna instrikcja, było by super

pozd

[michu]

No niestety nie wiem, w jaki inny sposób można by pobrać plik z serwera internetowego. Ehh te antywiry, niedługo nie będzie można żadnego programu napisać, bo wszystkie będą blokowane

[Shon Oskar]

Jezeli potrzebował by ktoś kodu,
który pobiera dane z wytryny (zdjecia)
i załacza je do karty adresowej w 2003;
mam kod API, który działa mogę sie podzielić.

zainteresowanych prosze o maila.

(nie jest on rozpoznawany jako trojan)

[michu]

Używasz w nim API Windows (WinInet) do pobierania danych z serwera?

[Shon Oskar]

tak - żadnej kontrolki ;P

Generuje linka po ID który otwiera miniature zdjecia (w tle) dla danego ID
a następnie zostaje to przekazane jako plik na dysk o tej samej nazwie,
w pętli jest pobierane warunkiem czy O'2003 i przypisane jako zdjecie do karty kontaktu.
i następny i następny.

;]