Nacházíte se: WALL.czNástěnka › Outlooku – automatické ukládání přílohy
Kategorie: Nástěnka

Outlooku – automatické ukládání přílohy

OutlookPravidelně dostávám najednou 10 e-mailů s podklady pro reporty. Protože v e-mailech má příloha vždy stejný název, pokaždé musím kliknout na přílohu, provést Uložit jako a zadat název. Název přílohy zadávám stejný jako předmět e-mailu.

Naprosto otravná práce a tedy ideální případ pro automatizaci, která by uvedené e-maily přesunula do vlastní složky a uložila přílohy pod názvem předmětu e-mailu. Přesun e-mailu do vlastní složky zajistí pravidlo a uložení příloh provede makro, které se také bude spouštět v rámci pravidla.

Makro (skript), které bude spouštěné pravidlem se v editoru VBA zapisuje do ThisOutlookSession.

Outlooku – automatické ukládání přílohy

Kód pro uložení přílohy:

Public Sub SaveAtt(Item As Outlook.MailItem) 'Skript pro pravidlo Dim objAtt As Outlook.Attachment Dim saveFolder As String Dim fso As Object Dim file As String Dim enviro As String enviro = CStr(Environ("USERPROFILE")) saveFolder = enviro & "\Dokumenty\" Set fso = CreateObject("Scripting.FileSystemObject") On Error Resume Next For Each objAtt In Item.Attachments 'složka & název souboru/přílohy (předmět) & koncovka (z původní přílohy) file = saveFolder & Item.Subject & Right(objAtt.DisplayName, 4) objAtt.SaveAsFile file Set objAtt = Nothing Next Set fso = Nothing End Sub

Nastavení pravidla:

Outlooku – automatické ukládání přílohy

  • Klikněte na Upřesnit nastavení.
  • Na stránce Vyberte akce zaškrtněte spustit: skript.
  • Klikněte na skript a vyberte skript ze seznamu.
  • Pak potvrďte OK a dokončete průvodce nastavením pravidla.

Outlooku – automatické ukládání přílohy

Nyní je vše připraveno. Od této chvíle budou všechny nové e-maily, které splňují podmínku v pravidlu, přesunuty do vlastní složky a současně příloha bude automaticky uložena do složky Dokumenty.

print Formát pro tisk

Sdílet článek:

Komentáře rss

Zasílate odpověď ke stávajícímu příspěvku (zrušit).

Nemáte oprávnění přidávat příspěvky.

Uživatelské jméno
Heslo
     

Registrace >
Ztracené heslo >


, takto ten klic do reg odpovědět
avatar
v text editoru..., soubor pojmenovat treba xx.reg

Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security]
"EnableUnsafeClientMailRules"=dword:00000001
Příloha: png45663_zahdqyw.png (9kB, staženo 151x)
45663_zahdqyw.png
citovat
, - odpovědět
avatar
Skript funguje bezvadně ale ukládá i obrázek v podpisu se stejným názvem, jako je předmět emailu.
Jde odebrat ukládání obrázku z podpisu?

Předem díkycitovat
icon odpověděl(a)
admin
Šlo by to asi ošetřit tak, že byste do cyklu přidal kontrolu na obrázek (*.jpg; *.gif;..) a uložení obrázku přeskočil.citovat
, spustit: skript odpovědět
avatar
Chtěl jsem toto využít, ale bohužel nemám na dané kartě možnost:
spustit: skript
6

Mám Outlook 2010. Tak netuším, kde je chybacitovat
icon odpověděl(a)
admin
V MS Office zmizel checkbox pro Spusti: skrip. Lze vrátit novým zápisem do registru:
[HKEY_CURRENT_USER\Software\Microsoft\Office\16.0\Outlook\Security]
"EnableUnsafeClientMailRules"=dword:00000001citovat
odpověděl(a)
avatar
Zdravím šel by sem dát screenshot jak přesně to má vypadat? Nerad bych si zničil registry v pracovním pc. Předem děkuji :-)citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje