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

Cau pokusim sa odpovedat v texte:

On 7/19/05, Plastr st. <plastr@post.cz> wrote:
> Omlouvam se - driv jsem se sem zpet nedostal :-(
> 
> 2Alex - diky za makro, kde se`s to naucil? :-)
> "Rules & alerts" muzu pouzit. Ve VB editor z Outlooku je budto
> ulozit project *.otm, nebo import file *.bas. (doufam, ze
> predpokladam spravne, ze je to script do Outlooku :-)
> 
Vo VB editore v otlaku skus najst ThissOutlookSession 2x na to klikni
a vloz tie riadky z minuleho mailu.
Kde som sa naucil? bieda ma priprela :-) od prirody pohodlny clovek si
snazi zjednodusit zivot... a ako som uz veeelmi davno pisal nie len v
linuxe mozes vela veci prisposobit obrazu svojmu


> Z Tvojeho makra to "c:\temp\" prepsat na "muj_adresar", a to

Ano
> "att.FileName" prepsat na "att.muj_soubor.txt"
> 
att.Filename je nazov toho suboru v prilohe ... IMHOneprepisuj 
ak chodi vzdy ten isty pomocou makra (uz v exceli) zabezpec vymazavanie

> A ze si to Tvoje makro ulozim do "moje.bas" kdekoli kde chci, v
> tom VB editoru z Outlooku to naimportuji, a ulozim jako makro.
> 
> Jeste hledam v helpu, kde se ty scripty (=makro?) ukladaji.
> 
> Asi to pletu pate pres devate, ale snazim se na to prijit, kam a
> jak to prijde. (treba v excelu se mi makra ukladaji do
> personal.xls)
> 
v otlaku do toho jedineho *.otm

> A nebo si to mam cele (Tvoje Outlook makro + moje Excel makro
> ulozit do "moje.vbs", a to nacist jako script pro "Rules &
> alerts" ?

pozor to nie je script ale VBA... cez script by to bola vacsia haluz
> 
> Nasel jsem na [http] www.pcsvet.cz/art/article.php?id=3679
> [/http] uvod do Script Host - automat pro Windows, kde je script
> co spusti excel.
> 
> BTW - to celou tu akci tedy vlastne muzu automaticky spustit tim
> "Rules & alerts"?
> 
ano presne tak

> Ted uz tu budu (na konfere) cca do 23:00h, takze v odpovedich
> budu rychlejsi :-)
> 
> Plastr
> plastr@post.cz
> 
> 
> 
> ----- PŮVODNÍ ZPRÁVA -----
> Od: "AleX" <faklabrejle@gmail.com>
> 
> > Nevydrzal som:-) makro je na svete
> > ------cut----------------
> > Sub save_att(it As MailItem)
> > For Each att In it.Attachments
> > att.SaveAsFile "c:\temp\" & att.FileName
> > Next
> > End Sub
> > -----end cut ----------
> > snad vies kam to ulozit
> > ak nie ozvi sa.
> > este dolezite nastavenie
> > menu tools>rules& alerts
> > New rule>start from blank
> > check when arrive > next
> > from ---- zadaj od koho >next
> > run a script klikni a vyber ten save_att. SAVE
> > Thats all.
> 
> AleX
> 
-- 
AleX