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