Uložení všech příloh v Microsoft Outlooku - skript od isteho FRISTA....dakujte jemu :o) inac pise ze to vyjde v Connect a v tom dalsom casopise,..ze si ho mate kupit :o) Vyberte Nástroje | Makro | Makra . (Alt + F8) a v otevřeném dialogovém okně napište do pole Název makra text "Ulozit" (raději bez háčků a čárek). Potom stiskněte tlačítko Upravit a objevíte se v editoru Microsoft Visual Basic. Do otevřeného, částečně vyplněného okna, vepište tento text (apostrofy a čísla na konci řádků psát nemusíte): Sub ulozit() Set myOlApp = CreateObject("Outlook.Application") '1 Set myNamespace = myOlApp.GetNamespace("MAPI") '2 Set myFolder = myNamespace.GetDefaultFolder(olFolderInbox) '3 For i = 1 To myFolder.Items.Count '4 Set myItem = myFolder.Items(i) '5 Set myAttachs = myItem.Attachments '6 For a = 1 To myAttachs.Count '7 Set myAtt = myAttachs.Item(a) '8 myAtt.SaveAsFile ("c:\Dokumenty\" + myAtt.FileName) '9 Next a '10 myItem.UnRead = False '11 Next i '12 End Sub Program se na začátku připojí k aplikaci Outlook (řádek 1) a následně vyhledá výchozí složku Inbox (řádky 2 až 3). Cyklus od řádku 4 po řádek 12 postupně prochází všechny zprávy. Na řádcích 5 a 6 se připojí k přílohám zprávy. Cyklus na řádcích 7 až 10 potom vytahuje jednotlivé přílohy a ukládá je (řádek 9, zde je možné změnit cestu, kam se má ukládat). Řádek 11 pak zprávu označí jako přečtenou. Editor Visual Basicu po napsání makra uzavřete. V Outlooku vyberte Nástroje | Vlastní . a zde záložku Příkazy. V levém sloupci Kategorie zvolte Makra. V pravém se vám objeví vaše nové makro. Přetáhněte je myší na panel nástrojů. Pokud na právě vytvořené tlačítko klepnete pravým tlačítkem myši, můžete snadno změnit jeho jméno nebo vzhled. A co tedy celé makro dělá? Projde složku Inbox, všechny přílohy uloží do složky C:\Dokumenty a všechny zprávy označí jako přečtené. ---- Original Message ----- From: "Galda Jan" <Jan.Galda@roz.os.ds.mfcr.cz> To: <servis-internet@nawebu.cz> Sent: Friday, October 06, 2000 7:37 AM Subject: Rady, tipy, triky, ... > Dobry den, > je to nahoda, nebo je to spoluprace, > ci je tato konference jen zdroj temat > pro nejblizsi cisla Computeru ci Connectu!. > > Je mozne, ze se tazatele obraceji i na tyto redakce, > nebo do jinych konferenci. > > Tak nevim... mozna se mi to taky jen zda... :-) > Nahoda je vul, skleroza neboli, a tak. > > Priklad: > Byl tu dotaz jak ulozit prilohy nejak primo. > A ted v poslednim Computeru c.19 je > "Ulozeni vsech priloh z Outlooku 2000" > Vytvoreni makra, ktere uklada ze vsech doslych zprava > vsechny prilohy. > > Pry je na Internetu nekde modul pro Outlook za 800,- > a tohle makro to setri. > > > S pozdravem > Jan Galda, Valasska kralovska... > > > > -- > ------------------- konference casopisu Internet ----------------------- > Archiv a instrukce pro odhlaseni/prihlaseni na http://internet.nawebu.cz > FAQ a objednavka jeho aktualizaci mailem na http://www.kab.cz/faq/ > ------------------------------------------------------------------------ >
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 03:50 CEST