Re: Auto ukladani (Outlook) email prilohy *.txt ?

From: Plastr st. <plastr (zavinac)>
Date: 20. 07. 2005, 13:29 CEST
Tak jsem tu zase, znovu jsem to dnes cele vymazal, zacal z
cisteho, a uz mi to funguje. I s certifikaci pro security na
High. A to vse diky AleX(ovi:-)
Diky moc.

Zajima-li Vas cely postup, jak mi to AleX poradil, tady je:

Vlozit tento dole script (makro) do:
Start Outlook > Alt+F11 (VB editor) > Leve horni okno "Projekt" >
2x klik na podnabidce "ThisOutlookSession" > a vlozit to do
praveho cisteho bileho okna:

----------cut----------
Sub Liefervorschau_WCZ(it As MailItem)
'ak chces prepis si ten nazov Sub
For Each att In it.Attachments
'ak chces natvrdo cestu aj nazov suboru tak takto:
att.SaveAsFile "C:\WTT\Liefervorschau_WCZ\Liefervorschau_WCZ.txt"
'neprepisuj ho ak chodi vzdy ten isty txt - pomocou makra (uz v
exceli) zabezpec vymazavanie Next
End Sub
--------------end cut --------------

dufam ze to nezalomi ..... ma to byt nyni 8 riadkov



Close VB editor > close Outlook > potvrdit OK ulozeni projetu (ve
Win98 do "C:\WINDOWS\Application
Data\Microsoft\Outlook\VbaProject.OTM").

Start znovu Outlook > pravou mysi na onom emailu > new rules >
from ... orig.address (+ my address - for testing) > next > run
script > select "Projekt1.ThisOutlookSession_Liefervorschau_WCZ"
> next > next > zatrhnout "Pro slozku Dorucena posta" > finish >
OK.

Pak Menu > Tools > Macro > Security nastavit na Low (makro
probehne bez ptani), alebo na Medium (vzdy sa ta bude pri starte
makra pytat, ci veris svojmu makru - pokud makro nemas podepsane
- viz dale), alebo High (ale musis svoje makro met podepsane -
viz dale) > restart Outlook > IMHO si za vodou :-)



Nyni certifikace makra:

Zavrit vsechny aplikace Officu > Najdi na HDD soubor
"SELFCERT.EXE" > spustit ho > Napis si jmeno > Povolit > OK.

Pak pust aplikaci Officu, kde mas makra (treba Outlook) >
Nastroje > Makra > VB editor (nebo Alt+F11) > Tools > Digital
signature > Zvolit > OK > Close VB editor > close Outlook >
potvrdit OK ulozeni projetu.

Znovu spustit Outlook > Alt+F11> Hlasku o certifikaci pro firmu:
(Tve jmeno cos napsal pri certifikaci) > Duverovat vzdy > a melo
by to byt :-)


Sam se nyni divim, proc mi to predtim neslo :-( Proste to jen
nakopirovat, a vse nastavit. A to jsem nevymyslel to makro, to
napsal AleX.

Diky jeste jednou za rady, i za cas.
(IMHO ... jeste asi pak budu otravovat dale ... pokud mi
pokracovani nepujde :-)

Plastr

-- 
plastr@post.cz


-- 
Revoluční vysokorychlostní INTERNET jen za nízký měsíční paušál
399 Kč. Navíc aktivace ZDARMA! Více na
http://www.revolucniinternet.cz
Received on Wed, 20 Jul 2005 13:29:51 +0200 (CEST)

This archive was generated by hypermail 2.1.8 : 20. 07. 2005, 13:29 CEST