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

Mezitim jsem delal trochu pokusy:

New makro "Liefervorschau_WCZ" > vytvorit > Opsat Tvoje makro >
zmenit adresar + slozku v makru > ExportFileAs "C:\Program
Files\Common Files\SYSTEM\Mapi\1029\Liefervorschau_WCZ.bas" >
zavrit VB editor > pravou mysi na onom emailu > new rules > from
... orig.address (+ my address - for testing) > next > run script
> select "Projekt1.Liefervorschau_WCZ" > next > next > finish >
restart Outlook.

Poslal jsem sam sobe ten email s prilohou, ale akce se neprovedla
:-(

Nemuze to byt, ze MS nuti vse davat do dlouhych_nazvu_slozek a
dlouhych_nazvu_souboru, ale sam je pritom nepodporuje (napr. v
*.bat pod Win98se dlouhe nefunguji). Jdu to jeste jednou
vyzkouset s kratkymi nazvy.

A nebo - jak pises to muze byt temi "podpisy"


... Vo VB editore v otlaku skus najst ThissOutlookSession
2x na to klikni ...

Prestoze ten muj VB editor v otlaku mluvi jen anglicky (VB 6.3,
version 9108, retail 6.3.8863, forms:3 2.01), nazev
ThissOutlookSession jsem zatim nenasel :-(

Ok - zkousim dal ... :-)
Plastr


----- PŮVODNÍ ZPRÁVA -----
Od: "AleX" <faklabrejle@gmail.com>
Komu: servis-internet@nawebu.cz
Předmět: Re: Auto ukladani (Outlook) email prilohy *.txt ?
Datum: 19.7.2005 - 20:33:45

> 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


-- 
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