Przypisanie Zdjecia z HTML do Kontaktu [VBA]

Pytania, problemy, uwagi związane ze starszymi wersjami Microsoft Outlook 2003, 2002 (XP), 2000, 98

Moderator: Moderatorzy

Przypisanie Zdjecia z HTML do Kontaktu [VBA]

Postprzez OShon » Cz 09.11.2006 21:30

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
Obrazek
Oskar Shon - MVP Office Dev. 11/20, 3x MCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 10274
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl

Postprzez michu » Cz 09.11.2006 21:41

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.
Pozdrawiam
Michu
michu
 
Posty: 4190
Dołączył(a): N 05.02.2006 17:49
Lokalizacja: Jelenia Góra

Postprzez OShon » Cz 09.11.2006 22:11

czyli nie ma funkcji dzieki której można pobrać zdjecie do kontrolki a potem przypisać do kontaktu ?
Obrazek
Oskar Shon - MVP Office Dev. 11/20, 3x MCC, 4/9/22 TechNet
Forum moderator: Outlook.pl | ExcelForum.pl | MSDN dział VBA
Zobacz fajne dodatki: Outlooka, Excela, Worda lub PowerPointa
OShon
 
Posty: 10274
Dołączył(a): Cz 19.10.2006 08:31
Lokalizacja: Projekt autorski VBATools.pl

Postprzez michu » Pt 10.11.2006 08:24

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
Pozdrawiam
Michu
michu
 
Posty: 4190
Dołączył(a): N 05.02.2006 17:49
Lokalizacja: Jelenia Góra

Postprzez Shon Oskar » Wt 14.11.2006 13:05

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 ;)
O'Shon
Shon Oskar
 
Posty: 182
Dołączył(a): Pn 16.10.2006 09:05
Lokalizacja: Veracomp S.A.

Postprzez michu » Wt 14.11.2006 15:43

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 :?
Pozdrawiam
Michu
michu
 
Posty: 4190
Dołączył(a): N 05.02.2006 17:49
Lokalizacja: Jelenia Góra

Postprzez Shon Oskar » Pt 08.12.2006 13:36

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. 8)

(nie jest on rozpoznawany jako trojan) :!:
O'Shon
Shon Oskar
 
Posty: 182
Dołączył(a): Pn 16.10.2006 09:05
Lokalizacja: Veracomp S.A.

Postprzez michu » Pt 08.12.2006 14:39

Używasz w nim API Windows (WinInet) do pobierania danych z serwera?
Pozdrawiam
Michu
michu
 
Posty: 4190
Dołączył(a): N 05.02.2006 17:49
Lokalizacja: Jelenia Góra

Postprzez Shon Oskar » Pt 08.12.2006 15:05

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.

;]
O'Shon
Shon Oskar
 
Posty: 182
Dołączył(a): Pn 16.10.2006 09:05
Lokalizacja: Veracomp S.A.


Powrót do Microsoft Outlook

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników i 4 gości