Re: Rady, tipy, triky, ...

From: Juro Polak (polak@axon.sk)
Date: 06. 10. 2000, 08:45 CEST


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